And test

Author: hadley

tests/testthat/_snaps/expect-match.md

@@ -149,6 +149,14 @@
       Actual text:
       x | test
 
+# show_text() shows success and failure
+
+    Code
+      base::writeLines(show_text(c("a", "b"), c(TRUE, FALSE)))
+    Output
+      ✔ │ a
+      ✖ │ b
+
 # show_text() truncates values and lines
 
     Code

tests/testthat/test-expect-match.R

@@ -69,6 +69,13 @@ test_that("empty string is never a match", {
 
 # show_text() ------------------------------------------------------------------
 
+test_that("show_text() shows success and failure", {
+  local_reproducible_output(unicode = TRUE)
+  expect_snapshot({
+    base::writeLines(show_text(c("a", "b"), c(TRUE, FALSE)))
+  })
+})
+
 test_that("show_text() truncates values and lines", {
   local_reproducible_output(unicode = TRUE)
   lines <- map_chr(