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
clojure.test
net.thegeez.browserchannel.common

View file

@ -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))))