tests/testthat/test-chk.R

In poissonconsulting/openinghours: Read and Write Strings of Opening Hours

test_that("chk_time_regex", {
  expect_null(chk_time_regex("9:00"))
  expect_invisible(chk_time_regex("17:00"))
  chk::expect_chk_error(chk_time_regex("a"), "^`\"a\"` must be a time regular expression[.]$")
})

test_that("chk_interval_regex", {
  expect_null(chk_interval_regex("9:00-17:00"))
  expect_invisible(chk_interval_regex("9:00-17:00"))
  chk::expect_chk_error(chk_interval_regex("9"), "^`\"9\"` must be an interval regular expression[.]$")
})