Mercurial > urweb

annotate tests/random.ur @ 2279:32a407902d3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite LRU cache. Now uses one big hash table and is less buggy.
author Ziv Scully <ziv@mit.edu>
date Wed, 11 Nov 2015 20:01:48 -0500
parents ac141fbb313a
children
rev   line source
adam@1682 1 table t : { A : int }
adam@1682 2
adam@1682 3 fun main () : transaction page =
adam@1682 4 x <- queryX (SELECT *
adam@1682 5 FROM t
adam@1682 6 ORDER BY RANDOM)
adam@1682 7 (fn r => <xml>{[r.T.A]}<br/></xml>);
adam@1682 8 return <xml><body>{x}</body></xml>