skip test after first expectation fails

Author: machow

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: IRkernel.testthat
 Title: What the Package Does (one line, title case)
-Version: 0.0.2
+Version: 0.1.0
 Authors@R: person("Michael", "Chow", email = "michael@datacamp.com", role = c("aut", "cre"))
 Description: Implements reporter for communicating testthat results to a jupyter client.
 License: All Rights Reserved

R/reporter-project.R

@@ -11,6 +11,12 @@ ProjectReporter <- R6::R6Class("ProjectReporter", inherit = testthat::ListReport
       super$initialize(...)
       self$all_tests = testthat:::Stack$new()
     },
+    add_result = function(context, test, result) {
+      super$add_result(context, test, result)
+      if (!testthat:::expectation_ok(result)) {
+        testthat::skip("")
+      }
+    },
     end_reporter = function() {
         test_res <- lapply(self$results$as_list(),
                            self$dump_test)
@@ -49,7 +55,7 @@ ProjectReporter <- R6::R6Class("ProjectReporter", inherit = testthat::ListReport
 
         list(name = test$test,
              message = message,
-             success = !any(res$failed, res$error),
+             success = success,
              outcome = outcome)
     }
   ),