From 6a6ebbae46839822fd8c23ad21102ddb08cde1f3 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 22 May 2008 16:36:06 +0000 Subject: [PATCH] Don't statically require mred in tests. svn: r9928 original commit: a973a8cbd579bcf974456132f087843deee23ecc --- collects/tests/typed-scheme/main.ss | 7 ++++--- collects/tests/typed-scheme/unit-tests/test-utils.ss | 4 +++- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/tests/typed-scheme/main.ss b/collects/tests/typed-scheme/main.ss index 4bfbc9a6..9a52fa48 100644 --- a/collects/tests/typed-scheme/main.ss +++ b/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") diff --git a/collects/tests/typed-scheme/unit-tests/test-utils.ss b/collects/tests/typed-scheme/unit-tests/test-utils.ss index 49c24dae..aba64fb3 100644 --- a/collects/tests/typed-scheme/unit-tests/test-utils.ss +++ b/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)