parent
c4ebd6058e
commit
92ffe436d6
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue
Block a user