tests/testthat/test-lorem.R

context("LoremIpsum()")


test_that("categorize a numerial vector", {
  expect_equal(wordCount(loremIpsum()), 201)
  expect_equal(wordCount(loremIpsum(12)), 12)
  expect_equal(wordCount(loremIpsum(220)), 220)
})
inSileco/letiRmisc documentation built on Sept. 16, 2022, 2:19 p.m.