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

Add automated tests for match and typed-scheme.

Browse Source 
svn: r10043
This commit is contained in:
Sam Tobin-Hochstadt 2008-05-30 16:00:43 +00:00
parent 928efc1349
commit d9aa32446f
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -225,5 +225,8 @@
other-tests other-tests
other-plt-tests other-plt-tests
))) )))
(run-tests) (when (getenv "PLT_TESTS")
(unless (parameterize ([current-output-port (open-output-string)])
(= 0 (run-tests)))
(error "Match Tests did not pass.")))
) )

4
collects/tests/run-automated-tests.ss
View File

@ -29,7 +29,9 @@
;; specifications for things to require into the initial namespace ;; specifications for things to require into the initial namespace
;; for the test before the test is loaded. ;; for the test before the test is loaded.
(define tests (define tests
'([load "mzscheme/quiet.ss" (lib "scheme/init")])) '([load "mzscheme/quiet.ss" (lib "scheme/init")]
[require "typed-scheme/main.ss"]
[require "match/plt-match-tests.ss"]))
(require scheme/runtime-path (for-syntax scheme/base)) (require scheme/runtime-path (for-syntax scheme/base))