Fix typed/rackunit contract exception when using run-tests
(#583)
* Add a test that suites and run-tests work in typed/rackunit * Fix Seed type The "seed" parameter of fold-test-results is passed to each test suite but, near as I can tell, never actually interacted with by the suite.
This commit is contained in:
parent
afa0530b3a
commit
6369753c28
|
@ -134,7 +134,7 @@
|
|||
(require/opaque-type TestCase test-case? rackunit)
|
||||
(provide TestCase test-case?)
|
||||
|
||||
(define-type Seed (U #f (Object)))
|
||||
(define-type Seed Any)
|
||||
|
||||
(define-type test-suite-handler-down
|
||||
(rackunit-test-suite (Option String) (Thunk Any) (Thunk Any) Seed -> Seed))
|
||||
|
|
10
typed-racket-test/succeed/rackunit-suite.rkt
Normal file
10
typed-racket-test/succeed/rackunit-suite.rkt
Normal file
|
@ -0,0 +1,10 @@
|
|||
#lang typed/racket
|
||||
|
||||
(require typed/rackunit
|
||||
typed/rackunit/text-ui)
|
||||
|
||||
(define passing-suite
|
||||
(test-suite "Example Typed Rackunit test suite"
|
||||
(check-equal? 1 1)))
|
||||
|
||||
(check-equal? (run-tests passing-suite 'quiet) 0)
|
Loading…
Reference in New Issue
Block a user