diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss index bacba4089a..f5b8a1e95e 100755 --- a/collects/tests/run-automated-tests.ss +++ b/collects/tests/run-automated-tests.ss @@ -32,7 +32,7 @@ ;; ignored, and should only be used by the mzscheme tests.) (define tests '([no-handler load "mzscheme/quiet.ss" (lib "scheme/init")] - ;; [require "typed-scheme/run.ss"] + [require "typed-scheme/run.ss"] [require "match/plt-match-tests.ss"] ;; [require "stepper/automatic-tests.ss" (lib "scheme/base")] [require "lazy/main.ss"] diff --git a/collects/tests/typed-scheme/run.ss b/collects/tests/typed-scheme/run.ss index d892dd3466..af3dda3bc7 100644 --- a/collects/tests/typed-scheme/run.ss +++ b/collects/tests/typed-scheme/run.ss @@ -2,5 +2,6 @@ (require "main.ss") (current-namespace (make-base-namespace)) -(unless (= 0 (go/text)) +(unless (= 0 (parameterize ([error-display-handler void]) + (go/text))) (error "Typed Scheme Tests did not pass."))