Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (14 sloc) 403 Bytes
library(RUnit)
FILE <- (function() {
attr(body(sys.function()), "srcfile")
})()$filename
PATH <- dirname(FILE)
source(file.path(PATH, "load.r"))
testSuite <- defineTestSuite(
dirs=file.path(PATH, "inst/tests"),
name=paste("plyr unit tests"),
testFileRegexp = "\\.runit$",
testFuncRegexp = "^test"
)
capture.output(tests <- runTestSuite(testSuite))
printTextProtocol(tests, showDetails=FALSE)
Something went wrong with that request. Please try again.