tests/testthat/test-vld.R

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"))
})
poissonconsulting/openinghours documentation built on July 28, 2020, 4:36 p.m.