diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index eddf07a86b..5a6a79fe3d 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -91,5 +91,6 @@ (for/fold ((n-failures 0)) ((gen (in-directory tests-dir))) (+ n-failures (if (test gen) 0 1)))))) - (unless (= n-failures 0) - (error (format "~a tests failed." n-failures)))) + (if (= n-failures 0) + (displayln "Typed Racket Optimizer tests passed.") + (printf "~a Typed Racket Optimizer tests failed." n-failures))) diff --git a/collects/tests/typed-scheme/run.rkt b/collects/tests/typed-scheme/run.rkt index 2a0c53f678..50fd0eb703 100644 --- a/collects/tests/typed-scheme/run.rkt +++ b/collects/tests/typed-scheme/run.rkt @@ -41,8 +41,7 @@ (eprintf "Typed Racket Tests did not pass.\n"))) (when (opt?) (parameterize ([current-command-line-arguments #()]) - (dynamic-require '(file "optimizer/run.rkt") #f)) - (printf "Typed Racket Optimizer tests passed\n")) + (dynamic-require '(file "optimizer/run.rkt") #f))) (when (bench?) (unless (= 0 ((exec) (compile-benchmarks))) (error "Typed Racket Tests did not pass.\n")))])