Fix snapshot failure difference upstream

Author: hadley

R/expect-self-test.R

@@ -88,7 +88,7 @@ expect_failure <- function(expr, message = NULL, ...) {
 
   if (!is.null(message)) {
     act <- labelled_value(status$last_failure$message, "failure message")
-    return(expect_match_(act, message, ..., title = "message", all = FALSE))
+    return(expect_match_(act, message, ..., title = "message"))
   }
   pass(NULL)
 }

R/expect-that.R

@@ -48,6 +48,7 @@ fail <- function(
 
 snapshot_fail <- function(message, trace_env = caller_env()) {
   trace <- capture_trace(trace_env)
+  message <- paste(message, collapse = "\n")
   expectation("failure", message, trace = trace, snapshot = TRUE)
 }