R/test_rHDF5_package.R

In Sage-Bionetworks/rHDF5: HDF5 File access

.test <- function(dir=system.file("unitTests", package="rHDF5"), testFileRegexp = "^test_.*\\.R$") {
        .runTestSuite(dir=dir, testFileRegexp=testFileRegexp, testFuncRegexp="^unitTest.+", suiteName="unit tests")
}

.runTestSuite <- function(dir, testFileRegexp, testFuncRegexp, suiteName) {

        .failure_details <- function(result) {
                res <- result[[1L]]
                if (res$nFail > 0 || res$nErr > 0) {
                        Filter(function(x) length(x) > 0,
                                        lapply(res$sourceFileResults,
                                                        function(fileRes) {
                                                                names(Filter(function(x) x$kind != "success",
                                                                                                fileRes))
                                                        }))
                } else list()
        }

        require("RUnit", quietly=TRUE) || stop("RUnit package not found")
        RUnit_opts <- getOption("RUnit", list())
        RUnit_opts$verbose_fail_msg <- TRUE
        options(RUnit = RUnit_opts)
        suite <- defineTestSuite(name=paste("rHDF5 RUnit Test Suite", suiteName),
                        dirs=dir,
                        testFileRegexp=testFileRegexp,
                        testFuncRegexp=testFuncRegexp,
                        rngKind="default",
                        rngNormalKind="default")
        result <- runTestSuite(suite)
        cat("\n\n")
        printTextProtocol(result, showDetails=FALSE)
        if (length(details <- .failure_details(result)) >0) {
                cat("\nTest files with failing tests\n")
                for (i in seq_along(details)) {
                        cat("\n  ", basename(names(details)[[i]]), "\n")
                        for (j in seq_along(details[[i]])) {
                                cat("    ", details[[i]][[j]], "\n")
                        }
                }
                cat("\n\n")
                stop(paste(suiteName, " tests failed for package rHDF5"))
        }
        result
}