           (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"

        (let [f (future (tcp-slurp port))]
          (Thread/sleep 4000)
          (etcd-rm (str "service/" domain-name "/aaa"))
          (is (= (slurp "test/fixtures/excerpt.txt") @f)))))))

(deftest no-backend
  (testing "fetches hang when no backends"

            (etcdctl (str "/conf/merlion/" domain-name "/listen-address")
                     (str "localhost:" new-port))
            (Thread/sleep 2000)
            (is (= excerpt-txt @f))))))))

(deftest error-when-backend-down
  (testing "a broken upstream does not kill the backend silently"
    (with-running-server [prefix port]
