10 lines
368 B
Scheme
10 lines
368 B
Scheme
(module automatic-tests mzscheme
|
|
(require "through-tests.ss"
|
|
"test-engine.ss")
|
|
|
|
(parameterize ([display-only-errors #t]
|
|
[current-output-port (open-output-string)])
|
|
(if (run-all-tests-except '(bad-and bad-cons check-error begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3))
|
|
(exit 1)
|
|
(exit 0))))
|