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)
})
letiR/letiRmisc documentation built on Sept. 11, 2022, 12:43 a.m.