X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=53bc3faff6301b8f27b837fd1f204ae9118d83b8;hp=f7ee00504df2bddb8dba1c3f803a06c092a931be;hb=1dda729b250779079efbdc1d3f6bbb3ae4a20ba4;hpb=9711a224f9684aaaba08e20eaab826be1beee460

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index f7ee005..53bc3fa 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -276,23 +276,17 @@
 
 (deftest :fdml/select/13
      (multiple-value-bind (results field-names) 
-	 (clsql:select [emplid] [last-name] [married] :from [employee] 
+	 (clsql:select [emplid] [last-name] :from [employee] 
 		       :where [= [emplid] 1])
        (values results (mapcar #'string-downcase field-names)))
- ((1 "Lenin" "t"))
- ("emplid" "last_name" "married"))
+ ((1 "Lenin"))
+ ("emplid" "last_name"))
 
 (deftest :fdml/select/14
      (floatp (car (clsql:select [height] :from [employee] :where [= [emplid] 1] 
 				:flatp t)))
   t)
 
-(deftest :fdml/select/15
-    (clsql:select [married] :from [employee] 
-     :where [= [emplid] 4]
-     :field-names nil)
- (("f")))
- 
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]