r9254: 4 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

        * tests/test-syntax.lisp: Add syntax tests for SQL-OBJECT-QUERY

diff --git a/ChangeLog b/ChangeLog
index 5139287cc726c260b1a3907c153fa6e5e1414145..173fce3e0209b0b98ba99329046755f5e02ef631 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+4 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+       * tests/test-syntax.lisp: Add syntax tests for SQL-OBJECT-QUERY
+       
 6 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) 
         * sql/objects.lisp: replace *update-records-on-make-instance* with 
         *db-auto-sync* which also controls both automatic creation of 

diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp
index 9de62fe762a9b27adec21395b23091589d2fc73f..2329a6c5035a55aa7460b0e2abbabf2d445da784 100644 (file)
--- a/tests/test-syntax.lisp
+++ b/tests/test-syntax.lisp
@@ -118,6 +118,13 @@
     (clsql:sql [select [count [*]] :from [emp]])
   "SELECT COUNT(*) FROM EMP")
   
+(deftest :syntax/query/5
+    (string-downcase (clsql:sql [select 'employee]))
+  "(employee)")
+
+(deftest :syntax/query/6
+    (string-downcase (clsql:sql [select 'employee 'address]))
+  "(employee address)")
 
 (deftest :syntax/expression1
     (clsql:sql