1 files changed, 23 insertions, 0 deletions
diff --git a/tests/subforms.ur b/tests/subforms.ur
new file mode 100644
index 00000000..3db55a43
--- /dev/null
+++ b/tests/subforms.ur
@@ -0,0 +1,23 @@
+fun handler' ls =
+    case ls of
+        Nil => <xml/>
+      | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
+
+fun handler r = return <xml><body>
+  {[r.A]}, {handler' r.Sub}, {[r.C]}
+</body></xml>
+
+fun main () = return <xml><body>
+  <form>
+    <textbox{#A}/><br/>
+    <subforms{#Sub}>
+      <entry>
+        <textbox{#A}/><br/>
+        <textbox{#B}/><br/>
+        <textbox{#Sub}/><br/>
+      </entry>
+    </subforms>
+    <textbox{#C}/><br/>
+    <submit action={handler}/>
+  </form>
+</body></xml>