r9211: add *backend-warning-behavior

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

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 39aac724057fcec3b61209ef9ef02725503cd52e..53bc3faff6301b8f27b837fd1f204ae9118d83b8 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -276,12 +276,12 @@
 
 (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)))