test_that("error in parallel setup code", {
skip_on_covr()
withr::local_envvar(TESTTHAT_PARALLEL = "TRUE")
err <- tryCatch(
suppressMessages(testthat::test_local(
test_path("test-parallel", "setup"),
reporter = "silent"
)),
error = function(e) e
)
expect_s3_class(err, "testthat_process_error")
expect_match(err$message, "Error in setup", fixed = TRUE)
})
Generated by dwww version 1.15 on Sun May 19 04:49:26 CEST 2024.