Mercurial > urweb

diff tests/cffi.ur @ 766:df09c95085f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More FFI compiler options
author Adam Chlipala <adamc@hcoop.net>
date Sat, 02 May 2009 12:10:43 -0400
parents a28982de5645
children eac1974924bb
line wrap: on
line diff
--- a/tests/cffi.ur	Sat May 02 11:27:26 2009 -0400
+++ b/tests/cffi.ur	Sat May 02 12:10:43 2009 -0400
@@ -1,6 +1,12 @@
+fun printer () = Test.foo
+
 fun effect () =
   Test.print;
-  return <xml/>
+  return <xml><body>
+    <button value="Remote" onclick={printer ()}/>
+    <button value="Local" onclick={Test.bar "Hoho"}/>
+    <button value="Either" onclick={Test.print}/>
+  </body></xml>
 
 fun main () = return <xml><body>
   {[Test.out (Test.frob (Test.create "Hello ") "world!")]}