correctly hide stackstrace file path and location

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 (<quarto.js full path with location>)
+        at findInputs (<quarto.js full path with location>)
         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 (<quarto.js full path with location>)
+        at async bookRenderItems (<quarto.js full path with location>)
+        at async Object.bookProjectConfig [as config] (<quarto.js full path with location>)
+        at async projectContext (<quarto.js full path with location>)
+        at async inspectConfig (<quarto.js full path with location>)
+        at async Command.actionHandler (<quarto.js full path with location>)
+        at async Command.execute (<quarto.js full path with location>)
         
       Caused by error:
       ! System command 'quarto.exe' failed

tests/testthat/helper.R

@@ -165,20 +165,13 @@ transform_quarto_cli_in_output <- function(
           lines
         )
 
-        # Remove any file:/// (in stackstrace outputs)
-        lines <- gsub(
-          "file:[/]{2,3}(<quarto full path>)",
-          "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,
+          "file:[/]{2,3}<quarto full path>[/\\]quarto.js:\\d+:\\d+",
+          "<quarto.js full path with location>",
+          lines
         )
+        # fixup location differrence
       } else {
         # it will be quarto.exe only on windows
         lines <- gsub("quarto\\.(exe|cmd)", "quarto", lines)