suzanne.soy/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
This commit is contained in:
Sam Tobin-Hochstadt 2008-05-22 16:36:06 +00:00
parent 6a93d0c531
commit a973a8cbd5
3 changed files with 8 additions and 5 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)

2
collects/typed-scheme/private/planet-requires.ss
View File

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