TS tests now work, and are not noisy when succeeding

svn: r12119 original commit: 0ccbac0647a6a0dd129d9b7531514cfdca24d58d
2008-10-24 19:50:24 +00:00 · 2008-10-24 19:50:24 +00:00 · e94b7c2f70
commit e94b7c2f70
parent fd7442f6ed
1 changed files with 2 additions and 1 deletions
--- 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."))