www

commit 540e8a24b7841c6f6abd472d62ac3cd4e8d7b986
parent 36ae2e8080168e0dbd937be4e82a16d24161f26e
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu,  6 Apr 2017 16:10:19 +0200

Added an extra test.

Diffstat:
M
test/invariant-phantom/simple.rkt
 | 
19
+++++++++++++++++++

1 file changed, 19 insertions(+), 0 deletions(-)
diff --git a/test/invariant-phantom/simple.rkt b/test/invariant-phantom/simple.rkt
@@ -51,6 +51,25 @@
        (U (List (Pairof 'd AnyType) (Pairof 'e AnyType))
           (Pairof (Pairof 'b AnyType) (Pairof (Pairof 'c AnyType) R))))))))
 
+(check-same-type
+ (Π (dot :a) ((λdot b c) ((λdot w)) * (λdot x y))* (λdot d e))
+ (Rec
+  R
+  (U (Pairof Any R)
+     (Pairof
+      (Pairof AnyField a)
+      (U (List (Pairof 'd AnyType) (Pairof 'e AnyType))
+         (Pairof
+          (Pairof 'b AnyType)
+          (Pairof
+           (Pairof 'c AnyType)
+           (Rec
+            R
+            (U (Pairof (Pairof 'w AnyType) R)
+               (Pairof
+                (Pairof 'x AnyType)
+                (Pairof (Pairof 'y AnyType) R)))))))))))
+
 #|
 
 (check-ann witness-value (Invariants)) ;; No invariants