Make rackunit not print a full stack trace in text-ui.

original commit: 30cecabb88b012b9bc6fabe9b3240f63c8cede79
2013-10-17 21:11:28 -07:00 · 2013-10-17 21:11:28 -07:00 · 91f9befe34
commit 91f9befe34
parent c0b6e0013e
1 changed files with 1 additions and 1 deletions
--- a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt
+++ b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt
@ -102,7 +102,7 @@
     (let* ([exn (test-failure-result result)]
            [stack (exn:test:check-stack exn)])
       (textui-display-check-info-stack stack verbose?)
-       (when #t
+       (parameterize ([error-print-context-length 0])
         ((error-display-handler) (exn-message exn) exn)))]
    [(test-error? result)
     (let ([exn (test-error-result result)])