From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 4 May 2004 22:01:51 +0000 (+0000)
Subject: r9230: fix loop tests
X-Git-Tag: v3.8.6~529
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=a99f275949c7e638a1e7fcf2ebfbb21f0a8c448a

r9230: fix loop tests
---

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 71a3a9b..906852b 100644
--- 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))