tests/testthat/test-utils_time.R

In targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

test_that("time_seconds_local()", {
  tar_runtime$nanonext <- NULL
  for (i in seq_len(4)) {
    out <- time_seconds_local()
    expect_true(is.numeric(out))
    expect_false(anyNA(out))
    expect_equal(length(out), 1L)
  }
  expect_equal(2 * 2, 4)
})