           (etcdctl (str "/conf/merlion/" domain-name "/listen-address")
                    (str "localhost:" new-port))
           (Thread/sleep 500)
-          (is (= (slurp "test/fixtures/excerpt.txt") (tcp-slurp new-port))))))))
+          (is (= excerpt-txt (tcp-slurp new-port))))))))
 
 (deftest change-listener-no-interruption
   (testing "changing the listening port does not break existing transfers"

            (etcdctl (str "/conf/merlion/" domain-name "/listen-address")
                     (str "localhost:" new-port))
            (Thread/sleep 2000)
            (is (= (slurp "test/fixtures/excerpt.txt") @f))))))))
(deftest error-when-backend-down
  (testing "a broken upstream does not kill the backend silently"
    (with-running-server [prefix port]

      (with-running-server [prefix port]
        (add-backend "aaa" (:port be-process))
        (Thread/sleep 500)
        (is (= excerpt-txt
               (tcp-slurp port)))))))


