tests/testthat/test_extractClassificationInformation.R

context("extractClassificationInformation")

pkg <- 'wyz.code.offensiveProgramming'

test_that("extractClassificationInformation", {
  expect_null(extractClassificationInformation('non_existing_function', 'stats'))
  expect_null(extractClassificationInformation('non_existing_function', pkg))
  expect_error(extractClassificationInformation('generateStatusSummary', pkg)) # internal function
  expect_true(is.character(extractClassificationInformation('verifyFunctionName', pkg)))
})

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.