Mercurial > urweb
annotate tests/selexp.ur @ 256:e52243e20858
'eq' type class
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 31 Aug 2008 15:15:41 -0400 |
parents | 71bafe66dbe1 |
children |
rev | line source |
---|---|
adamc@233 | 1 table t1 : {A : int, B : string, C : float} |
adamc@233 | 2 table t2 : {A : float, D : int} |
adamc@233 | 3 |
adamc@233 | 4 val q1 = (SELECT 0 AS Zero FROM t1) |
adamc@233 | 5 val q2 = (SELECT t1.A < t2.D AS Lt FROM t1, t2) |
adamc@233 | 6 val q3 = (SELECT t1.A < t2.D AS Lt, t1.A, t2.D, t1.C = t2.A AS Eq FROM t1, t2) |