summaryrefslogtreecommitdiff
path: root/tests/channel.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/channel.ur')
-rw-r--r--tests/channel.ur5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/channel.ur b/tests/channel.ur
index 2ea89e87..6b98f5d7 100644
--- a/tests/channel.ur
+++ b/tests/channel.ur
@@ -4,8 +4,11 @@ fun main () : transaction page =
fun onload () =
subscribe ch;
send ch "Hello world!"
+
+ fun haveAnother () =
+ send ch "Here's another."
in
return <xml><body onload={onload ()}>
-
+ <button value="Another?" onclick={haveAnother ()}/>
</body></xml>
end