tests/bootstrap.R

if(require("RUnit", quietly=TRUE)) {
  ## Run all the tests
  wd <- getwd()
  testsuite <- defineTestSuite("PCICt", dirs=wd, testFileRegexp = "^test_functions.R$", testFuncRegexp = "^PCICt.test.+")
  PCICt.test.result <- runTestSuite(testsuite, useOwnErrorHandler=F)
  printTextProtocol(PCICt.test.result)
}

Try the PCICt package in your browser

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

PCICt documentation built on Feb. 16, 2023, 7:43 p.m.