+(test-prog '((data Foo [foo Int Int] [bar Bool])
+ (case (foo 42 12)
+ [(foo 20 x) 0]
+ [(foo 42 x) x]
+ [(bar x) 0]))
+ 12)
+
+(test-prog '((data Foo [foo Int])
+ (data Bar [bar Foo])
+ (case (bar (foo 42))
+ [(bar (foo x)) x]))
+ 42)
+ ; todo: make this error for incomplete pattern match
+(test-prog '((data A [foo Int] [bar Int B])
+ (data B [baz Int])
+ (let ([val (bar 42 (baz 12))])
+ (case val
+ [(foo 42) 0]
+ [(bar 32 (baz 12)) 1]
+ [(bar 42 (baz x)) x]
+ [(foo x) 2])))
+ 12)
+