From 98f77e4a9aaff56e4a24919932076a4cee2a5598 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gustav=20S=C3=B6rn=C3=A4s?= <gustav@sornas.net>
Date: Tue, 9 Mar 2021 19:46:01 +0100
Subject: move some tests

---
 progs/tests/tuple/basic.sy | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 progs/tests/tuple/basic.sy

(limited to 'progs/tests/tuple/basic.sy')

diff --git a/progs/tests/tuple/basic.sy b/progs/tests/tuple/basic.sy
new file mode 100644
index 0000000..642e381
--- /dev/null
+++ b/progs/tests/tuple/basic.sy
@@ -0,0 +1,24 @@
+start :: fn {
+    a := (1,2)
+    a[0] <=> 1
+    a[1] <=> 2
+
+    b := (1,)
+    b[0] <=> 1
+
+    empty := ()
+    c := (empty,)
+    c[0] <=> ()
+
+    d := (1,2)
+    d[0] <=> d[0]
+
+    {
+        q := d[2-2]
+        d[d[(5 + 3) * 0]] <=> d[d[(5 + 3) * 0]]
+        w := d[0]
+        q + w
+        q - w
+        q * w
+    }
+}
-- 
cgit v1.2.1