summaryrefslogtreecommitdiff
path: root/tests
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
parentf3e4bff668d3be5fcc7a2f6d04b7d9efb8f10624 (diff)
Add CutMulti
Diffstat (limited to 'tests')
-rw-r--r--tests/cut.ur7
-rw-r--r--tests/cut.urp3
2 files changed, 7 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>
diff --git a/tests/cut.urp b/tests/cut.urp
new file mode 100644
index 00000000..5c9c3e81
--- /dev/null
+++ b/tests/cut.urp
@@ -0,0 +1,3 @@
+debug
+
+cut