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 1134c913193a35001b362ae711ad12d6c791186c..26e760e919937be497e3e54512b4725f478fc4a4 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-27,7
+27,7
@@
(progn
(clsql:insert-records :into [employee]
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
(progn
(clsql:insert-records :into [employee]
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
- 1 1 1.85 t ,(clsql
-base
:get-time)))
+ 1 1 1.85 t ,(clsql:get-time)))
(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])
@@
-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])
@@
-289,14
+289,14
@@
(deftest :fdml/select/15
(multiple-value-bind (rows field-names)
(deftest :fdml/select/15
(multiple-value-bind (rows field-names)
- (clsql:select [
empl
id] [street-number] [street-name] [city_field] [zip]
+ (clsql:select [
address
id] [street-number] [street-name] [city_field] [zip]
:from [address]
:from [address]
- :where [= 1 [
empl
id]])
+ :where [= 1 [
address
id]])
(values
rows
(mapcar #'string-downcase field-names)))
((1 10 "Park Place" "Leningrad" 123))
(values
rows
(mapcar #'string-downcase field-names)))
((1 10 "Park Place" "Leningrad" 123))
- ("
empl
id" "street_number" "street_name" "city_field" "zip"))
+ ("
address
id" "street_number" "street_name" "city_field" "zip"))
(deftest :fdml/select/16
(clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
(deftest :fdml/select/16
(clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
@@
-352,17
+352,17
@@
"Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
(deftest :fdml/loop/2
"Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
(deftest :fdml/loop/2
- (loop for (
empl
id)
+ (loop for (
address
id)
being each tuple in
being each tuple in
- [select [
emplid] :from [address] :order-by [empl
id]]
- collect
empl
id)
+ [select [
addressid] :from [address] :order-by [address
id]]
+ collect
address
id)
(1 2))
(deftest :fdml/loop/3
(1 2))
(deftest :fdml/loop/3
- (loop for
empl
id
+ (loop for
address
id
being each tuple in
being each tuple in
- [select [
emplid] :from [address] :order-by [empl
id]]
- collect
empl
id)
+ [select [
addressid] :from [address] :order-by [address
id]]
+ collect
address
id)
(1 2))
;; starts a transaction deletes a record and then rolls back the deletion
(1 2))
;; starts a transaction deletes a record and then rolls back the deletion