suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't statically require mred in tests.

Browse Source 
svn: r9928

original commit: a973a8cbd579bcf974456132f087843deee23ecc
This commit is contained in:
Sam Tobin-Hochstadt 2008-05-22 16:36:06 +00:00
parent 103a959de1
commit 6a6ebbae46
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/typed-scheme/main.ss
View File

@ -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")

4
collects/tests/typed-scheme/unit-tests/test-utils.ss
View File

@ -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)