             (etcdctl (str "/conf/merlion/" domain-name "/listen-address")
                      (str "localhost:" new-port))
             (Thread/sleep 2000)
-            (is (= (slurp "test/fixtures/excerpt.txt") @f))))))))
+            (is (= 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 (= (slurp "test/fixtures/excerpt.txt")
               (tcp-slurp port)))
        ))))


            ))

(log/set-level! :trace)

(def excerpt-txt (slurp "test/fixtures/excerpt.txt"))

(defn socat-pipe [command]
  (let [p (shell/proc "/usr/bin/env"
