           (testing "A failure is raised for the second delete"
             (>!! (:dead-peer-ch-head coordinator) peer)
             (let [failure (<!! failure-ch-spy)]
-              (is (= (:ch failure) :peer-death)))))
+              (is (= (:ch failure) :peer-death)))
+
+            (let [failure (<!! failure-ch-spy)]
+              (is (= (:ch failure) :evict)))))
 
         (testing "Acking a non-existent node fails"
           (>!! (:ack-ch-head coordinator) {:path (str (java.util.UUID/randomUUID))})

         
            (>!! (:ack-ch-head coordinator) {:path node-path})
            (let [failure (<!! failure-ch-spy)]
              (is (= (:ch failure) :ack)))))))))

(deftest plan-one-job-no-peers
  (with-system


        (testing "Attempts to delete a non-existent peer fails"
          (extensions/delete sync peer)
          (<!! evict-ch-spy)

          (testing "A failure is raised for the second callback"
            (let [failure (<!! failure-ch-spy)]
