projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
39b6e9a
)
fixed failing fdml test (definition of employee changed)
author
Russ Tyndall
<russ@acceleration.net>
Sun, 8 Jun 2014 20:17:52 +0000
(16:17 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Sun, 8 Jun 2014 20:17:52 +0000
(16:17 -0400)
tests/test-fdml.lisp
patch
|
blob
|
history
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index 117074b55a312827cfc65ca7685abc6a9853204d..51cdd02ef417cb9c549d341dac085b5fbddff387 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-546,9
+546,10
@@
(deftest :fdml/insert/1
(with-dataset *ds-employees*
(let ((now (get-universal-time)))
(deftest :fdml/insert/1
(with-dataset *ds-employees*
(let ((now (get-universal-time)))
- (clsql:insert-records :into [employee]
- :values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
- 1 1 1.85 t ,(clsql:utime->time now) ,now))
+ (clsql:insert-records
+ :into [employee]
+ :values `(11 1 "clsql-sys::astronaut" "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])