adamc@750: table t : { A : int, B : string, C : option string }
adamc@748: 
adamc@748: fun main () =
adamc@748:     r <- oneRow (SELECT * FROM t);
adamc@748:     r <- oneRow (SELECT * FROM t AS T1, t AS T2);
adamc@749:     r <- oneRow (SELECT * FROM t AS T1 CROSS JOIN t AS T2);
adamc@749:     r <- oneRow (SELECT * FROM t AS T1 JOIN t AS T2 ON T1.A = T2.A);
adamc@750:     r <- oneRow (SELECT * FROM t AS T1 LEFT JOIN t AS T2 ON T1.A = T2.A);
adamc@751:     r <- oneRow (SELECT * FROM t AS T1 RIGHT OUTER JOIN t AS T2 ON T1.A = T2.A);
adamc@751:     r <- oneRow (SELECT * FROM t AS T1 FULL JOIN t AS T2 ON T1.A = T2.A);
adamc@748:     return <xml/>