From 0ccbac0647a6a0dd129d9b7531514cfdca24d58d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 24 Oct 2008 19:50:24 +0000 Subject: [PATCH] TS tests now work, and are not noisy when succeeding svn: r12119 --- collects/tests/run-automated-tests.ss | 2 +- collects/tests/typed-scheme/run.ss | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) 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."))