Run when just required.

svn: r10162
2008-06-05 21:43:06 +00:00 · 2008-06-05 21:43:06 +00:00 · e9356d145d
commit e9356d145d
parent 5a8bc6fabb
1 changed files with 5 additions and 4 deletions
--- 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))
  )