suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Eric Dobson 2013-10-17 21:11:28 -07:00
parent bcc949bc03
commit 30cecabb88
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt
View File

@ -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)])