R/unitTestLauncher.R

In gaspardcc/PMMMF:

#' unit test launcher
#'
#' aw ff cb elh

pkgs <- c("RUnit")
sapply(pkgs, library, character.only=T)

testSuite.pmmmf <- defineTestSuite(name = "PMMMF",
                                   dirs = "R/Test/",
                                   testFileRegexp = "^+.R",
                                   testFuncRegexp = "test.+")

testResult <- runTestSuite(testSuites = testSuite.pmmmf)
printTextProtocol(testResult)