Concrete demo of what I'm seeing

r-lib · Feb 16, 2024 · 4c6083e · 4c6083e
1 parent 1b5e691
commit 4c6083e
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/code.md b/tests/testthat/_snaps/code.md
@@ -34,3 +34,31 @@
       b
       c
 
+# Jenny's problem [plain]
+
+    Code
+      cli_code_wrapper("if (1) {true_val} else {false_val}")
+    Message
+      if (1) TRUE else 'FALSE'
+
+# Jenny's problem [ansi]
+
+    Code
+      cli_code_wrapper("if (1) {true_val} else {false_val}")
+    Message
+      [33mif[39m [33m([39m[35m1[39m[33m)[39m [35mTRUE[39m [33melse[39m [36m'FALSE'[39m
+
+# Jenny's problem [unicode]
+
+    Code
+      cli_code_wrapper("if (1) {true_val} else {false_val}")
+    Message
+      if (1) TRUE else 'FALSE'
+
+# Jenny's problem [fancy]
+
+    Code
+      cli_code_wrapper("if (1) {true_val} else {false_val}")
+    Message
+      [33mif[39m [33m([39m[35m1[39m[33m)[39m [35mTRUE[39m [33melse[39m [36m'FALSE'[39m
+
diff --git a/tests/testthat/test-code.R b/tests/testthat/test-code.R
@@ -7,3 +7,14 @@ test_that_cli("issue #154", {
     cli_code("a\nb\nc")
   })
 })
+
+test_that_cli("Jenny's problem", {
+  cli_code_wrapper <- function(x, .envir = parent.frame()) {
+    x <- glue::glue(x, .envir = .envir)
+    cli_code(x, .envir = .envir) # <- passing .envir along is problematic
+  }
+
+  true_val <- "TRUE"
+  false_val <- "'FALSE'"
+  expect_snapshot(cli_code_wrapper("if (1) {true_val} else {false_val}"))
+})