projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9254: 4 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
tests
/
test-syntax.lisp
diff --git
a/tests/test-syntax.lisp
b/tests/test-syntax.lisp
index c2007f676f6130987337e33e87756519dd59ddd6..2329a6c5035a55aa7460b0e2abbabf2d445da784 100644
(file)
--- a/
tests/test-syntax.lisp
+++ b/
tests/test-syntax.lisp
@@
-59,16
+59,15
@@
(deftest :syntax/ident/5
(clsql:sql [foo :integer])
(deftest :syntax/ident/5
(clsql:sql [foo :integer])
- "FOO
INTEGER
")
+ "FOO")
(deftest :syntax/ident/6
(clsql:sql [foo bar :integer])
(deftest :syntax/ident/6
(clsql:sql [foo bar :integer])
- "FOO.BAR
INTEGER
")
+ "FOO.BAR")
(deftest :syntax/ident/7
(clsql:sql ["foo" bar :integer])
(deftest :syntax/ident/7
(clsql:sql ["foo" bar :integer])
- "FOO.BAR INTEGER")
-
+ "FOO.BAR")
(deftest :syntax/value/1
(clsql:sql [any '(3 4)])
(deftest :syntax/value/1
(clsql:sql [any '(3 4)])
@@
-119,6
+118,13
@@
(clsql:sql [select [count [*]] :from [emp]])
"SELECT COUNT(*) FROM EMP")
(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
(deftest :syntax/expression1
(clsql:sql