tests/testthat/test_generateParagraph2NL.R

context("generateParagraph2NL")
n <- 7
s <- generateParagraph2NL(LETTERS[1:n])
test_that("generateParagraph2NL", {
  expect_length(s, 1L)
  expect_equal(stringr::str_count(s, '\n'), 2L * (n - 1L))
})
neonira/wyz.code.rdoc documentation built on Feb. 19, 2020, 12:47 p.m.