summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-30 13:47:46 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-30 13:47:46 -0400
commitfe0742107983aeaea3db6715d2f71e2260ce05f1 (patch)
tree1e0d1f4e66efcd4d99034622ca33a453794a31b1 /tests
parent1a60a233b9349f320e67f35db1aa3b87d7c2a591 (diff)
subforms working
Diffstat (limited to 'tests')
-rw-r--r--tests/subforms.ur10
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/subforms.ur b/tests/subforms.ur
index 3db55a43..cf5d0ba4 100644
--- a/tests/subforms.ur
+++ b/tests/subforms.ur
@@ -4,7 +4,9 @@ fun handler' ls =
| 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]}
+ {[r.A]}<br/>
+ {handler' r.Sub}
+ {[r.C]}
</body></xml>
fun main () = return <xml><body>
@@ -16,6 +18,12 @@ fun main () = return <xml><body>
<textbox{#B}/><br/>
<textbox{#Sub}/><br/>
</entry>
+
+ <entry>
+ <textbox{#A}/><br/>
+ <textbox{#B}/><br/>
+ <textbox{#Sub}/><br/>
+ </entry>
</subforms>
<textbox{#C}/><br/>
<submit action={handler}/>