hedgehogqa#19 -- Only record information on expectation failure

gregmuellegger · Feb 22, 2024 · 4772dfe · 4772dfe
1 parent f396924
commit 4772dfe
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/testthat.R b/R/testthat.R
@@ -34,8 +34,13 @@ run.prop <- function ( property, arguments, curry ) {
 
   register_expectation <- function(e) {
     e           <- as.expectation(e)
-    test_error <<- e
-    ok         <<- ok && expectation_ok(e)
+    e_ok        <- expectation_ok(e)
+    ok         <<- ok && e_ok
+
+    # Register first failure only.
+    if (isFALSE(e_ok) && is.null(test_error)) {
+      test_error <<- e
+    }
   }
 
   handle_error <- function(e) {