X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-syntax.lisp;h=2329a6c5035a55aa7460b0e2abbabf2d445da784;hb=ec671b89836aaf460308b4b511758c74e8732c62;hp=c2007f676f6130987337e33e87756519dd59ddd6;hpb=9a70270bf9a1d60323ded33ce52bd0904544c70b;p=clsql.git

diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp
index c2007f6..2329a6c 100644
--- a/tests/test-syntax.lisp
+++ b/tests/test-syntax.lisp
@@ -59,16 +59,15 @@
 
 (deftest :syntax/ident/5
     (clsql:sql [foo :integer])
-  "FOO INTEGER")
+  "FOO")
 
 (deftest :syntax/ident/6
     (clsql:sql [foo bar :integer])
-  "FOO.BAR INTEGER")
+  "FOO.BAR")
 
 (deftest :syntax/ident/7
     (clsql:sql ["foo" bar :integer])
-  "FOO.BAR INTEGER")
-
+  "FOO.BAR")
 
 (deftest :syntax/value/1
     (clsql:sql [any '(3 4)])
@@ -119,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