summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-10-05 12:51:17 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-10-05 12:51:17 -0400
commit280383cc8e3ac593d57ae26097a7b972edb2ea7a (patch)
treecff32a3f351a71dbf60b6e8109dde574f77bf89e /tests
parent83ebcdd3e064431640437a9a073520e9b0ec8944 (diff)
Mangle local table names to avoid keyword clashes in SQL
Diffstat (limited to 'tests')
-rw-r--r--tests/user.ur5
-rw-r--r--tests/user.urp5
-rw-r--r--tests/user.urs1
3 files changed, 11 insertions, 0 deletions
diff --git a/tests/user.ur b/tests/user.ur
new file mode 100644
index 00000000..c36fe407
--- /dev/null
+++ b/tests/user.ur
@@ -0,0 +1,5 @@
+table user : {A : int}
+
+fun main () =
+ r <- oneRow (SELECT COUNT( * ) AS N FROM user);
+ return <xml>{[r.N]}</xml>
diff --git a/tests/user.urp b/tests/user.urp
new file mode 100644
index 00000000..bbbc4351
--- /dev/null
+++ b/tests/user.urp
@@ -0,0 +1,5 @@
+debug
+database dbname=udb
+sql user.sql
+
+user
diff --git a/tests/user.urs b/tests/user.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/user.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page