:flatp t :result-types nil :field-names nil)))
("Lenin" "Stalin" "Trotsky" "Kruschev"))
+;; test escaping of single quotes
+(deftest :fdml/select/35
+ (clsql:select "What's up doc?" :from [employee] :flatp t :field-names nil)
+ ("What's up doc?" "What's up doc?" "What's up doc?" "What's up doc?"
+ "What's up doc?" "What's up doc?" "What's up doc?" "What's up doc?"
+ "What's up doc?" "What's up doc?"))
+
(deftest :fdml/do-query/1
(let ((result '()))
(clsql:do-query ((name) [select [last-name] :from [employee]
:flatp t)
results)
(apply #'values (nreverse results)))
- nil :committed nil ("lenin-nospam@soviet.org") :committed
- nil ("lenin@soviet.org"))
+ nil nil nil ("lenin-nospam@soviet.org") nil nil ("lenin@soviet.org"))
;; runs a valid update and an invalid one within a transaction and checks
;; that the valid update is rolled back when the invalid one fails.