tests - add a test for error reporting

and improve snapshot transformation

Author: cderv

tests/testthat/_snaps/quarto.md

@@ -9,6 +9,31 @@
       Caused by error:
       ! System command 'quarto' failed
 
+# quarto_run report full quarto cli error message
+
+    Code
+      quarto_inspect()
+    Condition
+      Error in `quarto_inspect()`:
+      x Error running quarto cli.
+        -------------------------
+        ERROR: Book chapter 'intro.qmd' not found
+        
+        Stack trace:
+        at throwInputNotFound (file:///<quarto full path>/quarto.js:100761:19)
+        at findInputs (file:///<quarto full path>/quarto.js:100792:17)
+        at eventLoopTick (ext:core/01_core.js:175:7)
+        at async findChapters (file:///<quarto full path>/quarto.js:100804:13)
+        at async bookRenderItems (file:///<quarto full path>/quarto.js:100807:5)
+        at async Object.bookProjectConfig [as config] (file:///<quarto full path>/quarto.js:100712:25)
+        at async projectContext (file:///<quarto full path>/quarto.js:82390:38)
+        at async inspectConfig (file:///<quarto full path>/quarto.js:110378:21)
+        at async Command.actionHandler (file:///<quarto full path>/quarto.js:110497:20)
+        at async Command.execute (file:///<quarto full path>/quarto.js:8253:13)
+        
+      Caused by error:
+      ! System command 'quarto.exe' failed
+
 # is_using_quarto correctly check directory
 
     Code
@@ -60,7 +85,7 @@
     Code
       quarto_binary_sitrep(debug = TRUE)
     Message
-      v quarto R package will use '<quarto full path>'
+      v quarto R package will use '<quarto full path>\quarto.exe'
       i     It is configured to use the latest version found in the PATH environment variable.
       x RStudio IDE render button seems configured to use '<RSTUDIO_QUARTO path>'.
       !     It is configured through `RSTUDIO_QUARTO` environment variable.
@@ -72,7 +97,7 @@
     Code
       quarto_binary_sitrep(debug = TRUE)
     Message
-      v quarto R package will use '<quarto full path>'
+      v quarto R package will use '<quarto full path>\quarto.exe'
       i     It is configured to use the latest version found in the PATH environment variable.
     Output
       [1] TRUE

tests/testthat/_snaps/render.md

@@ -3,5 +3,5 @@
     Code
       quarto_render("input.qmd", quiet = TRUE, quarto_args = c("--to", "native"))
     Output
-      Running <quarto full path> render input.qmd --quiet --to native
+      Running <quarto full path>/quarto.exe render input.qmd --quiet --to native
 

tests/testthat/test-quarto.R

@@ -14,6 +14,23 @@ 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)
+  # https://github.com/quarto-dev/quarto-r/issues/235
+  tmp_proj <- local_quarto_project(type = "book")
+  withr::local_dir(tmp_proj)
+  # simulate an error by renaming the intro.qmd
+  file.rename(from = "intro.qmd", to = "no_intro.qmd")
+  expect_snapshot(
+    error = TRUE,
+    quarto_inspect(),
+    transform = transform_quarto_cli_in_output(
+      full_path = TRUE
+    )
+  )
+})
+
 test_that("is_using_quarto correctly check directory", {
   qmd <- local_qmd_file(c("content"))
   # Only qmd
@@ -63,7 +80,7 @@ test_that("quarto CLI sitrep", {
           lines,
           fixed = TRUE
         )
-        transform_quarto_cli_in_output(full_path = TRUE, normalize_path = TRUE)(
+        transform_quarto_cli_in_output(full_path = TRUE)(
           lines
         )
       }
@@ -75,8 +92,7 @@ test_that("quarto CLI sitrep", {
     expect_snapshot(
       quarto_binary_sitrep(debug = TRUE),
       transform = transform_quarto_cli_in_output(
-        full_path = TRUE,
-        normalize_path = TRUE
+        full_path = TRUE
       )
     )
   )