Add clarifying comment

hadley · hadley · commit 7539980c32f9 · 2025-07-29T12:04:09.000-05:00
diff --git a/R/test-that.R b/R/test-that.R
@@ -142,6 +142,7 @@ test_code <- function(test, code, env, reporter, skip_on_empty = TRUE) {
   handle_expectation <- function(e) {
     handled <<- TRUE
     register_expectation(e, 7)
+    # Don't bubble up to any other handlers
     invokeRestart("continue_test")
   }
   handle_warning <- function(e) {

Original file line number	Diff line number	Diff line change
`@@ -142,6 +142,7 @@ test_code <- function(test, code, env, reporter, skip_on_empty = TRUE) {`
`142`	`142`	`handle_expectation <- function(e) {`
`143`	`143`	`handled <<- TRUE`
`144`	`144`	`register_expectation(e, 7)`
	`145`	`+ # Don't bubble up to any other handlers`
`145`	`146`	`invokeRestart("continue_test")`
`146`	`147`	`}`
`147`	`148`	`handle_warning <- function(e) {`