   (let [c ["/usr/bin/env" "etcdctl" "rm" "--recursive" (str prefix "/" name) ]]
     (shell/stream-to-string (apply shell/proc c) :out)))
 
-(defn tcp-slurp [host port]
-  (let [s (Socket. host port)]
+(defn tcp-slurp [port]
+  (let [s (Socket. (InetAddress/getLoopbackAddress) port)]
     (.setSoTimeout s 1000)
     (slurp (io/reader (.getInputStream s)))))
 

        (etcdctl (str "service/" domain-name "/aaa/last-seen-at")
                 (.toString (java.time.Instant/now)))
        (Thread/sleep 500)
        (let [f (future (tcp-slurp (InetAddress/getLoopbackAddress) port))]
          (Thread/sleep 4000)
          (etcd-rm (str "service/" domain-name "/aaa"))
          (is (= (slurp "test/fixtures/excerpt.txt") @f)))))))

        (Thread/sleep 500)
        (is (thrown?
             java.net.SocketTimeoutException
             (tcp-slurp port)))
        ))))
