diff --git a/tests/testthat/_snaps/code.md b/tests/testthat/_snaps/code.md
index a6cc7fc50..33f5bd28b 100644
--- 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
+      if (1) TRUE else 'FALSE'
+
+# 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
+      if (1) TRUE else 'FALSE'
+
diff --git a/tests/testthat/test-code.R b/tests/testthat/test-code.R
index 45a3fe952..9c4dcf796 100644
--- 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}"))
+})