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