tests/testthat/test_extractObjectOPInformation.R

context("extractObjectOPInformation")

source_file <- 'sample-classes.R'
source_package <- 'wyz.code.offensiveProgramming'

f <- findFilesInPackage(source_file, source_package)
stopifnot(length(f) == 1)
source(f[1])

test_that("extractObjectOPInformation", {
  expect_error(extractObjectOPInformation(EmptyR6$new(), 'kkkfun'))
})

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.