racket/unit: repair test

Should have been part of bcafba989f.
This commit is contained in:
Matthew Flatt 2014-05-29 09:56:11 +01:00
parent c4ebd6058e
commit 92ffe436d6

View File

@ -37,9 +37,9 @@
(test '(#f (one-a one-b) () ()) (sig-info one^ quote))
(test '(#f (two-a) (two-v1 two-v2) (m)) (sig-info two^ quote))
(test '(#f () () ()) (sig-info three^ quote))
(test '(two^ (two-a four-z) (two-v1 two-v2) (m)) (sig-info four^ quote))
(test '(two^ (two-a four-z) (two-v1 two-v2) (two-a two-v1 two-v2 m m)) (sig-info four^ quote))
(test '(((#f . one^) (#f . three^)) ((#f . two^))) (unit-info one@ quote))
(test '(((Four . four^)) ((One . one^))) (unit-info two@ quote))
(displayln "tests passed")
(displayln "tests passed")