Mercurial > urweb

diff caching-tests/test.ur @ 2215:639e62ca2530
Mostly finish effectfulness analysis.
author: Ziv Scully <ziv@mit.edu>
date: Fri, 31 Oct 2014 09:25:03 -0400
parents: 365727ff68f4
children: f7113855f3b7
--- a/caching-tests/test.ur	Tue Oct 14 18:07:09 2014 -0400
+++ b/caching-tests/test.ur	Fri Oct 31 09:25:03 2014 -0400
@@ -12,12 +12,11 @@
     </body></xml>
 
 fun cache10 () =
-    res <- oneOrNoRows (SELECT foo10.Bar FROM foo10 WHERE foo10.Id = 42);
+    res <- queryX (SELECT foo10.Bar FROM foo10 WHERE foo10.Id = 42)
+                  (fn row => <xml>{[row.Foo10.Bar]}</xml>);
     return <xml><body>
       Reading 2.
-      {case res of
-           None => <xml>?</xml>
-         | Some row => <xml>{[row.Foo10.Bar]}</xml>}
+      {res}
     </body></xml>
 
 fun cache11 () =