r10310: 29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / tests / test-oodml.lisp

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 8bfdd362d6f45ace4f9d47a5f4928ce3846bc180..4add4ad181817f68bafe0379fbf02308f1ffb497 100644 (file)
--- 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