summaryrefslogtreecommitdiff
path: root/tests/url.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/url.ur')
-rw-r--r--tests/url.ur13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/url.ur b/tests/url.ur
new file mode 100644
index 00000000..c45681e0
--- /dev/null
+++ b/tests/url.ur
@@ -0,0 +1,13 @@
+val url = "http://www.yahoo.com/"
+
+fun readersChoice r = return <xml><body>
+ <a href={bless r.Url}>Your pick, boss</a>
+</body></xml>
+
+fun main () : transaction page = return <xml><body>
+ <a href="http://www.google.com/">Google!</a>
+ <a href={bless url}>Yahoo!</a><br/>
+ <br/>
+
+ <form><textbox{#Url}/> <submit action={readersChoice}/></form>
+</body></xml>