tests/testthat.R

In crunch: Crunch.io Data Tools

library(httptest)
if (nchar(Sys.getenv("JENKINS_HOME"))) {
    tt_read_lines <- function(path, n = -1L, encoding = "UTF-8") {
        base::readLines(path, n = n, encoding = encoding, warn = FALSE)
    }

    tt_write_lines <- function(text, path) {
        base::writeLines(enc2utf8(text), path, useBytes = TRUE)
    }

    # trick to get around :: from depends CRAN check
    R6Class <- get("R6Class", asNamespace("R6"))

    JunitReporterFix <- R6Class(
        "JunitReporterFix",
        inherit = JunitReporter,
        public = list(
            end_reporter = function() {
                super$end_reporter()
                tt_write_lines(
                    crayon::strip_style(tt_read_lines(self$out)),
                    self$out
                )
            }
        )
    )

    test_check("crunch",
        reporter = MultiReporter$new(list(
            SummaryReporter$new(),
            JunitReporterFix$new(file = file.path(Sys.getenv("WORKSPACE"), "rcrunch.xml"))
        ))
    )
} else {
    test_check("crunch")
}