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

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 71a3a9b..a91cf9c 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -298,6 +298,11 @@
   ((1 10 "Park Place" "Leningrad" 123))
   ("emplid" "street_number" "street_name" "city_field" "zip"))
 
+(deftest :fdml/select/16
+    (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
+     :field-names nil)
+  ((1)))
+
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]
@@ -337,16 +342,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))