R/test_PANTHER.db.R

In ju-mu/PANTHER.db: A set of annotation maps describing the entire PANTHER Gene Ontology

.test <- function(dir, pattern = "^test_.*\\.R$")
{
	.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()
	}

	if (missing(dir)) {
		dir <- system.file("unitTests", package="PANTHER.db")
		if (!length(dir)) {
			dir <- system.file("UnitTests", package="PANTHER.db")
			if (!length(dir))
				stop("unable to find unit tests, no 'unitTests' dir")
		}
	}
	requireNamespace("RUnit", quietly=TRUE) || stop("RUnit package not found")
	RUnit_opts <- getOption("RUnit", list())
	RUnit_opts$verbose <- 0L
	RUnit_opts$silent <- TRUE
	RUnit_opts$verbose_fail_msg <- TRUE
	options(RUnit = RUnit_opts)
	suite <- RUnit::defineTestSuite(name="PANTHER.db RUnit Tests", dirs=dir,
			testFileRegexp=pattern,
			rngKind="default",
			rngNormalKind="default")
	result <- RUnit::runTestSuite(suite)
	cat("\n\n")
	RUnit::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("unit tests failed for package PANTHER.db")
	}
	result
}