handle path separator between OS

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

@@ -171,6 +171,14 @@ transform_quarto_cli_in_output <- function(
           "file://<quarto full path>",
           lines
         )
+
+        # Handle quarto.js in stackstrace outputs
+        lines <- gsub(
+          "<quarto full path>/quarto.js",
+          "<quarto full path>\\quarto.js",
+          lines,
+          fixed = TRUE,
+        )
       } else {
         # it will be quarto.exe only on windows
         lines <- gsub("quarto\\.(exe|cmd)", "quarto", lines)