inst/unittests/runalltests.R

In rvgtest: Tools for Analyzing Non-Uniform Pseudo-Random Variate Generators

## --- Setup ----------------------------------------------------------------

## Load package 'testthat' 
if(! require("testthat", quietly=TRUE)) {
  message("\nCannot run unit tests -- package 'testthat' is not available!\n")
  quit(save="no",runLast=FALSE)
}

## Load package 'rvgtest' 
library("rvgtest")

## Store R options
opt.save <- options()

## Print warnings immediately
## options(warn=1)

## Path to unit test files
if (exists(".rvgt.RCMDCHECK") && isTRUE(.rvgt.RCMDCHECK)) {
        ## Path to unit tests for 'R CMD check'
        ## PKG.Rcheck/tests/../PKG/unitTests
        ## Remark: variable '.rvgt.RCMDCHECK' has to be defined in
        ##         the master test file for R CMD check
        unittest.dir <- system.file(package="rvgtest", "unittests")
} else {
        ## Path to unit tests for standalone running under Makefile (not R CMD check)
        ## PKG/inst/tests
        unittest.dir <- file.path(getwd())
}

## --- Run tests ------------------------------------------------------------

## Print header
cat(rep("=",45),"\n",
    " Run test suite in directory\n ",
    unittest.dir,"\n",
    rep("=",45),"\n", sep="")

## Use summary reporter
test_dir(unittest.dir, reporter="summary")

## A possible alternative is the TAP reporter that uses
## the Test Anything Protocol (TAP) for the output result.
## test_dir(unittest.dir, reporter="tap")

## --- End ------------------------------------------------------------------

## Restore R options
options(opt.save)

## --------------------------------------------------------------------------