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 Feb. 8, 2025, 10:12 a.m.