tests/test-all.R

In osofr/growthcurveSL: SuperLearner for Imputing Growth Curves

## unit tests will not be done if RUnit is not available
# setwd("..")
# getwd()
# library(RUnit)
if(require("RUnit", quietly=TRUE)) {
    ## --- Setup ---

    pkg <- "growthcurveSL" # <-- Tested package name

    if(Sys.getenv("RCMDCHECK") == "FALSE") {
    ## Path to unit tests for standalone running under Makefile (not R CMD check)
    ## PKG/tests/../inst/unitTests
    # path <- file.path(getwd(), "..", "inst", "unitTests")
    } else {
    ## Path to unit tests for R CMD check
    ## PKG.Rcheck/tests/../PKG/unitTests
    # path <- system.file(package=pkg, "RUnit")

    # REPLACED WITH:
    path <- file.path(getwd(), "RUnit")
    }

    cat("\nRunning unit tests\n")
    print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))

    library(package=pkg, character.only=TRUE)

    ## If desired, load the name space to allow testing of private functions
    ## if (is.element(pkg, loadedNamespaces()))
    ##     attach(loadNamespace(pkg), name=paste("namespace", pkg, sep=":"), pos=3)
    ##
    ## or simply call PKG:::myPrivateFunction() in tests

    ## --- Testing ---

    ## Define tests
    test.suite <- defineTestSuite(name=paste(pkg, "unit testing"),
                                        # dirs="./RUnit",
                                        dirs=path,
                                        testFileRegexp = "^RUnit_tests_+",
                                        testFuncRegexp = "^test.+",
                                        rngKind = "Marsaglia-Multicarry",
                                        rngNormalKind = "Kinderman-Ramage")
    ## Run
    tests <- runTestSuite(test.suite)

    ## Default report name
    pathReport <- file.path(path, "report")

    ## Report to stdout and text files
    cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
    printTextProtocol(tests, showDetails=FALSE)
    printTextProtocol(tests, showDetails=FALSE,
                        fileName=paste0(pathReport, "Summary.txt"))
    printTextProtocol(tests, showDetails=TRUE,
                        fileName=paste0(pathReport, ".txt"))
    ## Report to HTML file
    printHTMLProtocol(tests, fileName=paste0(pathReport, ".html"))

    ## Return stop() to cause R CMD check stop in case of
    ##  - failures i.e. FALSE to unit tests or
    ##  - errors i.e. R errors
    tmp <- getErrors(tests)
    if(tmp$nFail > 0 | tmp$nErr > 0) {
        stop(paste("\n\nunit testing failed (#test failures: ", tmp$nFail,
               ", #R errors: ",  tmp$nErr, ")\n\n", sep=""))
    }
    } else {
        warning("cannot run unit tests -- package RUnit is not available")
}