tests/testthat/test-random_user.R

test_that("random_user", {
  # character
  expect_type(random_user(), "character")
  # non-empty
  expect_true(nzchar(random_user()))
  # all no longer than 16 length
  for (i in replicate(100, random_user())) {
    expect_true(nchar(i) <= 16)
  }
})

Try the sixtyfour package in your browser

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

sixtyfour documentation built on April 3, 2025, 8:22 p.m.