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/inSilecoMisc documentation built on Sept. 14, 2022, 5:44 a.m.