snapshot_replay(<rlang_error>)

[romainfrancois]

library(rlang)
library(testthat)
#> 
#> Attaching package: 'testthat'
#> The following objects are masked from 'package:rlang':
#> 
#>     is_false, is_null, is_true

f <- function() abort("f()")
g <- function() tryCatch(f(), error = function(e) abort("g()", parent = e))

test_that("", {
  local_edition(3)
  
  expect_snapshot(error = TRUE, {
    g()
  })
  
})
#> Can't compare snapshot to reference when testing interactively
#> ℹ Run `devtools::test()` or `testthat::test_file()` to see changes
#> ℹ Current value:
#> Code
#>   g()
#> Error
#>   <error/rlang_error>
#>   Error: 
#>     g()
#>   Caused by error in `f()`: 
#>     f()
#> ── Skip (test-that.R:53:3):  ───────────────────────────────────────────────────
#> Reason: empty test

^{Created on 2021-10-07 by the reprex package (v2.0.1.9000)}

[romainfrancois]

closes #1471