summaryrefslogtreecommitdiff
path: root/tests/tuple.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tuple.ur')
-rw-r--r--tests/tuple.ur13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/tuple.ur b/tests/tuple.ur
new file mode 100644
index 00000000..555cfd0c
--- /dev/null
+++ b/tests/tuple.ur
@@ -0,0 +1,13 @@
+val x = (1, 2.0, "Hi")
+
+val x1 = x.1
+val x2 = x.2
+val x3 = x.3
+
+val y : int * float * string = x
+
+val bizarro_x = case x of (a, b, c) => (c, a, b)
+
+val main : unit -> page = fn () => <html><body>
+ {cdata bizarro_x.1}
+</body></html>