Correct place

Author: hadley

R/test-that.R

@@ -110,7 +110,7 @@ test_code <- function(code, env, reporter = NULL, skip_on_empty = TRUE) {
   }
   handle_expectation <- function(e) {
     the$test_expectations <- the$test_expectations + 1L
-    register_expectation(e, 7)
+    register_expectation(e, 9)
     invokeRestart("muffle_expectation")
   }
   handle_warning <- function(e) {

tests/testthat/_snaps/reporter-debug.md

@@ -5,23 +5,13 @@
     3: fail(msg, info = info, trace_env = trace_env)
     4: expectation("failure", message, srcref = srcref, trace = trace)
     5: exp_signal(exp)
-    6: withRestarts(if (expectation_broken(exp)) {
-        stop(exp)
-    } else {
-        signalC
-    7: withRestartList(expr, restarts)
 
     1: f()
     2: expect_true(FALSE)
     3: expect_waldo_constant_(act, exp, info = info, ignore_attr = TRUE)
     4: fail(msg, info = info, trace_env = trace_env)
     5: expectation("failure", message, srcref = srcref, trace = trace)
     6: exp_signal(exp)
-    7: withRestarts(if (expectation_broken(exp)) {
-        stop(exp)
-    } else {
-        signalC
-    8: withRestartList(expr, restarts)
 
     1: stop("stop")