tests/testthat/test-chk.R

test_that("chk_time", {
  expect_null(chk_time(hms::as_hms("19:03:14")))
  expect_invisible(chk_time(hms::as_hms("19:03:14")))
  expect_invisible(chk_time(hms::as_hms(1)))
  expect_error(chk_time(1), class = "chk_error")
})

Try the dttr2 package in your browser

Any scripts or data that you put into this service are public.

dttr2 documentation built on Sept. 19, 2021, 9:06 a.m.