summaryrefslogtreecommitdiff
path: root/caching-tests
diff options
context:
space:
mode:
Diffstat (limited to 'caching-tests')
-rw-r--r--caching-tests/bench.ur8
1 files changed, 4 insertions, 4 deletions
diff --git a/caching-tests/bench.ur b/caching-tests/bench.ur
index d9c298c8..2661bd0e 100644
--- a/caching-tests/bench.ur
+++ b/caching-tests/bench.ur
@@ -3,14 +3,14 @@ table tab : {Id : int, Val : int} PRIMARY KEY Id
fun check id =
res <- oneOrNoRows (SELECT tab.Val FROM tab WHERE tab.Id = {[id]});
return <xml><body>
- cache
+ Value at {[id]} is
{case res of
- None => <xml>?</xml>
- | Some row => <xml>{[row.Tab.Val]}</xml>}
+ None => <xml>unknown</xml>
+ | Some row => <xml>{[row.Tab.Val]}</xml>}.
</body></xml>
fun flush id =
dml (UPDATE tab SET Val = Val + 1 WHERE Id = {[id]});
return <xml><body>
- Changed {[id]}!
+ Incremented value at {[id]} (if it exists).
</body></xml>