r9228: add tests for result-types for map-query and do-query, ignore incorrect select...

[clsql.git] / tests / test-fdml.lisp

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 53bc3faff6301b8f27b837fd1f204ae9118d83b8..b74e53275479e41205f7b8d904ce3338e454c4d8 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -287,6 +287,17 @@
                                :flatp t)))
   t)
 
+(deftest :fdml/select/15
+    (multiple-value-bind (rows field-names)
+       (clsql:select [emplid] [street-number] [street-name] [city_field] [zip] 
+        :from [address]
+        :where [= 1 [emplid]])
+      (values
+       rows
+       (mapcar #'string-downcase field-names)))
+  ((1 10 "Park Place" "Leningrad" 123))
+  ("emplid" "street_number" "street_name" "city_field" "zip"))
+
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]