diff options
Diffstat (limited to 'tests/query.ur')
| -rw-r--r-- | tests/query.ur | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/query.ur b/tests/query.ur index 91c0cee3..afe5fab8 100644 --- a/tests/query.ur +++ b/tests/query.ur @@ -1,10 +1,12 @@ -table t1 : {A : int, B : string, C : float} +table t1 : {A : int, B : string, C : float, D : bool} table t2 : {A : float, D : int} datatype list a = Nil | Cons of a * list a -val q1 = (SELECT * FROM t1) -val r1 : transaction (list {A : int, B : string, C : float}) = +(*val q1 = (SELECT * FROM t1)*) +val q1 = (SELECT * FROM t1 WHERE t1.A = 0) + +val r1 : transaction (list {A : int, B : string, C : float, D : bool}) = query q1 (fn fs acc => return (Cons (fs.T1, acc))) Nil |