projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9571: new debian package
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index a3228ab189707b62e162f451ae762785950d68b8..344e6c5ce49965282dfd844bdf05bce0cef8a3f9 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-24,10
+24,10
@@
;; inserts a record using all values only and then deletes it
(deftest :fdml/insert/1
;; inserts a record using all values only and then deletes it
(deftest :fdml/insert/1
- (
progn
+ (
let ((now (get-universal-time)))
(clsql:insert-records :into [employee]
(clsql:insert-records :into [employee]
-
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
-
1 1 1.85 t ,(clsql:get-time)
))
+ :values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
+
1 1 1.85 t ,(clsql:utime->time now) ,now
))
(values
(clsql:select [first-name] [last-name] [email]
:from [employee] :where [= [emplid] 11])
(values
(clsql:select [first-name] [last-name] [email]
:from [employee] :where [= [emplid] 11])
@@
-368,7
+368,7
@@
("1" "2" "3" "4"))
(deftest :fdml/select/21
("1" "2" "3" "4"))
(deftest :fdml/select/21
- (clsql:select [substr [first-name] 1 4] :from [employee]
+ (clsql:select [substr
ing
[first-name] 1 4] :from [employee]
:flatp t :order-by [emplid] :field-names nil)
("Vlad" "Jose" "Leon" "Niki" "Leon" "Yuri" "Kons" "Mikh" "Bori" "Vlad"))
:flatp t :order-by [emplid] :field-names nil)
("Vlad" "Jose" "Leon" "Niki" "Leon" "Yuri" "Kons" "Mikh" "Bori" "Vlad"))
@@
-626,8
+626,7
@@
:flatp t)
results)
(apply #'values (nreverse results)))
:flatp t)
results)
(apply #'values (nreverse results)))
- nil :committed nil ("lenin-nospam@soviet.org") :committed
- nil ("lenin@soviet.org"))
+ nil nil nil ("lenin-nospam@soviet.org") nil nil ("lenin@soviet.org"))
;; runs a valid update and an invalid one within a transaction and checks
;; that the valid update is rolled back when the invalid one fails.
;; runs a valid update and an invalid one within a transaction and checks
;; that the valid update is rolled back when the invalid one fails.