projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9361: Support for qualified sql identifiers with aliased table names.
[clsql.git]
/
tests
/
test-syntax.lisp
diff --git
a/tests/test-syntax.lisp
b/tests/test-syntax.lisp
index cd8d2ba1e4d08604800fe5c20d745b4f1620e472..8d1a86382a668680e53dba26247753cb3941dbe9 100644
(file)
--- a/
tests/test-syntax.lisp
+++ b/
tests/test-syntax.lisp
@@
-50,24
+50,25
@@
"FOO.BAR")
(deftest :syntax/ident/3
"FOO.BAR")
(deftest :syntax/ident/3
- (clsql:sql ["foo" bar])
- "FOO.BAR")
-
-;(deftest :syntax/ident/4
-; (clsql:sql [foo "bar"])
-; "FOO \"bar\"")
-
-(deftest :syntax/ident/5
(clsql:sql [foo :integer])
"FOO")
(clsql:sql [foo :integer])
"FOO")
-(deftest :syntax/ident/
6
+(deftest :syntax/ident/
4
(clsql:sql [foo bar :integer])
"FOO.BAR")
(clsql:sql [foo bar :integer])
"FOO.BAR")
+(deftest :syntax/ident/5
+ (clsql:sql [foo "bar"])
+ "FOO \"bar\"")
+
+(deftest :syntax/ident/6
+ (clsql:sql ["foo" bar])
+ "\"foo\".BAR")
+
(deftest :syntax/ident/7
(clsql:sql ["foo" bar :integer])
(deftest :syntax/ident/7
(clsql:sql ["foo" bar :integer])
- "FOO.BAR")
+ "\"foo\".BAR")
+
(deftest :syntax/subquery/1
(deftest :syntax/subquery/1