projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9253: Add *db-auto-sync* special var for controlling creation/updating of db records...
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index 1134c913193a35001b362ae711ad12d6c791186c..df9f28faf52bd6f90be6749dcd83e8d528ba3d6f 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])
@@
-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