From 5895f67bfe220152dd3967160f4be70d3cb31313 Mon Sep 17 00:00:00 2001 From: John Clements Date: Fri, 12 Sep 2008 18:19:33 +0000 Subject: [PATCH] fixed stepper tests svn: r11694 --- collects/tests/run-automated-tests.ss | 2 +- collects/tests/stepper/automatic-tests.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss index 2656de69b5..232e124671 100755 --- a/collects/tests/run-automated-tests.ss +++ b/collects/tests/run-automated-tests.ss @@ -32,7 +32,7 @@ '([load "mzscheme/quiet.ss" (lib "scheme/init")] [require "typed-scheme/main.ss"] [require "match/plt-match-tests.ss"] - [require "stepper/automatic-tests.ss"])) + [require "stepper/automatic-tests.ss" (lib "scheme/base")])) (require scheme/runtime-path) diff --git a/collects/tests/stepper/automatic-tests.ss b/collects/tests/stepper/automatic-tests.ss index 685b42d5a2..3ba2ce909c 100644 --- a/collects/tests/stepper/automatic-tests.ss +++ b/collects/tests/stepper/automatic-tests.ss @@ -3,6 +3,6 @@ (parameterize ([display-only-errors #t] [current-output-port (open-output-string)]) - (if (run-all-tests-except '(check-error begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3)) + (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))))