X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=0fbcb17a9756b6695f46851bc20ae2b09d1679e9;hp=d2606c14b4419f038d8d0eecbb6a6d4a107af670;hb=78489032c6f66ce666ffe5e2e726503b61b94616;hpb=16cede958e7f229e2502ab6309591e344bee54f5

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index d2606c1..0fbcb17 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -495,6 +495,23 @@
   "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))
+
 (deftest :fdml/do-query/1
     (let ((result '()))
     (clsql:do-query ((name) [select [last-name] :from [employee]