suzanne.soy/typed-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 
original commit: f3ae9c73b0f58d2d56e2ee3cee605c58a9bb3a1d
This commit is contained in:
Vincent St-Amour 2010-10-12 15:56:00 -04:00
parent 428e96980b
commit d60793d271
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
(if to-run
(if (test (format "tests/~a.rkt" to-run)) 0 1)
(if (test to-run) 0 1)
(for/fold ((n-failures 0))
((gen (in-directory tests-dir)))
(+ n-failures (if (test gen) 0 1))))))