Mercurial > urweb
diff sqlcache-tests/test.ur @ 2202:606af2c9b828
Identifies tables read or touched by queries.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Sat, 08 Mar 2014 05:06:22 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sqlcache-tests/test.ur Sat Mar 08 05:06:22 2014 -0500 @@ -0,0 +1,22 @@ +table foo : {Id : int, Bar : string} PRIMARY KEY Id + +(* val query = (SELECT * FROM foo WHERE foo.Bar = "baz") *) +(* val insert = (INSERT INTO foo (Id, Bar) VALUES (42, "baz")) *) + +fun main () : transaction page = + dml (INSERT INTO foo (Id, Bar) VALUES (42, "baz")); + res <- oneOrNoRows (SELECT foo.Id, foo.Bar + FROM foo + WHERE foo.Bar = "baz" + UNION + SELECT * + FROM foo + WHERE foo.Bar = "qux"); + return + <xml> + <body> + {case res of + None => <xml></xml> + | Some row => <xml>{[row.Foo.Bar]}</xml>} + </body> + </xml>