projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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)))
: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)))
(deftest :fdml/select/14
(floatp (car (clsql:select [height] :from [employee] :where [= [emplid] 1]
:flatp t)))