From 447b60afccc89ef18d8f92a260dd1fcdf735898e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 31 Aug 2008 08:32:18 -0400
Subject: Laconic -> Ur

---
 tests/selexp.ur | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 tests/selexp.ur

(limited to 'tests/selexp.ur')

diff --git a/tests/selexp.ur b/tests/selexp.ur
new file mode 100644
index 00000000..11bb7965
--- /dev/null
+++ b/tests/selexp.ur
@@ -0,0 +1,6 @@
+table t1 : {A : int, B : string, C : float}
+table t2 : {A : float, D : int}
+
+val q1 = (SELECT 0 AS Zero FROM t1)
+val q2 = (SELECT t1.A < t2.D AS Lt FROM t1, t2)
+val q3 = (SELECT t1.A < t2.D AS Lt, t1.A, t2.D, t1.C = t2.A AS Eq FROM t1, t2)
-- 
cgit v1.2.3