tests/testthat/resources/with-stop-error-wch.R

In r-lib/evaluate: Parsing and Evaluation Tools that Provide More Details than the Default

testthat::local_reproducible_output()
withCallingHandlers(
  error = function(cnd) rlang::entrace(cnd),
  evaluate::evaluate(
    function() {
      f <- function() g()
      g <- function() h()
      h <- function() stop("!")
      f()
    },
    stop_on_error = 2L
  )
)