tests/testthat/test-badwords.R

In available: Check if the Title of a Package is Available, Appropriate and Interesting

context("Check package name for bad words")

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)
})