r9234: rename package

[clsql.git] / tests / test-syntax.lisp

diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp
index 62fe3f33803283f59303c8fa32c2cfb036311081..9de62fe762a9b27adec21395b23091589d2fc73f 100644 (file)
--- a/tests/test-syntax.lisp
+++ b/tests/test-syntax.lisp
@@ -49,10 +49,9 @@
     (clsql:sql [foo bar])
   "FOO.BAR")
 
-;; not sure about this one 
 (deftest :syntax/ident/3
     (clsql:sql ["foo" bar])
-  "foo.BAR")
+  "FOO.BAR")
 
 ;(deftest :syntax/ident/4
 ;    (clsql:sql [foo "bar"])
@@ -60,17 +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")
 
-;; not sure about this one 
 (deftest :syntax/ident/7
     (clsql:sql ["foo" bar :integer])
-  "foo.BAR INTEGER")
-
+  "FOO.BAR")
 
 (deftest :syntax/value/1
     (clsql:sql [any '(3 4)])