raco test: show more of stderr on failure

original commit: 66729a4473
2014-10-20 08:24:27 -05:00 · 2014-10-20 08:24:27 -05:00 · eb10901579
commit eb10901579
parent d4adf3db45
1 changed files with 2 additions and 1 deletions
--- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
+++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
@ -263,7 +263,8 @@
                  (or (equal? #"" s)
                      (ormap (lambda (p) (regexp-match? p s))
                             ignore-stderr-patterns)))
-          (error test-exe-name "non-empty stderr: ~e" (get-output-bytes e))))
+          (parameterize ([error-print-width 16384])
+            (error test-exe-name "non-empty stderr: ~e" (get-output-bytes e)))))
      (unless (zero? result-code)
        (error test-exe-name "non-zero exit: ~e" result-code))
      (cond