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

fix for automated running

Browse Source 
svn: r11903
This commit is contained in:
Sam Tobin-Hochstadt 2008-09-29 15:15:50 +00:00
parent 5844ef4a3d
commit b81ba54dae
1 changed files with 229 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/match/plt-match-tests.ss
View File

@ -1,4 +1,7 @@
(module plt-match-tests mzscheme #lang scheme/base
(require (for-syntax scheme/base))
(require (planet "test-compat2.ss" ("schematics" "schemeunit.plt" 2 10))) (require (planet "test-compat2.ss" ("schematics" "schemeunit.plt" 2 10)))
(require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2 10))) (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2 10)))
@ -225,9 +228,5 @@
other-tests other-tests
other-plt-tests other-plt-tests
))) )))
(if (getenv "PLT_TESTS") (unless (= 0 (run-tests))
(unless (parameterize ([current-output-port (open-output-string)])
(= 0 (run-tests)))
(error "Match Tests did not pass.")) (error "Match Tests did not pass."))
(run-tests))
)