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

Changed the interface for running single optimizer tests.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-10-12 15:56:00 -04:00
parent 2c4d6fbb01
commit f3ae9c73b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,7 +84,7 @@
(let ((n-failures (let ((n-failures
(if to-run (if to-run
(if (test (format "tests/~a.rkt" to-run)) 0 1) (if (test to-run) 0 1)
(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))))))