tests/testthat/test-badwords.R

test_that("Catches bad word", {
  skip_on_cran()

  expect_identical("hell", get_bad_words("hell")[[1L]])
})

test_that("Passes safe word", {
  skip_on_cran()

  expect_true(length(get_bad_words("happy")) == 0)
})
jimhester/available documentation built on Nov. 8, 2023, 4:08 p.m.