summaryrefslogtreecommitdiff
path: root/tests/bindpat.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/bindpat.ur')
-rw-r--r--tests/bindpat.ur6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/bindpat.ur b/tests/bindpat.ur
new file mode 100644
index 00000000..bca4bd41
--- /dev/null
+++ b/tests/bindpat.ur
@@ -0,0 +1,6 @@
+fun main () : transaction page =
+ (a, b) <- return (1, 2);
+ {C = c, ...} <- return {C = "hi", D = False};
+ d <- return 2.34;
+ {1 = e, 2 = f} <- return (8, 9);
+ return <xml>{[a]}, {[b]}, {[c]}, {[d]}, {[e]}, {[f]}</xml>