new file mode 100644

@@ -0,0 +1,48 @@

+.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="crlmm")

+        if (!length(dir)) {

+            dir <- system.file("UnitTests", package="crlmm")

+            if (!length(dir))

+                stop("unable to find unit tests, no 'unitTests' dir")

+        }

+    }

+    require("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 <- defineTestSuite(name="crlmm RUnit Tests", dirs=dir,

+                             testFileRegexp=pattern,

+                             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("unit tests failed for package crlmm")

+    }

+    result

+}