Tweak error wrapper

Author: hadley

R/expect-condition.R

@@ -322,7 +322,7 @@ cnd_matcher <- function(base_class,
           grepl(pattern, conditionMessage(x), ...),
           error = function(e) {
             cli::cli_abort(
-              "Failed to compare message to {.arg pattern}.",
+              "Failed to compare {base_class} to {.arg pattern}.",
               parent = e,
               call = error_call
             )

tests/testthat/_snaps/expect-condition.md

@@ -40,7 +40,7 @@
       expect_condition(stop("Hi!"), "x", foo = "bar")
     Condition
       Error in `expect_condition()`:
-      ! Failed to compare message to `pattern`.
+      ! Failed to compare condition to `pattern`.
       Caused by error in `grepl()`:
       ! unused argument (foo = "bar")