diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-22 16:03:45 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-22 16:03:45 -0400 |
| commit | 015297d90b7b9e87034a100d9ce417af6929eaa6 (patch) | |
| tree | e2cac8cf9ae665630df1564c8942ad1d84484ac0 /tests/channel.ur | |
| parent | 568d06a9fcd0adbb173bd15cdbaf044d6b536176 (diff) | |
Proper recv
Diffstat (limited to 'tests/channel.ur')
| -rw-r--r-- | tests/channel.ur | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/channel.ur b/tests/channel.ur index 6b98f5d7..df50ea27 100644 --- a/tests/channel.ur +++ b/tests/channel.ur @@ -1,10 +1,19 @@ fun main () : transaction page = ch <- channel; let - fun onload () = + fun make () = subscribe ch; send ch "Hello world!" + fun echo () = + msg <- recv ch; + alert(msg); + echo () + + fun onload () = + make (); + echo () + fun haveAnother () = send ch "Here's another." in |