tests/testthat/test_getStandardSectionNames.R

context("getStandardSectionNames")

ss <- getStandardSectionNames()

test_that("getStandardSectionNames", {
  expect_length(ss, 22)
  expect_true('custom_section' %in% ss)
  expect_true(is.unsorted(ss))
  expect_true(!is.unsorted(getStandardSectionNames(TRUE)))
})

Try the wyz.code.rdoc package in your browser

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

wyz.code.rdoc documentation built on Oct. 6, 2021, 9:07 a.m.