+(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/16
+ (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
+ :field-names nil)
+ ((1)))
+