Try opt out coloring

Author: cderv

tests/testthat/test-quarto.R

@@ -17,6 +17,8 @@ test_that("quarto_run gives guidance in error", {
 test_that("quarto_run report full quarto cli error message", {
   skip_if_no_quarto()
   local_reproducible_output(width = 1000)
+  # Ensure we don't have colors in the output for quarto-cli error
+  withr::local_envvar(list(R_CLI_NUM_COLORS = 1L))
   # https://github.com/quarto-dev/quarto-r/issues/235
   tmp_proj <- local_quarto_project(type = "book")
   withr::local_dir(tmp_proj)