tests/bootstrap.R

# load("tests/exemplar_data.rda")
# library(PCICt)
# 
# if(require("RUnit", quietly=TRUE)) {
#   ## Run all the tests
#   wd <- getwd()
#   testsuite <- defineTestSuite("climdex.pcic", dirs=wd, testFileRegexp = "^test_.+.R$", testFuncRegexp = "^climdex.pcic.test.+")
#   climdex.pcic.test.result <- runTestSuite(testsuite, useOwnErrorHandler=F)
#   printTextProtocol(climdex.pcic.test.result)
#   stopifnot(climdex.pcic.test.result$climdex.pcic$nFail == 0 && climdex.pcic.test.result$climdex.pcic$nErr == 0)    
# }
ECA-D/climind documentation built on Nov. 26, 2022, 10:20 a.m.