diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-01-01 10:49:36 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-01-01 10:49:36 -0500 |
| commit | 66ea568ab5cd2b187a305ef6d22c8cfaf2a6c629 (patch) | |
| tree | a1c114af140aee012d6f75b186cb3c4fd4e9d9d4 /tests | |
| parent | 76a84dd3fb97b56605292c4f0eab2febe3c6a7ed (diff) | |
Proper client-side attrifyString
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/sendurl.ur | 11 | ||||
| -rw-r--r-- | tests/sendurl.urp | 4 | ||||
| -rw-r--r-- | tests/sendurl.urs | 1 |
3 files changed, 16 insertions, 0 deletions
diff --git a/tests/sendurl.ur b/tests/sendurl.ur new file mode 100644 index 00000000..8264305a --- /dev/null +++ b/tests/sendurl.ur @@ -0,0 +1,11 @@ +fun main () = + let + fun getIt () = return (bless "http://www.yahoo.com/") + in + s <- source <xml/>; + return <xml><body> + <dyn signal={signal s}/> + + <button onclick={v <- rpc (getIt ()); set s <xml><a href={v}>Go!</a></xml>}/> + </body></xml> + end diff --git a/tests/sendurl.urp b/tests/sendurl.urp new file mode 100644 index 00000000..4bb6273e --- /dev/null +++ b/tests/sendurl.urp @@ -0,0 +1,4 @@ +debug +allow url http://www.yahoo.com/ + +sendurl diff --git a/tests/sendurl.urs b/tests/sendurl.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/sendurl.urs @@ -0,0 +1 @@ +val main : unit -> transaction page |