tests/testthat/test-function-mySystemTime.R

test_that("mySystemTime() works", {
  
  expect_output(y <- mySystemTime(max, list(1:10)))
  
  expect_is(y, "integer")
  expect_length(y, 1)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.