Mercurial > urweb

diff tests/subquery.ur @ 1192:9c82548c97e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Subquery FROM items
author Adam Chlipala <adamc@hcoop.net>
date Thu, 25 Mar 2010 16:06:04 -0400
parents 61c3139eab12
children
line wrap: on
line diff
--- a/tests/subquery.ur	Thu Mar 25 15:44:24 2010 -0400
+++ b/tests/subquery.ur	Thu Mar 25 16:06:04 2010 -0400
@@ -6,5 +6,14 @@
                   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>
+                 (fn r => <xml>{[r.A]},{[r.C]};</xml>);
+    v' <- queryX1 (SELECT t.A, t.C
+                   FROM (SELECT t.A AS A, MAX(t.B) AS B
+                         FROM t
+                         GROUP BY t.A) AS Maxes
+                   JOIN t ON t.A = Maxes.A AND t.B = Maxes.B)
+                  (fn r => <xml>{[r.A]},{[r.C]};</xml>);
+    return <xml><body>
+      {v}<br/>
+      {v'}
+    </body></xml>