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