Mercurial > urweb

view caching-tests/bench.ur @ 2292:23eaec04e0f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ran a benchmark!
author Ziv Scully <ziv@mit.edu>
date Tue, 17 Nov 2015 04:08:12 -0500
parents ab6ca12debeb
children 8be54d7bd06e
line wrap: on
line source
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
      {case res of
           None => <xml>?</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]}!
    </body></xml>