Two more

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, 9)
+    register_expectation(e, 11)
     invokeRestart("muffle_expectation")
   }
   handle_warning <- function(e) {

tests/testthat/_snaps/reporter-debug.md

@@ -3,15 +3,11 @@
     1: expect_true(x)
     2: expect_waldo_constant_(act, exp, info = info, ignore_attr = TRUE)
     3: fail(msg, info = info, trace_env = trace_env)
-    4: expectation("failure", message, srcref = srcref, trace = trace)
-    5: exp_signal(exp)
 
     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)
 
     1: stop("stop")