4 files changed, 27 insertions, 0 deletions
diff --git a/tests/both.ur b/tests/both.ur
new file mode 100644
index 00000000..d1c9f40e
--- /dev/null
+++ b/tests/both.ur
@@ -0,0 +1,9 @@
+fun main () : transaction page = return <xml>
+ <body>
+   <form>
+     <textbox{#Text}/><submit action={submit}/>
+   </form>
+ </body>
+</xml>
+
+and submit r = return <xml/>
diff --git a/tests/both.urp b/tests/both.urp
new file mode 100644
index 00000000..a29c8ea1
--- /dev/null
+++ b/tests/both.urp
@@ -0,0 +1,2 @@
+
+both
diff --git a/tests/both2.ur b/tests/both2.ur
new file mode 100644
index 00000000..c3f25cc9
--- /dev/null
+++ b/tests/both2.ur
@@ -0,0 +1,14 @@
+fun main () : transaction page =
+    let
+        fun submit r = return <xml/>
+    in
+        return <xml>
+          <body>
+            <form>
+              <textbox{#Text}/><submit action={submit}/>
+            </form>
+          </body>
+        </xml>
+    end
+
+
diff --git a/tests/both2.urp b/tests/both2.urp
new file mode 100644
index 00000000..8e85a838
--- /dev/null
+++ b/tests/both2.urp
@@ -0,0 +1,2 @@
+
+both2