inst/UnitTests/runalltests.R

In Bioconductor/Category: Category Analysis

require("RUnit", quietly=TRUE) || stop("RUnit package not found")
require("Category")


TEST_DATA_DIR <- "data"
runitPat <- ".*_test\\.R$"
runitDirs <- c(".")
suite <- defineTestSuite(name="Category Test Suite",
                         dirs=runitDirs,
                         testFileRegexp=runitPat,
                         rngKind="default",
                         rngNormalKind="default")
result <- runTestSuite(suite)
printTextProtocol(result, showDetails=FALSE)