tests/testthat/test-callr.R

In jdblischak/workflowr: A Framework for Reproducible and Collaborative Data Science

context("callr")

# Regression test: next time quickly identify behavior like callr 3.3.0
# https://github.com/r-lib/callr/commit/df85ab14fbbf8ca9b89f55e50089828e0ac86e9a
test_that("r_safe() does not write to global environment", {

  ls_global <- callr::r_safe(function() ls(.GlobalEnv))
  expect_true(length(ls_global) == 0)
})

# Need to use conditionMessage() to obtain entire error message
# https://github.com/r-lib/callr/issues/228
test_that("can retreive error message from tryCatch() in callr process", {

  f <- function() {
    tryCatch(
      callr::r_safe(function() stop("specific message")),
      error = function(e) conditionMessage(e)
    )
  }

  expect_match(f(), "specific message")
})