13 lines
431 B
Scheme
13 lines
431 B
Scheme
#lang scheme/base
|
|
|
|
(require schemeunit
|
|
schemeunit/text-ui
|
|
"all-schemeunit-tests.ss")
|
|
|
|
(run-tests all-schemeunit-tests)
|
|
|
|
;; These tests should all error, so we switch the meaning of correct and incorrect. If the error display changes significantly, DrDr will catch it
|
|
(parameterize ([current-error-port (current-output-port)]
|
|
[current-output-port (current-error-port)])
|
|
(run-tests failure-tests))
|