From 280383cc8e3ac593d57ae26097a7b972edb2ea7a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Mon, 5 Oct 2009 12:51:17 -0400
Subject: Mangle local table names to avoid keyword clashes in SQL

---
 tests/user.ur | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/user.ur

(limited to 'tests/user.ur')

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>
-- 
cgit v1.2.3