summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-16 15:45:12 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-16 15:45:12 -0400
commit41f7bb23ff2a9598f8f3bff1487f39f9e91f9f05 (patch)
treec5073d9b7f368aa38bb4d146c0a6b21900ef1f79 /tests
parent6cb3888614811abc30c6a00a1644e256d1d1c780 (diff)
Mutual datatypes through Effectize
Diffstat (limited to 'tests')
-rw-r--r--tests/mutual.ur8
-rw-r--r--tests/mutual.urs1
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/mutual.ur b/tests/mutual.ur
index da8eade4..c3d80c89 100644
--- a/tests/mutual.ur
+++ b/tests/mutual.ur
@@ -1,2 +1,10 @@
datatype foo = A | B of bar
and bar = C | D of foo
+
+val q = B (D A)
+
+fun main () = return <xml>
+ {case q of
+ B (D A) => <xml>Good</xml>
+ | _ => <xml>Bad</xml>}
+</xml>
diff --git a/tests/mutual.urs b/tests/mutual.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/mutual.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page