svn: r9310
This commit is contained in:
John Clements 2008-04-15 05:30:40 +00:00
parent c1167e3b18
commit 81123caf55

View File

@ -1670,13 +1670,10 @@
;; run whatever tests are enabled (intended for interactive use):
(define (ggg)
#;(run-all-tests)
(parameterize ([disable-stepper-error-handling #t])
(run-tests '(check-expect)))
#;(parameterize ([store-steps? #t])
(run-tests '(top-def)))
#;(parameterize ([display-only-errors #t])
(run-all-tests-except '(prims qq-splice time set! local-set! lazy1 lazy2 lazy3))))
(parameterize ([disable-stepper-error-handling #t]
#;[display-only-errors #f]
#;[store-steps #f])
(run-tests '(check-expect))))