Fix format_error() edge case

Closes #394.
r-lib · Feb 9, 2022 · 979e2f4 · 979e2f4
1 parent 51c4812
commit 979e2f4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/format-conditions.R b/R/format-conditions.R
@@ -57,7 +57,7 @@ format_error <- function(message, .envir = parent.frame()) {
   })(), collapse = TRUE, strip_newline = TRUE)
 
   # remove "Error: " that was only needed for the wrapping
-  formatted1[1] <- sub("Error: ", "", formatted1[1])
+  formatted1[1] <- sub("Error:[ ]?", "", formatted1[1])
 
   update_rstudio_color(formatted1)
 }

diff --git a/tests/testthat/test-format-conditions.R b/tests/testthat/test-format-conditions.R
@@ -165,3 +165,7 @@ test_that_cli("suppressing Unicode bullets", {
     )))
   }))
 })
+
+test_that("edge cases", {
+  expect_equal(cli::format_error(""), "")
+})
-Original file line number
+Diff line change
@@ Expand Up / @@ -165,3 +165,7 @@ test_that_cli("suppressing Unicode bullets", { @@
         )))
       }))
     })
+    test_that("edge cases", {
+      expect_equal(cli::format_error(""), "")
+    })