diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-07-19 19:12:50 -0700 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-07-19 19:12:50 -0700 |
| commit | 02e3a75b12e9f2dc7077d2cd2a8903db2bff92b4 (patch) | |
| tree | 2637c1ca99e045f7bd68c1b1643f5e71692e1721 /caching-tests | |
| parent | a197d648e075a696f5ca86b23913b668f2baf940 (diff) | |
Add parameterless query to caching test.
Diffstat (limited to 'caching-tests')
| -rw-r--r-- | caching-tests/test.ur | 8 | ||||
| -rw-r--r-- | caching-tests/test.urp | 1 | ||||
| -rw-r--r-- | caching-tests/test.urs | 1 |
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 |