diff --git a/collects/tests/typed-scheme/main.ss b/collects/tests/typed-scheme/main.ss index 76e7a139f0..b4fe5d20c1 100644 --- a/collects/tests/typed-scheme/main.ss +++ b/collects/tests/typed-scheme/main.ss @@ -86,7 +86,7 @@ (define (go) (test/gui tests)) (define (go/text) (test/text-ui tests)) -(go/text) + (when (getenv "PLT_TESTS") (unless (parameterize ([current-output-port (open-output-string)]) (= 0 (go/text)))