X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=4add4ad181817f68bafe0379fbf02308f1ffb497;hp=8bfdd362d6f45ace4f9d47a5f4928ce3846bc180;hb=158b76b5e78149ab852afccbd479aa26ff76dc33;hpb=961735a91f4baf6acfb1eef0590087a070997296

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 8bfdd36..4add4ad 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -455,6 +455,14 @@
 		 (mapcar #'(lambda (dea) (slot-value (slot-value dea 'address) 'addressid)) dea-list))))
 	  t t t t (1 1 2 2 2))
 	
+	(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)))
 	      (values