Don't statically require mred in tests.

svn: r9928

collects/tests/typed-scheme/main.ss

@@ -4,10 +4,11 @@
 
 (require (planet schematics/schemeunit/test)
          (planet schematics/schemeunit/text-ui)
-         (planet schematics/schemeunit/graphical-ui)
+         #;(planet schematics/schemeunit/graphical-ui)
          mzlib/etc
          scheme/match
-         "unit-tests/all-tests.ss")
+         "unit-tests/all-tests.ss"
+         "unit-tests/test-utils.ss")
 
 (define (scheme-file? s)
   (regexp-match ".*[.](ss|scm)" (path->string s)))
@@ -76,7 +77,7 @@
   (test-suite "Typed Scheme Tests"
               unit-tests int-tests))
 
-(define (go) (test/graphical-ui tests))
+(define (go) (test/gui tests))
 (define (go/text) (test/text-ui tests))
 
 (when (getenv "PLT_TESTS")

collects/tests/typed-scheme/unit-tests/test-utils.ss

@@ -32,8 +32,10 @@
 (define (run . ts)
   (test/text-ui (mk-suite ts)))
 
+(define (test/gui suite) ((dynamic-require '(planet schematics/schemeunit/graphical-ui) 'test/graphical-ui) suite))
+
 (define (run/gui . ts)
-  (test/graphical-ui (mk-suite ts)))
+  (test/gui (mk-suite ts)))
 
 
 (define-syntax (define-go stx)

collects/typed-scheme/private/planet-requires.ss

@@ -61,7 +61,7 @@
 (define-module schemeunit 
   (planet/multiple ("schematics" "schemeunit.plt" 2 3)
                    "test.ss"
-                   "graphical-ui.ss"
+                   ;"graphical-ui.ss"
                    "text-ui.ss"
                    "util.ss")
   ;; disabled until Carl updates to v4