projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9260: 6 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index df9f28faf52bd6f90be6749dcd83e8d528ba3d6f..26e760e919937be497e3e54512b4725f478fc4a4 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-40,7
+40,7
@@
(progn
(clsql:insert-records :into [employee]
:attributes '(emplid groupid first_name last_name
(progn
(clsql:insert-records :into [employee]
:attributes '(emplid groupid first_name last_name
- email companyid managerid)
+ email
e
companyid managerid)
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
@@
-58,7
+58,7
@@
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
- (companyid 1) (managerid 1)))
+ (
e
companyid 1) (managerid 1)))
(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])