projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8928: add probe-database,create-database,destroy-database
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index 541b4d4e28e16bd40b2d91f687b24669250aa59c..ef364ba40b8eb80c4414792409133491e394660b 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-18,6
+18,9
@@
#.(clsql:locally-enable-sql-reader-syntax)
#.(clsql:locally-enable-sql-reader-syntax)
+(setq *rt-fdml*
+ '(
+
;; inserts a record using all values only and then deletes it
(deftest :fdml/insert/1
(progn
;; inserts a record using all values only and then deletes it
(deftest :fdml/insert/1
(progn
@@
-203,19
+206,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
+237,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"))
@@
-392,4
+395,6
@@
(apply #'values (nreverse results)))))))
nil nil ("lenin@soviet.org"))
(apply #'values (nreverse results)))))))
nil nil ("lenin@soviet.org"))
+))
+
#.(clsql:restore-sql-reader-syntax-state)
#.(clsql:restore-sql-reader-syntax-state)