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
|
||||
clojure.test
|
||||
net.thegeez.browserchannel.common
|
|
@ -19,7 +19,7 @@
|
|||
(reset! async-output {})
|
||||
(f))
|
||||
|
||||
(deftype TestResponse
|
||||
(deftype TestAsyncResponse
|
||||
[write-fn closed?-fn]
|
||||
bc-async-adapter/IAsyncAdapter
|
||||
|
||||
|
@ -41,7 +41,7 @@
|
|||
(let [resp (handler request)]
|
||||
(if (= :http (:async resp))
|
||||
(let [reactor (:reactor resp)
|
||||
emit (TestResponse. write-async-output! closed-async-output?)]
|
||||
emit (TestAsyncResponse. write-async-output! closed-async-output?)]
|
||||
(reactor emit)
|
||||
{:status 200})
|
||||
resp))))
|
Reference in a new issue