Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (15 sloc) 0.468 kB
library(RUnit)
library(plyr)
testSuite <- defineTestSuite(
dirs=system.file("tests", package = "plyr"),
name=paste("plyr unit tests"),
testFileRegexp = "\\.runit$",
testFuncRegexp = "^test"
)
tests <- runTestSuite(testSuite)
printTextProtocol(tests, showDetails=TRUE)
tmp <- getErrors(tests)
if(tmp$nFail > 0 | tmp$nErr > 0) {
stop(paste("\n\nUnit testing failed (#test failures: ", tmp$nFail,
", #R errors: ", tmp$nErr, ")\n\n", sep=""))
}
Jump to Line
Something went wrong with that request. Please try again.