projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9378: * test/test-fdml.lisp: Added FDML/SELECT/34 to test
[clsql.git]
/
tests
/
test-fdml.lisp
diff --git
a/tests/test-fdml.lisp
b/tests/test-fdml.lisp
index adbb8479c90b52820e92ace8d6d409b61f4e6b41..56787a21d012bd3bebde380936f8bf31a2842b80 100644
(file)
--- a/
tests/test-fdml.lisp
+++ b/
tests/test-fdml.lisp
@@
-447,6
+447,15
@@
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
"Trotsky" "Yeltsin"))
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
"Trotsky" "Yeltsin"))
+(deftest :fdml/select/34
+ (loop for x from 1 below 5
+ collect
+ (car
+ (clsql:select [last-name] :from [employee]
+ :where [= [emplid] x]
+ :flatp t :result-types nil :field-names nil)))
+ ("Lenin" "Stalin" "Trotsky" "Kruschev"))
+
(deftest :fdml/do-query/1
(let ((result '()))
(clsql:do-query ((name) [select [last-name] :from [employee]
(deftest :fdml/do-query/1
(let ((result '()))
(clsql:do-query ((name) [select [last-name] :from [employee]