+(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"))
+
+;; 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?"))
+
+;; test proper treatment of backslash (depending on backend)
+(deftest :fdml/select/36
+ (clsql:select "foo\\bar\\baz" :from [employee] :flatp t :field-names nil)
+ ("foo\\bar\\baz" "foo\\bar\\baz" "foo\\bar\\baz" "foo\\bar\\baz"
+ "foo\\bar\\baz" "foo\\bar\\baz" "foo\\bar\\baz" "foo\\bar\\baz"
+ "foo\\bar\\baz" "foo\\bar\\baz"))
+
+(deftest :fdml/select/37
+ (clsql:select [emplid] :from [employee]
+ :order-by [emplid]
+ :limit 5
+ :field-names nil
+ :flatp t)
+ (1 2 3 4 5))
+
+(deftest :fdml/select/38
+ (clsql:select [emplid] :from [employee]
+ :order-by [emplid]
+ :limit 5
+ :offset 3
+ :field-names nil
+ :flatp t)
+ (4 5 6 7 8))
+