annotate tests/selexp.ur @ 596:d1ec54288b1a
Injected a polymorphic, recursive type
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Thu, 08 Jan 2009 10:15:45 -0500 |
| 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)
|
