Add test case for PR12985.

Closes PR 12985.
2014-03-25 21:22:07 -07:00 · 2014-03-25 21:22:07 -07:00 · 55cb28168e
commit 55cb28168e
parent 862d58a2f4
1 changed files with 12 additions and 0 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/pr12985.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/pr12985.rkt
@ -0,0 +1,12 @@
+#;
+(exn-pred 2)
+#lang typed/racket/base
+
+(define-type T (Rec T (U (Pair String T) (Pair Char T))))
+(define-type S (Rec S (Pair (U String Char) S)))
+
+(: f (S -> S))
+(: g (T -> T))
+
+(define (f x) (cons "string" (cons #\a x)))
+(define g f)