tests/testthat/test-inspect_characterid.R

# common cases
test_that("inspect_characterid actually identifies expected pattern", {
  expect_equal(inspect_characterid("ABC1234", "^[A-Za-z]{3}[0-9]{4}$"), TRUE)
  expect_equal(inspect_characterid("1234ABC", "^[A-Za-z]{3}[0-9]{4}$"), FALSE)
  expect_error(inspect_characterid(12345, "^[A-Za-z]{3}[0-9]{4}$"))
})

Try the trustmebro package in your browser

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

trustmebro documentation built on June 8, 2025, 11:01 a.m.