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