3 files changed, 20 insertions, 0 deletions
diff --git a/tests/subform.ur b/tests/subform.ur
new file mode 100644
index 00000000..2ab1f1a3
--- /dev/null
+++ b/tests/subform.ur
@@ -0,0 +1,16 @@
+fun handler r = return <xml><body>
+  {[r.A]}, {[r.Sub.A]}, {[r.Sub.B]}, {[r.Sub.Sub]}, {[r.C]}
+</body></xml>
+
+fun main () = return <xml><body>
+  <form>
+    <textbox{#A}/><br/>
+    <subform{#Sub}>
+      <textbox{#A}/><br/>
+      <textbox{#B}/><br/>
+      <textbox{#Sub}/><br/>
+    </subform>
+    <textbox{#C}/><br/>
+    <submit action={handler}/>
+  </form>
+</body></xml>
diff --git a/tests/subform.urp b/tests/subform.urp
new file mode 100644
index 00000000..52f6a752
--- /dev/null
+++ b/tests/subform.urp
@@ -0,0 +1,3 @@
+debug
+
+subform
diff --git a/tests/subform.urs b/tests/subform.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/subform.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page