X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-ooddl.lisp;fp=tests%2Ftest-ooddl.lisp;h=9037e53280fa1c9e5d6080996a72b227ffa06556;hp=5be105c0f27ed24892507779c7e7347f03fed421;hb=ad3505e2f0d71c858425e4e13b7d9d00e633ba61;hpb=8051f42ccbb44eca6bb94b24fbc01f846041915a

diff --git a/tests/test-ooddl.lisp b/tests/test-ooddl.lisp
index 5be105c..9037e53 100644
--- a/tests/test-ooddl.lisp
+++ b/tests/test-ooddl.lisp
@@ -102,6 +102,21 @@
       (slot-value (employee-manager employee2) 'last-name))
   "Lenin")
 
+(deftest :ooddl/join/4
+    (with-dataset *ds-employees*
+      (values
+       (length (employee-addresses employee10))
+       ;; add an address
+       (let ((*db-auto-sync* T))
+         (make-instance 'address :addressid 50)
+         (make-instance 'employee-address :emplid 10 :addressid 50)
+         ;; again
+         (length (employee-addresses employee10)))
+       (progn
+         (update-objects-joins (list employee10) :slots '(addresses))
+         (length (employee-addresses employee10)))))
+  0 0 1)
+
 (deftest :ooddl/big/1
     ;;tests that we can create-view-from-class with a bigint slot,
     ;; and stick a value in there.