X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=1d8c6948ba807a91bb68bb7658465e9211e3d90b;hb=3a3ccc7a171dc4c6c10bc7e3fea8461fca6dc51b;hp=3cde0a75602354d67d57069324976e52f7221893;hpb=a56b464f5cd084bb8cc493a150b49a6033f48143;p=clsql.git

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 3cde0a7..1d8c694 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -110,8 +110,8 @@
                          (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)))
+	   (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))
 
@@ -154,7 +154,7 @@
 
 	(deftest :oodm/retrieval/8	    
 	    (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
-	     (select 'employee-address :flatp t :order-by [aaddressid] :caching nil))
+	     (select 'employee-address :flatp t :order-by [ea_join aaddressid] :caching nil))
 	  (10 10 nil nil nil))
 
 	(deftest :oodm/retrieval/9