summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2015-05-10 12:56:19 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2015-05-10 12:56:19 -0400
commit9b09c485154e2650ffab62259f39cb5d0496921b (patch)
tree2bfb9ebc9bf9cc98ae2bf7ed344a44e1ba39058d /tests
parent51b0b40ce02c56b2dd53191b32cd55c6ce22a92f (diff)
Fix .sql generation to honor 'noMangleSql' in column names
Diffstat (limited to 'tests')
-rw-r--r--tests/nomangle.ur7
-rw-r--r--tests/nomangle.urp5
2 files changed, 12 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>
diff --git a/tests/nomangle.urp b/tests/nomangle.urp
new file mode 100644
index 00000000..7fab4b03
--- /dev/null
+++ b/tests/nomangle.urp
@@ -0,0 +1,5 @@
+database dbname=test
+noMangleSql
+sql nomangle.sql
+
+nomangle