rename some test stuff

This commit is contained in:
Gered 2016-05-12 12:17:19 -04:00
parent 605d6c5d51
commit 7e2d87731c
2 changed files with 3 additions and 3 deletions

View file

@ -1,4 +1,4 @@
(ns net.thegeez.browserchannel.server.http-request-tests (ns net.thegeez.browserchannel.server.test-channel-http-request-tests
(:use (:use
clojure.test clojure.test
net.thegeez.browserchannel.common net.thegeez.browserchannel.common

View file

@ -19,7 +19,7 @@
(reset! async-output {}) (reset! async-output {})
(f)) (f))
(deftype TestResponse (deftype TestAsyncResponse
[write-fn closed?-fn] [write-fn closed?-fn]
bc-async-adapter/IAsyncAdapter bc-async-adapter/IAsyncAdapter
@ -41,7 +41,7 @@
(let [resp (handler request)] (let [resp (handler request)]
(if (= :http (:async resp)) (if (= :http (:async resp))
(let [reactor (:reactor resp) (let [reactor (:reactor resp)
emit (TestResponse. write-async-output! closed-async-output?)] emit (TestAsyncResponse. write-async-output! closed-async-output?)]
(reactor emit) (reactor emit)
{:status 200}) {:status 200})
resp)))) resp))))