diff options
| author |  Ziv Scully <ziv@mit.edu> | 2014-11-11 04:25:20 -0500 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2014-11-11 04:25:20 -0500 |
| commit | a747e57a19be5a2bf0166efd86547b5d851a5902 (patch) | |
| tree | 0471e953d1ca0602b335ebfa52cb202d887d08a2 /caching-tests | |
| parent | 1b27dccf5a92bf74b247c957d3760c7d0958d78a (diff) | |
More invalidation progress.
Diffstat (limited to 'caching-tests')
| -rw-r--r-- | caching-tests/test.sql | 6 | ||||
| -rw-r--r-- | caching-tests/test.ur | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/caching-tests/test.sql b/caching-tests/test.sql index efa271ec..7ade7278 100644 --- a/caching-tests/test.sql +++ b/caching-tests/test.sql @@ -1,14 +1,14 @@ -CREATE TABLE uw_Test_foo01(uw_id integer NOT NULL, uw_bar text NOT NULL, +CREATE TABLE uw_Test_foo01(uw_id int8 NOT NULL, uw_bar text NOT NULL, PRIMARY KEY (uw_id) ); - CREATE TABLE uw_Test_foo10(uw_id integer NOT NULL, uw_bar text NOT NULL, + CREATE TABLE uw_Test_foo10(uw_id int8 NOT NULL, uw_bar text NOT NULL, PRIMARY KEY (uw_id) ); - CREATE TABLE uw_Test_tab(uw_id integer NOT NULL, uw_val integer NOT NULL, + CREATE TABLE uw_Test_tab(uw_id int8 NOT NULL, uw_val int8 NOT NULL, PRIMARY KEY (uw_id) ); diff --git a/caching-tests/test.ur b/caching-tests/test.ur index 06ed456c..931612bc 100644 --- a/caching-tests/test.ur +++ b/caching-tests/test.ur @@ -3,7 +3,7 @@ table foo10 : {Id : int, Bar : string} PRIMARY KEY Id 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 @@ fun cache11 () = </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> |