fix for automated running

svn: r11903

collects/tests/match/plt-match-tests.ss

@@ -1,4 +1,7 @@
-(module plt-match-tests mzscheme
+#lang scheme/base
+
+(require (for-syntax scheme/base))
+
 (require (planet "test-compat2.ss" ("schematics" "schemeunit.plt" 2 10)))
 (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2 10)))
 
@@ -225,9 +228,5 @@
                                  other-tests 
                                  other-plt-tests
                                  )))
-  (if (getenv "PLT_TESTS")
-      (unless (parameterize ([current-output-port (open-output-string)])
-			    (= 0 (run-tests)))
+(unless (= 0 (run-tests))
   (error "Match Tests did not pass."))
-      (run-tests))
-  )