annotate tests/selexp.ur @ 837:ccf22c2c77b2
Tweak -- precedence; use right env for final exhaustiveness errors
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Tue, 02 Jun 2009 15:43:18 -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)
|
