tests/testthat/test-crew_random_name.R

crew_test("crew_random_name()", {
  out <- crew_random_name()
  expect_true(is.character(out))
  expect_false(anyNA(out))
  expect_equal(length(out), 1L)
  expect_gt(nzchar(out), 0L)
})
wlandau/crew documentation built on April 14, 2025, 7:36 a.m.