3b630af6f9
moved internal modules to schemeunit/private moved tests to tests/schemeunig added schemeunit/gui drscheme: fixed bug in show-backtrace-window svn: r18243
19 lines
401 B
Scheme
19 lines
401 B
Scheme
#lang scheme/base
|
|
(require scheme/contract
|
|
(rename-in "private/base.ss")
|
|
"private/gui/gui.ss")
|
|
|
|
(define (test/gui . tests)
|
|
(apply (make-gui-runner) tests))
|
|
|
|
(define test/c (or/c schemeunit-test-case? schemeunit-test-suite?))
|
|
|
|
(provide/contract
|
|
[test/gui
|
|
(->* () () #:rest (listof test/c)
|
|
any)]
|
|
[make-gui-runner
|
|
(->
|
|
(->* () () #:rest (listof test/c)
|
|
any))])
|