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