4 files changed, 16 insertions, 3 deletions
diff --git a/tests/option.ur b/tests/option.ur
index 76fcc6ea..d9e901bf 100644
--- a/tests/option.ur
+++ b/tests/option.ur
@@ -9,15 +9,15 @@ val show = fn x => case x of None => "None" | Some x => x
 
 val show2 = fn x => case x of None => "None'" | Some x => show x
 
-val page = fn x => <html><body>
+val page = fn x => return <html><body>
         {cdata (show x)}
 </body></html>
 
-val page2 = fn x => <html><body>
+val page2 = fn x => return <html><body>
         {cdata (show2 x)}
 </body></html>
 
-val main : unit -> page = fn () => <html><body>
+val main : unit -> transaction page = fn () => return <html><body>
         <li><a link={page none_Hi}>None1</a></li>
         <li><a link={page some_Hi}>Some1</a></li>
         <li><a link={page2 none_some_Hi}>None2</a></li>
diff --git a/tests/option.urp b/tests/option.urp
new file mode 100644
index 00000000..865e089f
--- /dev/null
+++ b/tests/option.urp
@@ -0,0 +1,5 @@
+debug
+database dbname=test
+exe /tmp/webapp
+
+option
diff --git a/tests/toString.ur b/tests/toString.ur
new file mode 100644
index 00000000..830f4713
--- /dev/null
+++ b/tests/toString.ur
@@ -0,0 +1,3 @@
+fun main () : transaction page = return <html><body>
+        6 = {cdata (intToString 6)}
+</body></html>
diff --git a/tests/toString.urp b/tests/toString.urp
new file mode 100644
index 00000000..e29d34cd
--- /dev/null
+++ b/tests/toString.urp
@@ -0,0 +1,5 @@
+debug
+database dbname=test
+exe /tmp/webapp
+
+toString