Tweak message

Author: hadley

R/expect-match.R

@@ -121,7 +121,7 @@ expect_match_ <- function(
   }
 
   msg <- sprintf(
-    if (negate) "%s matches %s %s (expecting no match).\n%s" else "%s does not match %s %s.\n%s",
+    if (negate) "%s matches %s %s.\n%s" else "%s does not match %s %s.\n%s",
     act$lab,
     if (fixed) "string" else "regexp",
     encodeString(regexp, quote = '"'),

tests/testthat/_snaps/expect-match.md

@@ -47,11 +47,11 @@
 
 # expect_no_match works
 
-    `x` does match string "e*".
+    `x` matches string "e*".
     Text: "te*st"
 
 ---
 
-    `x` does match regexp "TEST".
+    `x` matches regexp "TEST".
     Text: "test"