suzanne.soy/rackunit
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 
original commit: 30cecabb88b012b9bc6fabe9b3240f63c8cede79
This commit is contained in:
Eric Dobson 2013-10-17 21:11:28 -07:00
parent c0b6e0013e
commit 91f9befe34
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)] (let* ([exn (test-failure-result result)]
[stack (exn:test:check-stack exn)]) [stack (exn:test:check-stack exn)])
(textui-display-check-info-stack stack verbose?) (textui-display-check-info-stack stack verbose?)
(when #t (parameterize ([error-print-context-length 0])
((error-display-handler) (exn-message exn) exn)))] ((error-display-handler) (exn-message exn) exn)))]
[(test-error? result) [(test-error? result)
(let ([exn (test-error-result result)]) (let ([exn (test-error-result result)])