TS tests now work, and are not noisy when succeeding

svn: r12119

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"]

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."))