context("test-timeout")
test_that("exec timeout works", {
if(.Platform$OS.type == "windows"){
command = "ping"
args = c("-n", "5", "localhost")
} else {
command = 'sleep'
args = '5'
}
times <- system.time({
expect_error(exec_wait(command, args, timeout = 1.50, std_out = FALSE), "timeout")
})
expect_gte(times[['elapsed']], 1.45)
expect_lt(times[['elapsed']], 2.50)
# Also try with exec_internal
times <- system.time({
expect_error(exec_internal(command, args, timeout = 0.50), "timeout")
})
expect_gte(times[['elapsed']], 0.45)
expect_lt(times[['elapsed']], 1.50)
})
Generated by dwww version 1.15 on Tue Jul 2 08:36:52 CEST 2024.