                      :peer/task {:db/id task-id
                                  :task/complete? false}}]]
             @(d/transact (:conn log) tx)
-         
+            
             (>!! (:ack-ch-head coordinator) {:path node-path})
             (let [failure (<!! failure-ch-spy)]
               (is (= (:ch failure) :ack)))))))

                     :peer/task {:db/id task-id
                                 :task/complete? true}}]]
            @(d/transact (:conn log) tx)
         
            (>!! (:ack-ch-head coordinator) {:path node-path})
            (let [failure (<!! failure-ch-spy)]
              (is (= (:ch failure) :ack)))))

        (<!! evict-ch-spy)

        (testing "There are no peers"
          (let [query '[:find ?p :where [?e :node/peer ?p]]
                result (d/q query (d/db (:conn log)))]
            (is (zero? (count result)))))))))

(deftest error-cases
  (with-system
