projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9510: * db-sqlite: Remove clisp support since clisp can not run CLSQL
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index bf57c13c0d638df3767a975ca8e85251e3d9902c..eac258f278200a4f5db41fc19428c5655a97dbc7 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])
@@
-657,6
+657,7
@@
(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)