tests/testthat/test-vld.R

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

test_that("vld_time_regex true", {
  expect_true(vld_time_regex("9:00"))
})

test_that("vld_time_regex false", {
  expect_false(vld_time_regex("b"))
  expect_false(vld_time_regex("9"))
})

test_that("vld_interval_regex true", {
  expect_true(vld_interval_regex("9:00-17:00"))
  expect_true(vld_interval_regex("9:00-17:00"))
  expect_true(vld_interval_regex("9:00-12:30"))
})

test_that("vld_interval_regex false", {
  expect_false(vld_interval_regex("9-"))
  expect_false(vld_interval_regex("-17:00"))
})