Freshen up crashing test

Author: hadley

tests/testthat/test-parallel-crash.R

@@ -1,22 +1,15 @@
 test_that("crash", {
-  # https://github.com/r-lib/rlang/commit/c84d52b6
-  skip_if_not_installed("rlang", "1.0.1.9000")
-
   skip_on_cran()
   skip_on_covr()
   withr::local_envvar(TESTTHAT_PARALLEL = "TRUE")
 
-  do <- function() {
-    err <- NULL
+  pkg <- test_path("test-parallel", "crash")
+  err <- callr::r(function() {
     tryCatch(
       testthat::test_local(".", reporter = "summary", stop_on_failure = FALSE),
-      error = function(e) err <<- e
+      error = function(e) e
     )
-    err
-  }
-
-  pkg <- test_path("test-parallel", "crash")
-  err <- callr::r(do, wd = pkg)
+  }, wd = pkg)
   expect_s3_class(err, "testthat_process_error")
   expect_equal(err$test_file, "test-crash-3.R")
 })

tests/testthat/test-parallel/crash/tests/testthat/test-crash-3.R

@@ -1,5 +1,5 @@
 test_that("this crashes", {
   expect_true(TRUE)
   expect_true(FALSE)
-  asNamespace("callr")$crash()
+  rlang::node_car(0)
 })