            (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)))
+    ;;(is (= {} (data a-b-unjoined-model)))
+    (is (= {:b1 b1} (data a-b-unjoined-model)))
     
     ;; join - new lhs - a2
     (on-upsert as a2)

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

    ;; join - new rhs - b2
    (on-upsert bs b2)

         [: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)))
    (is (= {:b1 b1} (data a-b-unjoined-model)))

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