Fix failure fall through

Author: hadley

R/snapshot-reporter.R

@@ -92,7 +92,8 @@ SnapshotReporter <- R6::R6Class(
           value_enc
         )
         if (fail_on_new) {
-          return(fail(message, trace_env = trace_env))
+          fail(message, trace_env = trace_env)
+          return(NULL)
         } else {
           testthat_warn(message)
         }

R/snapshot.R

@@ -331,6 +331,10 @@ expect_snapshot_helper <- function(
     variant = variant,
     trace_env = trace_env
   )
+  # Comparison failed
+  if (is.null(comp)) {
+    return(invisible())
+  }
 
   if (!identical(variant, "_default")) {
     variant_lab <- paste0(" (variant '", variant, "')")