inst/unitTests/runTests.R

In NMOF: Numerical Methods and Optimization in Finance

pkg <- "NMOF"
if (tolower(Sys.getenv("ES_R_PACKAGE_TESTING_73179826243954")) == "true" &&
    require("RUnit", quietly = TRUE) &&
    require(pkg, quietly = TRUE, character.only = TRUE)) {

    path <- paste0("~/Packages/", pkg, "/inst/unitTests")

    ## if the package is installed and you want to run
    ## the tests, use this path:
    ##
    ##     path <- system.file("unitTests", package = pkg)
    ##

    myTestSuite <- defineTestSuite(pkg,
                                   dirs = path,
                                   testFileRegexp = "^unitTests.*[^~]$")
    stopifnot(isValidTestSuite(myTestSuite))
    testResult <- runTestSuite(myTestSuite, verbose = 0L)
    printTextProtocol(testResult,
                      showDetails = TRUE,
                      fileName = paste0(file.path(path, "test_results"), ".txt"))
}