tests/tinytest.R

In wenjie2wang/splines2: Regression Spline Functions and Classes

if (requireNamespace("tinytest", quietly = TRUE) &&
    utils::packageVersion("tinytest") >= "1.2.2") {
    set.seed(808)
    is_at_home <- function() {
        identical(tolower(Sys.getenv("TT_AT_HOME")), "true")
    }
    if (is_at_home()) {
        ## only run the following tests if "at home" (not at cran)
        tinytest::test_package("splines2", ncpu = NULL,
                               testdir = "rcpp-tests")
    }
    ## always run the following checks
    tinytest::test_package("splines2", ncpu = NULL,
                           side_effects = TRUE)
}