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

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 3cde0a7..abbaddd 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))
 
@@ -403,7 +403,7 @@
 	  t)
 
 	(deftest :oodml/refresh/2
-	    (let* ((addresses (select 'address :order-by [addressid] :flatp t))
+	    (let* ((addresses (select 'address :order-by [addressid] :flatp t :refresh t))
 		   (city (slot-value (car addresses) 'city)))
 	      (clsql:update-records [addr] 
                               :av-pairs '((city_field "A new city"))
@@ -427,7 +427,7 @@
 	  nil nil)
 	
 	(deftest :oodml/refresh/4
-	    (let* ((addresses (select 'address :order-by [addressid] :flatp t))
+	    (let* ((addresses (select 'address :order-by [addressid] :flatp t :refresh t))
 		   (*db-auto-sync* t))
 	      (make-instance 'address :addressid 1000 :city "A new address city")
 	      (let ((new-addresses (select 'address :order-by [addressid] :flatp t :refresh t)))
@@ -446,7 +446,7 @@
 				       :flatp t))
 		     (dea-list-copy (copy-seq dea-list))
 		     (initially-unbound (every #'(lambda (dea) (not (slot-boundp dea 'address))) dea-list)))
-		(update-object-joins dea-list)
+		(update-objects-joins dea-list)
 		(values
 		 initially-unbound
 		 (equal dea-list dea-list-copy)