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
--- 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>