X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=87d897fb4c743406a441f99687863daff2c68b17;hp=8bfdd362d6f45ace4f9d47a5f4928ce3846bc180;hb=cc1360674fe8976074b6af9e5a9aab63cb078fc7;hpb=cb677ee3bb1416762ef2efa767e10d87374d81c0

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 8bfdd36..87d897f 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -454,6 +454,16 @@
 		 (every #'(lambda (dea) (typep (slot-value dea 'address) 'address)) dea-list)
 		 (mapcar #'(lambda (dea) (slot-value (slot-value dea 'address) 'addressid)) dea-list))))
 	  t t t t (1 1 2 2 2))
+
+	;; update-object-joins needs to be fixed for multiple keys
+	#+ignore
+	(deftest :oodml/uoj/2
+	    (progn
+	      (clsql:update-objects-joins (list company1))
+	      (mapcar #'(lambda (e)
+			  (slot-value e 'ecompanyid))
+	         (company-employees company1)))
+	  (1 1 1 1 1 1 1 1 1 1))
 	
 	(deftest :oodml/big/1 
 	    (let ((objs (clsql:select 'big :order-by [i] :flatp t)))