From 09d88a7b26c974d4cfc24973d461e3809a855c1b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 2 May 2011 12:08:51 -0400 Subject: [PATCH] Keep running TR tests even if optimizer tests fail. original commit: fa016ea5761543428395328555e420336887d8f4 --- collects/tests/typed-scheme/optimizer/run.rkt | 5 +++-- collects/tests/typed-scheme/run.rkt | 3 +-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index eddf07a8..5a6a79fe 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 2a0c53f6..50fd0eb7 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")))])