Parsing basic patterns

1 files changed, 12 insertions, 0 deletions

diff --git a/tests/case.lac b/tests/case.lac
new file mode 100644
index 00000000..dc3fe03b
--- /dev/null
+++ b/tests/case.lac
@@ -0,0 +1,12 @@
+datatype t = A | B
+
+val swap = fn x : t => case x of A => B | B => A
+
+datatype u = C of t | D
+
+val out = fn x : u => case x of C y => y | D => A
+
+datatype nat = O | S of nat
+
+val is_two = fn x : int_list =>
+        case x of S (S O) => A | _ => B