summaryrefslogtreecommitdiff
path: root/caching-tests
diff options
context:
space:
mode:
Diffstat (limited to 'caching-tests')
-rw-r--r--caching-tests/test.ur8
-rw-r--r--caching-tests/test.urp1
-rw-r--r--caching-tests/test.urs1
3 files changed, 10 insertions, 0 deletions
diff --git a/caching-tests/test.ur b/caching-tests/test.ur
index f6568db4..578d59b3 100644
--- a/caching-tests/test.ur
+++ b/caching-tests/test.ur
@@ -19,6 +19,14 @@ fun flush id =
Changed {[id]}!
</body></xml>
+val flush17 =
+ dml (UPDATE tab
+ SET Val = Val * (Id + 2) / Val - 3
+ WHERE Id = 17);
+ return <xml><body>
+ Changed specifically 17!
+ </body></xml>
+
(* fun flush id = *)
(* res <- oneOrNoRows (SELECT tab.Val *)
(* FROM tab *)
diff --git a/caching-tests/test.urp b/caching-tests/test.urp
index 796a6257..2e07dad3 100644
--- a/caching-tests/test.urp
+++ b/caching-tests/test.urp
@@ -1,5 +1,6 @@
database test.db
sql test.sql
safeGet Test/flush
+safeGet Test/flush17
test
diff --git a/caching-tests/test.urs b/caching-tests/test.urs
index 6d4cedf2..e9e09ac8 100644
--- a/caching-tests/test.urs
+++ b/caching-tests/test.urs
@@ -1,2 +1,3 @@
val cache : int -> transaction page
val flush : int -> transaction page
+val flush17 : transaction page