tests/testthat/test-timeout.R

In sys: Powerful and Reliable Tools for Running System Commands in R

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)
})