Mercurial > urweb

annotate tests/strcspn.ur @ 1839:d8c260bcc1f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix determination of MySQL timestamp hour fields (may still be wrong once DST bit flips)
author Adam Chlipala <adam@chlipala.net>
date Thu, 13 Dec 2012 17:51:34 -0500
parents 446e73902b09
children
rev   line source
adam@1793 1 fun main () : transaction page =
adam@1793 2 s <- source "";
adam@1793 3 return <xml><body>
adam@1793 4 <ctextbox source={s}/>
adam@1793 5 <button onclick={fn _ => v <- get s; alert (show (strcspn v "0123456789"))}/>
adam@1793 6 </body></xml>