handle file:/// vs file:// difference between OS in tests

Author: cderv

tests/testthat/_snaps/quarto.md

@@ -20,16 +20,16 @@
         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 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)
+        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

tests/testthat/helper.R

@@ -164,6 +164,13 @@ transform_quarto_cli_in_output <- function(
           "<quarto full path>\\1",
           lines
         )
+
+        # Remove any file:/// (in stackstrace outputs)
+        lines <- gsub(
+          "file:[/]{2,3}(<quarto full path>)",
+          "file://<quarto full path>",
+          lines
+        )
       } else {
         # it will be quarto.exe only on windows
         lines <- gsub("quarto\\.(exe|cmd)", "quarto", lines)