Suppress cli wrapping

Author: hadley

R/snapshot-value.R

@@ -116,6 +116,10 @@ check_roundtrip <- function(
     tolerance = tolerance
   )
   if (length(check) > 0) {
+    # Supress cli wrapping
+    check <- gsub(" ", "\u00a0", check, fixed = TRUE)
+    check <- gsub("\n", "\f", check, fixed = TRUE)
+
     cli::cli_abort(
       c(
         "{.code {label}} could not be safely serialized with {.arg style} = {.str {style}}.",

tests/testthat/_snaps/snapshot-value.md

@@ -78,7 +78,8 @@
       ! `foo` could not be safely serialized with `style` = "json".
         Serializing then deserializing the object returned something new:
         
-        `original` is NULL `new` is a list
+        `original` is NULL
+        `new` is a list
       i You may need to try a different `style`.
 
 # expect_snapshot_value validates its inputs