gered/clj-browserchannel
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

more units tests

Browse source
This commit is contained in:
Gered 2016-05-15 13:41:12 -04:00
parent ae79343138
commit 1ecaeae744
2 changed files with 73 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
clj-browserchannel/test/net/thegeez/browserchannel/server/bind_channel_http_request_tests.clj
View file

@ -191,6 +191,25 @@
(is (= (get-edn-from-arrays arrays 1)
"hello, world")))))
(deftest send-data-to-client-before-backchannel-created
(let [options default-options
create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp)]
(wait-for-agent-send-offs)
(send-data session-id {:foo "bar"})
(wait-for-agent-send-offs)
(let [back-resp (app (->new-backchannel-request session-id))]
(wait-for-agent-send-offs)
(let [async-resp @async-output
arrays (get-response-arrays (:body async-resp))]
(is (= 200 (:status back-resp)))
(is (= 200 (:status async-resp)))
(is (not (:closed? async-resp)))
(is (contains-all-of? (:headers async-resp)
(dissoc (:headers options) "Content-Type")))
(is (= (get-edn-from-arrays arrays 0)
{:foo "bar"}))))))
(deftest send-data-to-client-after-backchannel-reconnect
(let [options default-options
create-resp (app (->new-session-request) options)
@ -571,3 +590,44 @@
42))
(is (connected? session-id)))))
(deftest flush-buffer-write-failure-resends-buffer
(let [failed-once? (atom false)
fail-fn (fn [data]
(if (and (not @failed-once?)
(string? data)
(.contains data "fail"))
(reset! failed-once? true)))
options (-> default-options
(assoc :fail-fn fail-fn))
create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp)]
(wait-for-agent-send-offs)
(send-data session-id :first-queued)
(send-data session-id :second-queued)
(send-data session-id "fail")
(send-data session-id :fourth-queued)
; send-data flushes the buffer after each call, so we just delay
; opening a backchannel so that we can fill up the buffer with
; more then one message at a time easier
(let [back-resp (app (->new-backchannel-request session-id) options)]
(wait-for-agent-send-offs)
(is (= 200 (:status back-resp)))
(let [arrays-up-till-fail (get-response-arrays (:body @async-output))]
(is (= 200 (:status @async-output)))
(is (:closed? @async-output))
(is (connected? session-id))
(is (= :first-queued (get-edn-from-arrays arrays-up-till-fail 0)))
(is (= :second-queued (get-edn-from-arrays arrays-up-till-fail 1)))
; hacky requirement for this unit test due to the way we capture async response output
(reset! async-output {})
(let [back-resp (app (->new-backchannel-request session-id) options)]
(wait-for-agent-send-offs)
(is (= 200 (:status back-resp)))
(let [arrays (get-response-arrays (:body @async-output))]
(is (= 200 (:status @async-output)))
(is (not (:closed? @async-output)))
(is (connected? session-id))
(is (= :first-queued (get-edn-from-arrays arrays 0)))
(is (= :second-queued (get-edn-from-arrays arrays 1)))
(is (= "fail" (get-edn-from-arrays arrays 2)))
(is (= :fourth-queued (get-edn-from-arrays arrays 3)))))))))

23
clj-browserchannel/test/net/thegeez/browserchannel/test_async_adapter.clj
View file

@ -5,11 +5,14 @@
(def async-output (atom {}))
(defn write-async-output!
[data]
(if (map? data)
(swap! async-output merge data)
(swap! async-output (fn [{:keys [body] :as output}]
(assoc output :body (str body data))))))
[{:keys [fail-fn] :as options} data]
(let [fail? (if fail-fn (fail-fn data))]
(if fail?
(throw (Exception. "intentional write failure"))
(if (map? data)
(swap! async-output merge data)
(swap! async-output (fn [{:keys [body] :as output}]
(assoc output :body (str body data))))))))
(defn closed-async-output?
[]
@ -20,20 +23,20 @@
(f))
(deftype TestAsyncResponse
[write-fn closed?-fn]
[options write-fn closed?-fn]
bc-async-adapter/IAsyncAdapter
(head [this status headers]
(let [headers (assoc headers "Transfer-Encoding" "chunked")]
(write-fn {:status status :headers headers})))
(write-fn options {:status status :headers headers})))
(write-chunk [this data]
(if-not (closed?-fn)
(write-fn data)
(write-fn options data)
(throw bc-async-adapter/ConnectionClosedException)))
(close [this]
(write-fn {:closed? true})))
(write-fn options {:closed? true})))
(defn wrap-test-async-adapter
[handler & [options]]
@ -41,7 +44,7 @@
(let [resp (handler request)]
(if (= :http (:async resp))
(let [reactor (:reactor resp)
emit (TestAsyncResponse. write-async-output! closed-async-output?)]
emit (TestAsyncResponse. options write-async-output! closed-async-output?)]
(reactor emit)
{:status 200})
resp))))