summaryrefslogtreecommitdiff
path: root/tests/cut.ur
diff options
context:
space:
mode:
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>