summaryrefslogtreecommitdiff
path: root/tests/nomangle.ur
diff options
context:
space:
mode:
authorGravatar Benjamin Barenblat <bbaren@mit.edu>2015-05-20 13:50:49 -0400
committerGravatar Benjamin Barenblat <bbaren@mit.edu>2015-05-20 13:50:49 -0400
commit7ea9d17bad72cf2829c75d8d241fafa70b2c9b94 (patch)
tree170320af7177fe9e033d376d3b70e45a8dccb942 /tests/nomangle.ur
parent2721267f40e35a3a2acfa8ee332bda454823ef83 (diff)
parent5c118b9e9a58e0ae09ddd74bea2a9823badb9ba5 (diff)
Merge branch 'upstream' into dfsg_clean20150520+dfsg
Diffstat (limited to 'tests/nomangle.ur')
-rw-r--r--tests/nomangle.ur7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/nomangle.ur b/tests/nomangle.ur
new file mode 100644
index 00000000..b853a690
--- /dev/null
+++ b/tests/nomangle.ur
@@ -0,0 +1,7 @@
+table foo : { Bar : int, Baz : string }
+ PRIMARY KEY Baz
+
+fun main () : transaction page =
+ rs <- queryX1 (SELECT foo.Bar FROM foo WHERE foo.Baz = 'Hi')
+ (fn r => <xml>{[r.Bar]}</xml>);
+ return <xml><body>{rs}</body></xml>