                                  ::clnt/chan->server chan->server))]
     (try
       (let [unstarted-server (srvr/ctor (::server options))
-            server<-client {:chan (strm/stream)}
-            server->client {:chan (strm/stream)}]
+            chan<-client {:chan (strm/stream)}
+            chan->client {:chan (strm/stream)}]
         (try
           (log/debug "Starting server based on\n"
                      #_(with-out-str (pprint (srvr/hide-long-arrays unstarted-server)))
                      "...stuff...")
           (try
             (let [server (srvr/start! (assoc unstarted-server
-                                             ::state/client-read-chan server<-client
-                                             ::state/client-write-chan server->client))]
+                                             ::state/client-read-chan chan<-client
+                                             ::state/client-write-chan chan->client))]
               (try
                 ;; Currently just called for side-effects.
                 ;; TODO: Seems like I really should hide that little detail

                     cookie
                     500
                     ::timeout))
    (throw (ex-info "Bad cookie"
                    {:problem cookie}))))

(defn wrote-cookie
  [clnt->srvr success]
  (println "Cookie sent to server. Waiting for vouch")
  (is success)
  (is (not= success ::timeout))
  (strm/try-take! clnt->srvr ::drained 500 ::timeout))

(defn vouch->server
  [client-chan vouch]
  ;; I don't have any real failure indication available
  ;; if something goes wrong with/on the server trying
  ;; to cope with this incoming vouch.
  ;; I almost need an error stream for dealing with exceptions.
  (if-not (or (= vouch ::drained)
              (= vouch ::timeout))
    (strm/try-put! (:chan client-chan)
                   {:message vouch
                    :host "tester"
                    :port 65536}
                   500
                   ::timeout)

                  (srvr/stop! server))))
            (catch clojure.lang.ExceptionInfo ex
              (is (not (.getData ex)))))
          (finally (strm/close! (:chan chan->client))
                   (strm/close! (:chan chan<-client)))))
      (finally
        (clnt/stop! client)))))

