annotate tests/ascdesc.ur @ 2218:f7113855f3b7

More invalidation progress.
author Ziv Scully <ziv@mit.edu>
date Tue, 11 Nov 2014 04:25:20 -0500
parents 6f046b4bad24
children
rev   line source
adam@1543 1 table t : { A : int }
adam@1543 2
adam@1543 3 fun sortEm b =
adam@1543 4 queryX1 (SELECT * FROM t ORDER BY t.A {if b then sql_asc else sql_desc})
adam@1543 5 (fn r => <xml>{[r.A]}; </xml>)
adam@1543 6
adam@1543 7 fun main () : transaction page = return <xml><body>
adam@1543 8 <a link={sortEm True}>Ascending</a><br/>
adam@1543 9 <a link={sortEm False}>Descending</a>
adam@1543 10 </body></xml>