projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8902: package improvements
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index 541b4d4e28e16bd40b2d91f687b24669250aa59c..6387add49165652c626756569f5ede511a80c775 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-203,19
+203,19
@@
(1 1 1 1 1 1 1 1 1 1))
(deftest :fdml/select/7
(1 1 1 1 1 1 1 1 1 1))
(deftest :fdml/select/7
- (sql:select [max [emplid]] :from [employee] :flatp t)
+ (
cl
sql:select [max [emplid]] :from [employee] :flatp t)
("10"))
(deftest :fdml/select/8
("10"))
(deftest :fdml/select/8
- (sql:select [min [emplid]] :from [employee] :flatp t)
+ (
cl
sql:select [min [emplid]] :from [employee] :flatp t)
("1"))
(deftest :fdml/select/9
("1"))
(deftest :fdml/select/9
- (subseq (car (sql:select [avg [emplid]] :from [employee] :flatp t)) 0 3)
+ (subseq (car (
cl
sql:select [avg [emplid]] :from [employee] :flatp t)) 0 3)
"5.5")
(deftest :fdml/select/10
"5.5")
(deftest :fdml/select/10
- (sql:select [last-name] :from [employee]
+ (
cl
sql:select [last-name] :from [employee]
:where [not [in [emplid]
[select [managerid] :from [company]]]]
:flatp t
:where [not [in [emplid]
[select [managerid] :from [company]]]]
:flatp t
@@
-234,7
+234,7
@@
(("Lenin")))
;(deftest :fdml/select/11
(("Lenin")))
;(deftest :fdml/select/11
-; (sql:select [emplid] :from [employee]
+; (
cl
sql:select [emplid] :from [employee]
; :where [= [emplid] [any [select [companyid] :from [company]]]]
; :flatp t)
; ("1"))
; :where [= [emplid] [any [select [companyid] :from [company]]]]
; :flatp t)
; ("1"))