projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e17f07a
)
r9230: fix loop tests
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 4 May 2004 22:01:51 +0000
(22:01 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 4 May 2004 22:01:51 +0000
(22:01 +0000)
tests/test-fdml.lisp
patch
|
blob
|
history
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index 71a3a9baa04d5bfbd4187032f6103691f71e6f06..906852be6d49d1d645f9e334167be60cc1b45863 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-337,16
+337,16
@@
"Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
(deftest :fdml/loop/2
- (loop for
emplid
+ (loop for
(emplid)
being each tuple in
[select [emplid] :from [address] :order-by [emplid]]
-
collect emplid)
- (
(1) (2)
))
+ collect emplid)
+ (
1 2
))
(deftest :fdml/loop/3
(loop for emplid
being each tuple in
- [select [emplid] :from [address] :order-by [emplid]
:flatp t
]
+ [select [emplid] :from [address] :order-by [emplid]]
collect emplid)
(1 2))