tests/testthat/test_generateEllipsisSubstitutionName.R

context("generateEllipsisSubstitutionName")

el <- getEllipsisSubstitutionName()

test_that("generateEllipsisSubstitutionName", {
  expect_equal(generateEllipsisSubstitutionName(letters), el)
  expect_true(nchar(generateEllipsisSubstitutionName(c('el', paste0(el, LETTERS)))) == nchar(el) + 2)
})

Try the wyz.code.metaTesting package in your browser

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

wyz.code.metaTesting documentation built on Sept. 25, 2023, 9:06 a.m.