Mercurial > urweb
diff tests/agg.ur @ 1187:ad9829c3c12c
COUNT(col)
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 16 Mar 2010 15:54:35 -0400 |
parents | 7a7efbb3e354 |
children | 601a77af0477 |
line wrap: on
line diff
--- a/tests/agg.ur Tue Mar 16 15:39:16 2010 -0400 +++ b/tests/agg.ur Tue Mar 16 15:54:35 2010 -0400 @@ -1,22 +1,13 @@ table t1 : {A : int, B : string, C : float} -table t2 : {A : float, D : int} +table t2 : {A : float, D : int, E : option string} val q1 = (SELECT COUNT( * ) AS X FROM t1) val q2 = (SELECT AVG(t1.A) AS X FROM t1) val q3 = (SELECT SUM(t1.C) AS X FROM t1) val q4 = (SELECT MIN(t1.B) AS X, MAX(t1.A) AS Y FROM t1) +val q5 = (SELECT SUM(t1.A) AS X FROM t1 GROUP BY t1.B) +val q6 = (SELECT COUNT(t2.E) AS N FROM t2 GROUP BY t2.D) -(*val q5 = (SELECT t1.A FROM t1 GROUP BY t1.B)*) -val q5 = (SELECT SUM(t1.A) AS X FROM t1 GROUP BY t1.B) - - -datatype list a = Nil | Cons of a * list a - -val r1 : transaction (list string) = - query q4 - (fn fs acc => return (Cons (fs.X, acc))) - Nil - -val main : unit -> transaction page = fn () => - n <- r1; - return <html><body>Nothing to see here!</body></html> +fun main () : transaction page = + xml <- queryX q6 (fn r => <xml>{[r.N]};</xml>); + return <xml><body>{xml}</body></xml>