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

Unbreak stepper tests.

Browse Source 
... via a spectacularly ugly hack.
This commit is contained in:
Mike Sperber 2010-07-14 14:07:13 +02:00
parent 90b586365f
commit de94854243
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/stepper/automatic-tests.rkt
View File

@ -3,9 +3,12 @@
(require "through-tests.ss"
"test-engine.ss")
(parameterize ([display-only-errors #t]
[current-output-port (open-output-string)]
[current-namespace (make-base-namespace)])
(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 0)
(exit 1)))
(let ((outer-namespace (current-namespace)))
(parameterize ([display-only-errors #t]
[current-output-port (open-output-string)]
[current-namespace (make-base-namespace)])
;; make sure the tests' print-convert sees the teaching languages' properties
(namespace-attach-module outer-namespace 'mzlib/pconvert-prop (current-namespace))
(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 0)
(exit 1))))