summaryrefslogtreecommitdiff
path: root/tests/cut.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 19:20:37 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 19:20:37 -0500
commit887af944c67e3395679a750a205ef114234c61a0 (patch)
tree99c1c46f59df9c378621aa8d05b072d50a81698e /tests/cut.ur
parentf3e4bff668d3be5fcc7a2f6d04b7d9efb8f10624 (diff)
Add CutMulti
Diffstat (limited to 'tests/cut.ur')
-rw-r--r--tests/cut.ur7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/cut.ur b/tests/cut.ur
index 6b7b4ef3..7d0ee77a 100644
--- a/tests/cut.ur
+++ b/tests/cut.ur
@@ -1,6 +1,7 @@
val r = {A = 1, B = "Hi", C = 0.0}
val rA = r -- #A
+val rB = r --- [A = _, C = _]
-val main : unit -> page = fn () => <html><body>
- {cdata rA.B}
-</body></html>
+fun main () : transaction page = return <xml>
+ {cdata rA.B}, {cdata rB.B}
+</xml>