tests/testthat/test-regex.R

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

test_that("time regex passes", {
  expect_true(str_detect("7:00", complete_regex(time_regex())))
  expect_true(str_detect("19:30", complete_regex(time_regex())))
  expect_true(str_detect("19:00", complete_regex(time_regex())))
  expect_true(str_detect("23:30", complete_regex(time_regex())))
})

test_that("time regex fails", {
  expect_false(str_detect("a", complete_regex(time_regex())))
  expect_false(str_detect("193", complete_regex(time_regex())))
  expect_false(str_detect("19:0", complete_regex(time_regex())))
  expect_false(str_detect("19:15", complete_regex(time_regex())))
  expect_false(str_detect("19:05", complete_regex(time_regex())))
  expect_false(str_detect("19:31", complete_regex(time_regex())))
  expect_false(str_detect("30:00", complete_regex(time_regex())))
})

test_that("interval regex passes", {
  expect_true(str_detect("9:00-17:00", complete_regex(interval_regex())))
  expect_true(str_detect("9:00-12:00", complete_regex(interval_regex())))
  expect_true(str_detect("9:00-12:30", complete_regex(interval_regex())))
})

test_that("interval regex fails", {
  expect_false(str_detect("9:00", complete_regex(interval_regex())))
  expect_false(str_detect("9:00-", complete_regex(interval_regex())))
})