X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=56787a21d012bd3bebde380936f8bf31a2842b80;hp=adbb8479c90b52820e92ace8d6d409b61f4e6b41;hb=d9b32644383f3c4087d0ecac10c645f38d17648d;hpb=c5ba863f6f0cda2c1ef5939f190e0fcc41cdf452

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index adbb847..56787a2 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -447,6 +447,15 @@
 ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
  "Trotsky" "Yeltsin"))
 
+(deftest :fdml/select/34
+  (loop for x from 1 below 5
+   collect
+   (car
+    (clsql:select [last-name] :from [employee] 
+		  :where [= [emplid] x]
+		  :flatp t :result-types nil :field-names nil)))
+  ("Lenin" "Stalin" "Trotsky" "Kruschev"))
+
 (deftest :fdml/do-query/1
     (let ((result '()))
     (clsql:do-query ((name) [select [last-name] :from [employee]