test: add test for markdown_text()'s handling of ANSI characters

r-lib · Oct 4, 2024 · 022306c · 022306c
1 parent 75d8ec2
commit 022306c
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/markdown.md b/tests/testthat/_snaps/markdown.md
@@ -19,3 +19,12 @@
       Error in `config_math_rendering_()`:
       ! In _pkgdown.yml, template.math-rendering must be one of mathml, mathjax, and katex, not math.
 
+# preserves ANSI characters
+
+    Code
+      markdown_text(pkg, sprintf("prefer %s", cli::col_blue("a")))
+    Output
+      {html_document}
+      <html>
+      [1] <body><p>prefer \u2029[34ma\u2029[39m</p></body>
+
diff --git a/tests/testthat/test-markdown.R b/tests/testthat/test-markdown.R
@@ -63,3 +63,11 @@ test_that("validates math yaml", {
     config_math_rendering_(`math-rendering` = "math")
   })
 })
+
+test_that("preserves ANSI characters", {
+    withr::local_options(cli.num_colors = 256)
+    pkg <- local_pkgdown_site()
+    expect_snapshot(
+      markdown_text(pkg, sprintf("prefer %s", cli::col_blue("a")))
+    )
+})