tests/runit.R

In document: Run 'roxygen2' on (Chunks of) Single Code Files

#!/usr/bin/Rscript --vanilla
if (requireNamespace("RUnit", quietly = TRUE)) {
    is_failure <- function(result) {
        res <- RUnit::getErrors(result)
        names(res) <- tolower(names(res)) # soothe lintr
        sum_of_exceptions <- res[["nerr"]] + res[["nfail"]]
        fail <- as.logical(sum_of_exceptions)
        return(fail)
    }

    if (interactive()) {
        pkgload::load_all(path = ".") # needed to use pkgload's shim version of
        # base's system.file
        unit_dir <- system.file("inst", "runit_tests", package = "document")
    } else {
        require("document", quietly = TRUE, character.only = TRUE) ||
            pkgload::load_all(path = ".")
        r_call <- commandArgs(trailingOnly = FALSE)
        if (any(grepl("--file", r_call))) {
            unit_dir <- file.path("inst", "runit_tests")
        } else {
            unit_dir <- system.file("runit_tests", package = "document")
        }
    }
    if (! dir.exists(unit_dir)) {
        stop("Can not find RUnit test directory ", unit_dir,
             ". Try to (re)install the package first.")
    }
    package_suite <- RUnit::defineTestSuite("document_unit_test",
                                            dirs = unit_dir,
                                            testFileRegexp = "^.*\\.[rR]",
                                            testFuncRegexp = "^test_+")
    test_result <- RUnit::runTestSuite(package_suite)
    RUnit::printTextProtocol(test_result, showDetails = TRUE, fileName = "")
    if (is_failure(test_result)) {
        RUnit::printTextProtocol(test_result, showDetails = TRUE)
        stop("RUnit failed.")
    }
}