don't try to keep stack trace in snapshot, just hide it

Author: cderv

tests/testthat/_snaps/quarto.md

@@ -20,16 +20,7 @@
         ERROR: Book chapter 'intro.qmd' not found
         
         Stack trace:
-        at throwInputNotFound (<quarto.js full path with location>)
-        at findInputs (<quarto.js full path with location>)
-        at eventLoopTick (ext:core/01_core.js:178:7)
-        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>)
+        <stack trace>
         
       Caused by error:
       ! System command 'quarto' failed

tests/testthat/helper.R

@@ -134,7 +134,8 @@ expect_snapshot_qmd_output <- function(name, input, output_file = NULL, ...) {
 transform_quarto_cli_in_output <- function(
   full_path = FALSE,
   version = FALSE,
-  dir_only = FALSE
+  dir_only = FALSE,
+  hide_stack = FALSE
 ) {
   hide_path <- function(lines, real_path) {
     gsub(
@@ -147,6 +148,38 @@ transform_quarto_cli_in_output <- function(
 
   return(
     function(lines) {
+      if (hide_stack) {
+        # Hide possible stack first
+        stack_trace_index <- which(grepl("\\s*Stack trace\\:", lines))
+        if (
+          length(stack_trace_index) > 0 && stack_trace_index < length(lines)
+        ) {
+          at_lines_indices <- which(grepl("^\\s*at ", lines))
+          at_lines_after_stack <- at_lines_indices[
+            at_lines_indices > stack_trace_index
+          ]
+          if (length(at_lines_after_stack) > 0) {
+            # Find the continuous sequence (no gaps)
+            gaps <- diff(at_lines_after_stack) > 1
+            end_pos <- if (any(gaps)) which(gaps)[1] else
+              length(at_lines_after_stack)
+            consecutive_indices <- at_lines_after_stack[1:end_pos]
+
+            stack_line <- lines[stack_trace_index]
+            indentation <- regmatches(stack_line, regexpr("^\\s*", stack_line))
+            lines[consecutive_indices[1]] <- paste0(
+              indentation,
+              "<stack trace>"
+            )
+            if (length(consecutive_indices) > 1) {
+              lines <- lines[
+                -consecutive_indices[2:length(consecutive_indices)]
+              ]
+            }
+          }
+        }
+      }
+
       if (full_path) {
         quarto_found <- find_quarto()
         if (dir_only) {

tests/testthat/test-quarto.R

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