From baf6b58524135103f8182299224096e797dd0677 Mon Sep 17 00:00:00 2001
From: "Jennifer (Jenny) Bryan" <jenny.f.bryan@gmail.com>
Date: Fri, 5 Jul 2024 16:03:24 -0700
Subject: [PATCH] Freshen up the tests around crashing (#464)

---
 tests/testthat/_snaps/reprex.md | 19 ++++++++++++++++++-
 tests/testthat/test-reprex.R    | 25 ++++++++++++++++++++-----
 2 files changed, 38 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/_snaps/reprex.md b/tests/testthat/_snaps/reprex.md
index f5e38a8..77b62ea 100644
--- a/tests/testthat/_snaps/reprex.md
+++ b/tests/testthat/_snaps/reprex.md
@@ -10,9 +10,26 @@
 # reprex() errors for an R crash, by default
 
     Code
-      code <- "utils::getFromNamespace(\"crash\", \"callr\")()\n"
+      code <- "rlang::node_car(0)\n"
       reprex(input = code)
     Condition
       Error in `reprex_render()`:
       ! This reprex appears to crash R. Call `reprex()` again with `std_out_err = TRUE` to get more info.
 
+# reprex() copes with an R crash, when `std_out_err = TRUE`
+
+    Code
+      out
+    Output
+      [1] "This reprex appears to crash R."
+      [2] "See standard output and standard error for more details."
+      [3] ""
+      [4] "#### Standard output and error"
+      [5] ""
+      [6] "``` sh"
+      [7] ""
+      [8] " *** caught segfault ***"
+      [9] "address ADDRESS, cause 'CAUSE'"
+      [10] ""
+      [11] "Traceback:"
+
diff --git a/tests/testthat/test-reprex.R b/tests/testthat/test-reprex.R
index dd44fc1..e9df293 100644
--- a/tests/testthat/test-reprex.R
+++ b/tests/testthat/test-reprex.R
@@ -61,19 +61,34 @@ test_that("reprex() works even if user uses fancy quotes", {
 })
 
 test_that("reprex() errors for an R crash, by default", {
+  skip_on_cran()
   expect_snapshot(error = TRUE, {
-    code <- 'utils::getFromNamespace("crash", "callr")()\n'
+    code <- 'rlang::node_car(0)\n'
     reprex(input = code)
   })
 })
 
 test_that("reprex() copes with an R crash, when `std_out_err = TRUE`", {
-  code <- 'utils::getFromNamespace("crash", "callr")()\n'
+  skip_on_cran()
+  code <- 'rlang::node_car(0)\n'
   expect_no_error(
     out <- reprex(input = code, std_out_err = TRUE)
   )
+
   skip_on_os("windows")
-  expect_match(out, "crash", all = FALSE)
-  expect_match(out, "segfault", all = FALSE)
-  expect_match(out, "Traceback", all = FALSE)
+
+  scrubber <- function(x) {
+    # I don't want to snapshot the actual traceback
+    out <- x[seq_len(min(grep("Traceback", x)))]
+    # on macOS and windows, cause is 'invalid permissions'
+    # on ubuntu, cause is 'memory not mapped'
+    out <- sub(
+      "address 0x[0-9a-fA-F]+, cause '.*'",
+      "address ADDRESS, cause 'CAUSE'",
+      out
+    )
+    trimws(out)
+  }
+
+  expect_snapshot(out, transform = scrubber)
 })