Mercurial > urweb
diff caching-tests/test.ur @ 2218:f7113855f3b7
More invalidation progress.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Tue, 11 Nov 2014 04:25:20 -0500 |
parents | 639e62ca2530 |
children | 278e10629ba1 |
line wrap: on
line diff
--- a/caching-tests/test.ur Mon Nov 10 22:07:51 2014 -0500 +++ b/caching-tests/test.ur Tue Nov 11 04:25:20 2014 -0500 @@ -3,7 +3,7 @@ table tab : {Id : int, Val : int} PRIMARY KEY Id fun cache01 () = - res <- oneOrNoRows (SELECT foo01.Bar FROM foo01 WHERE foo01.Id = 42); + res <- oneOrNoRows (SELECT foo01.Bar FROM foo01 WHERE foo01.Id = 43); return <xml><body> Reading 1. {case res of @@ -33,7 +33,8 @@ </body></xml> fun flush01 () = - dml (UPDATE foo01 SET Bar = "baz01" WHERE Id = 42); + dml (INSERT INTO foo01 (Id, Bar) VALUES (42, "baz01")); + (* dml (UPDATE foo01 SET Bar = "baz01" WHERE Id = 42); *) return <xml><body> Flushed 1! </body></xml>