suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Keep running TR tests even if optimizer tests fail.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-02 12:08:51 -04:00
parent 850d4d325d
commit fa016ea576
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/typed-scheme/optimizer/run.rkt
View File

@ -91,5 +91,6 @@
(for/fold ((n-failures 0)) (for/fold ((n-failures 0))
((gen (in-directory tests-dir))) ((gen (in-directory tests-dir)))
(+ n-failures (if (test gen) 0 1)))))) (+ n-failures (if (test gen) 0 1))))))
(unless (= n-failures 0) (if (= n-failures 0)
(error (format "~a tests failed." n-failures)))) (displayln "Typed Racket Optimizer tests passed.")
(printf "~a Typed Racket Optimizer tests failed." n-failures)))

3
collects/tests/typed-scheme/run.rkt
View File

@ -41,8 +41,7 @@
(eprintf "Typed Racket Tests did not pass.\n"))) (eprintf "Typed Racket Tests did not pass.\n")))
(when (opt?) (when (opt?)
(parameterize ([current-command-line-arguments #()]) (parameterize ([current-command-line-arguments #()])
(dynamic-require '(file "optimizer/run.rkt") #f)) (dynamic-require '(file "optimizer/run.rkt") #f)))
(printf "Typed Racket Optimizer tests passed\n"))
(when (bench?) (when (bench?)
(unless (= 0 ((exec) (compile-benchmarks))) (unless (= 0 ((exec) (compile-benchmarks)))
(error "Typed Racket Tests did not pass.\n")))]) (error "Typed Racket Tests did not pass.\n")))])