Mercurial > urweb

view tests/random.ur @ 2063:83bdb52962c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check realloc's return code to prevent segfault on out of memoty condition
author Sergey Mironov <grrwlf@gmail.com>
date Sat, 23 Aug 2014 11:59:34 +0000
parents ac141fbb313a
children
line wrap: on
line source
table t : { A : int }

fun main () : transaction page =
    x <- queryX (SELECT *
                 FROM t
                 ORDER BY RANDOM)
         (fn r => <xml>{[r.T.A]}<br/></xml>);
    return <xml><body>{x}</body></xml>