keep hiding full path in some case

Author: cderv

tests/testthat/_snaps/quarto.md

@@ -85,7 +85,7 @@
     Code
       quarto_binary_sitrep(debug = TRUE)
     Message
-      v quarto R package will use '<quarto full path>\quarto.exe'
+      v quarto R package will use '<quarto full path>'
       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.
@@ -97,7 +97,7 @@
     Code
       quarto_binary_sitrep(debug = TRUE)
     Message
-      v quarto R package will use '<quarto full path>\quarto.exe'
+      v quarto R package will use '<quarto full path>'
       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>/quarto.exe render input.qmd --quiet --to native
+      Running <quarto full path> render input.qmd --quiet --to native
 

tests/testthat/helper.R

@@ -133,7 +133,8 @@ expect_snapshot_qmd_output <- function(name, input, output_file = NULL, ...) {
 
 transform_quarto_cli_in_output <- function(
   full_path = FALSE,
-  version = FALSE
+  version = FALSE,
+  dir_only = FALSE
 ) {
   hide_path <- function(lines, real_path) {
     gsub(
@@ -148,7 +149,9 @@ transform_quarto_cli_in_output <- function(
     function(lines) {
       if (full_path) {
         quarto_found <- find_quarto()
-        quarto_found <- dirname(quarto_found)
+        if (dir_only) {
+          quarto_found <- dirname(quarto_found)
+        }
         quarto_found_normalized <- normalizePath(quarto_found, mustWork = FALSE)
         # look for non-normalized path
         lines <- hide_path(lines, quarto_found)

tests/testthat/test-quarto.R

@@ -26,7 +26,8 @@ test_that("quarto_run report full quarto cli error message", {
     error = TRUE,
     quarto_inspect(),
     transform = transform_quarto_cli_in_output(
-      full_path = TRUE
+      full_path = TRUE,
+      dir_only = TRUE
     )
   )
 })