From 91f9befe34966573d7f95f0396cff49fdd83e7d2 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Thu, 17 Oct 2013 21:11:28 -0700 Subject: [PATCH] Make rackunit not print a full stack trace in text-ui. original commit: 30cecabb88b012b9bc6fabe9b3240f63c8cede79 --- pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt index 0c6a6f4..b0935af 100644 --- 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)])