tests/runUnitTests.R

## runUnitTests.R --- Run RUnit tests
##
## with credits to package fUtilities in RMetrics
## which credits Gregor Gojanc's example in CRAN package  'gdata'
## as per the R Wiki http://wiki.r-project.org/rwiki/doku.php?id=developers:runit
## and changed further by Martin Maechler
## and more changes by Murray Stokely in HistogramTools
##
## Dirk Eddelbuettel, 2014 - 2017

if (requireNamespace("RUnit", quietly=TRUE) &&
    requireNamespace("RcppAnnoy", quietly=TRUE)) {

    library(RUnit)
    library(RcppAnnoy)

    ## Set a seed to make the test deterministic
    set.seed(42)

    ## Define tests
    testSuite <- defineTestSuite(name="RcppAnnoy Unit Tests",
                                 dirs=system.file("tests", package="RcppAnnoy"),
                                 testFuncRegexp = "^[Tt]est+")

    ## This package does not require external resources (cf package RcppRedis)
    ## so the default is to run the tests
    runTests <- TRUE

    ## Tests for test run
    if (runTests) {
        tests <- runTestSuite(testSuite)    	# run tests
        printTextProtocol(tests)		# print results

        ## Return success or failure to R CMD CHECK
        if (getErrors(tests)$nFail > 0) stop("TEST FAILED!")
        if (getErrors(tests)$nErr > 0) stop("TEST HAD ERRORS!")
        if (getErrors(tests)$nTestFunc < 1) stop("NO TEST FUNCTIONS RUN!")

    }
}
eddelbuettel/rcppannoy documentation built on Sept. 29, 2017, 3:32 a.m.