X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftest-fdml.lisp;h=71a3a9baa04d5bfbd4187032f6103691f71e6f06;hb=e17f07ac3185371f7d2c989c9780f70767296a54;hp=b74e53275479e41205f7b8d904ce3338e454c4d8;hpb=fd11963eb2f46ffac6da2b18fab3d7ff2a4390cf;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index b74e532..71a3a9b 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -334,7 +334,21 @@
       collect (concatenate 'string forename " " surname))
   ("Yuri Andropov" "Leonid Brezhnev" "Konstantin Chernenko" "Mikhail Gorbachev"
                    "Nikita Kruschev" "Vladamir Lenin" "Vladamir Putin"
-                   "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+   "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+
+(deftest :fdml/loop/2
+    (loop for emplid
+      being each tuple in
+      [select [emplid] :from [address] :order-by [emplid]]
+      collect emplid)
+  ((1) (2)))
+
+(deftest :fdml/loop/3
+    (loop for emplid
+      being each tuple in
+      [select [emplid] :from [address] :order-by [emplid] :flatp t]
+      collect emplid)
+  (1 2))
 
 ;; starts a transaction deletes a record and then rolls back the deletion 
 (deftest :fdml/transaction/1