From e9356d145d82c8e143085042ecb7561a0f662030 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 5 Jun 2008 21:43:06 +0000 Subject: [PATCH] Run when just required. svn: r10162 --- collects/tests/match/plt-match-tests.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/tests/match/plt-match-tests.ss b/collects/tests/match/plt-match-tests.ss index 9d03c4602b..8cb13f1c0d 100644 --- a/collects/tests/match/plt-match-tests.ss +++ b/collects/tests/match/plt-match-tests.ss @@ -225,8 +225,9 @@ other-tests other-plt-tests ))) - (when (getenv "PLT_TESTS") - (unless (parameterize ([current-output-port (open-output-string)]) - (= 0 (run-tests))) - (error "Match Tests did not pass."))) + (if (getenv "PLT_TESTS") + (unless (parameterize ([current-output-port (open-output-string)]) + (= 0 (run-tests))) + (error "Match Tests did not pass.")) + (run-tests)) ) \ No newline at end of file