     	   [:a1 :b1 :c2] (->ABC [:a1 :b1 :c2] [1 1 0] "b1v1-data" "c2-data")
     	   }
     	   (data joined-model)))
+;;    (is (= {} (data a-b-joined-model)))
+;;;    (is (= {:b2 b2} (data a-b-unjoined-model)))
 
     ;; join - delete rhs - c2
     (on-delete cs c2)

    [[lhs-indeces new-rhs-indeces new-joins]
     (fn [_]
       (on-deletes joined-model stale-joins)
       (on-upserts joined-model fresh-joins))]
    ))

;;; TODO - ugly, slow, ...

         [:a1 :b2 :c1] (->ABC [:a1 :b2 :c1] [0 0 0] "b2-data" "c1-data")
         }
         (data joined-model)))
    ;;;(is (= {:b1 b1 :b2 b2} (data a-b-joined-model)))
    (is (= {:b2 b2} (data a-b-joined-model)))
    (is (= {} (data a-b-unjoined-model)))

    ;; join - new rhs - c2
    (on-upsert cs c2)
