summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-09 16:36:50 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-09 16:36:50 -0400
commitd7306dbac8ca9eecbba9d65379d225b5433b19fc (patch)
tree3942a2b3cfdab76d585ffaea82462831d241d351 /tests
parentc11034fa6703761f48fdb79a92b82027eb5216e5 (diff)
URLs
Diffstat (limited to 'tests')
-rw-r--r--tests/img.ur3
-rw-r--r--tests/img.urp3
-rw-r--r--tests/url.ur13
-rw-r--r--tests/url.urp3
-rw-r--r--tests/url.urs1
5 files changed, 23 insertions, 0 deletions
diff --git a/tests/img.ur b/tests/img.ur
new file mode 100644
index 00000000..70896647
--- /dev/null
+++ b/tests/img.ur
@@ -0,0 +1,3 @@
+fun main () : transaction page = return <xml><body>
+ <img src="http://www.google.com/intl/en_ALL/images/logo.gif"/>
+</body></xml>
diff --git a/tests/img.urp b/tests/img.urp
new file mode 100644
index 00000000..ff71adee
--- /dev/null
+++ b/tests/img.urp
@@ -0,0 +1,3 @@
+debug
+
+img
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>
diff --git a/tests/url.urp b/tests/url.urp
new file mode 100644
index 00000000..3d4961ef
--- /dev/null
+++ b/tests/url.urp
@@ -0,0 +1,3 @@
+debug
+
+url
diff --git a/tests/url.urs b/tests/url.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/url.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page