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)
})
neonira/wyz.code.metaTesting documentation built on Feb. 19, 2020, 12:46 p.m.