rename some test stuff
This commit is contained in:
parent
605d6c5d51
commit
7e2d87731c
|
@ -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
|
|
@ -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))))
|
Reference in a new issue