From 96537889753c222279e3937495dbc56054b377b9 Mon Sep 17 00:00:00 2001 From: ziv Date: Sun, 15 Nov 2015 18:10:24 -0500 Subject: Add small benchmark (WIP). --- caching-tests/bench.ur | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 caching-tests/bench.ur (limited to 'caching-tests/bench.ur') diff --git a/caching-tests/bench.ur b/caching-tests/bench.ur new file mode 100644 index 00000000..0c7bb674 --- /dev/null +++ b/caching-tests/bench.ur @@ -0,0 +1,24 @@ +table tab : {Id : int, Val : int} PRIMARY KEY Id + +fun check id = + res <- oneOrNoRows (SELECT tab.Val FROM tab WHERE tab.Id = {[id]}); + return + {case res of + None => ? + | Some row => {[row.Tab.Val]}} + + +fun flush id = + dml (UPDATE tab SET Val = Val + 1 WHERE Id = {[id]}); + return + Changed {[id]}! + + +fun main x y = + r <- rand; + let + val id = r % x + val doFlush = (r / x) % y = 0 + in + if doFlush then flush id else check id + end -- cgit v1.2.3