r9209: read tinyint as integer for odbc, handle boolean reading/writing fields

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

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 39aac724057fcec3b61209ef9ef02725503cd52e..f7ee00504df2bddb8dba1c3f803a06c092a931be 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -281,12 +281,18 @@
        (values results (mapcar #'string-downcase field-names)))
  ((1 "Lenin" "t"))
  ("emplid" "last_name" "married"))
- 
+
 (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]]]]