1 2test_that("error outside of test_that()", { 3 withr::local_envvar(TESTTHAT_PARALLEL = "TRUE") 4 err <- tryCatch( 5 suppressMessages(testthat::test_local( 6 test_path("test-parallel", "outside"), 7 reporter = "silent" 8 )), 9 error = function(e) e 10 ) 11 12 expect_match(err$message, "Test failures") 13}) 14