Subquery expressions

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/subquery.ur b/tests/subquery.ur
new file mode 100644
index 00000000..302175e5
--- /dev/null
+++ b/tests/subquery.ur
@@ -0,0 +1,10 @@
+table t : { A : int, B : int, C : int }
+
+fun main () =
+    v <- queryX1 (SELECT t.A, t.C
+                  FROM t
+                  WHERE t.B = (SELECT MAX(U.B) AS M
+                               FROM t AS U
+                               WHERE U.A = t.A))
+         (fn r => <xml>{[r.A]},{[r.C]};</xml>);
+    return <xml>{v}</xml>