Add support for the rackunit/gui test runner

This commit is contained in:
Alexis King 2015-01-09 11:23:16 -08:00 committed by Sam Tobin-Hochstadt
parent 40a952da0c
commit f9b886f83b

View File

@ -1,5 +1,6 @@
#lang typed/racket
(require typed/private/utils
(require typed/racket/class
typed/private/utils
typed/private/rewriter
"type-env-ext.rkt"
(for-syntax syntax/parse))
@ -108,7 +109,7 @@
(require/typed
rackunit/private/monad
[#:opaque monad monad?])
(define-type Seed (Option monad))
(define-type Seed (U #f monad (Object)))
(define-type test-suite-handler-down
(rackunit-test-suite (Option String) (Thunk Any) (Thunk Any) Seed -> Seed))