X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=f934e5e7db407db244e5015e70ee38d84894dc42;hb=e5a6fadf80e923a4fa08fbb8af16652d7970983e;hp=2ae3005c55e16e73b5fd7473b233408313103f36;hpb=75defa0ce7e93c50c87fe272632dcdd942e80d49;p=clsql.git

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 2ae3005..f934e5e 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -105,6 +105,16 @@
 	     (employee-addresses employee2))
 	  ((t t 2 2 2)))
 
+        (deftest :oodml/select/11 
+         (values (mapcar #'(lambda (x) (slot-value x 'emplid))
+                         (clsql:select 'employee :order-by '(([emplid] :asc)) 
+                                       :flatp t))
+          (mapcar #'(lambda (x) (slot-value x 'emplid))
+                  (clsql:select 'employee :order-by '(([emplid] :desc)) 
+                                :flatp t)))
+         (1 2 3 4 5 6 7 8 9 10)
+         (10 9 8 7 6 5 4 3 2 1))
+
 	;; test retrieval is deferred
 	(deftest :oodm/retrieval/1
 	    (every #'(lambda (e) (not (slot-boundp e 'company)))