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

rename tests to be a bit more descriptive

Browse source
This commit is contained in:
Gered 2016-05-13 14:04:51 -04:00
parent f8dfde4e3a
commit 8838aba94b
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -109,7 +109,7 @@
(is (session-id-string? session-id)) (is (session-id-string? session-id))
session-id)) session-id))
(deftest backchannel-request-test (deftest create-session-and-open-backchannel-test
(let [options (update-in default-options [:headers] dissoc "Content-Type") (let [options (update-in default-options [:headers] dissoc "Content-Type")
create-resp (app (->new-session-request) options) create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp) session-id (get-session-id create-resp)
@ -150,7 +150,7 @@
"zx" (random-string) "zx" (random-string)
"t" 1}))) "t" 1})))
(deftest backchannel-request-send-data-to-client-test (deftest send-data-to-client-test
(let [options (update-in default-options [:headers] dissoc "Content-Type") (let [options (update-in default-options [:headers] dissoc "Content-Type")
create-resp (app (->new-session-request) options) create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp) session-id (get-session-id create-resp)
@ -166,7 +166,7 @@
(is (= (-> arrays ffirst second (get "__edn") (edn/read-string)) (is (= (-> arrays ffirst second (get "__edn") (edn/read-string))
{:foo "bar"}))))) {:foo "bar"})))))
(deftest backchannel-request-send-multiple-data-to-client-test (deftest send-multiple-data-to-client-test
(let [options (update-in default-options [:headers] dissoc "Content-Type") (let [options (update-in default-options [:headers] dissoc "Content-Type")
create-resp (app (->new-session-request) options) create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp) session-id (get-session-id create-resp)
@ -185,14 +185,15 @@
(is (= (get-edn-from-arrays arrays 1) (is (= (get-edn-from-arrays arrays 1)
"hello, world"))))) "hello, world")))))
(deftest backchannel-request-heartbeat-test (deftest backchannel-heartbeat-test
(let [options (-> default-options (let [options (-> default-options
(update-in [:headers] dissoc "Content-Type") (update-in [:headers] dissoc "Content-Type")
; shortened heartbeat interval for the purposes of this test
(assoc :keep-alive-interval 2)) (assoc :keep-alive-interval 2))
create-resp (app (->new-session-request) options) create-resp (app (->new-session-request) options)
session-id (get-session-id create-resp) session-id (get-session-id create-resp)
back-resp (app (->new-backchannel-request session-id))] back-resp (app (->new-backchannel-request session-id))]
(wait-for-agent-send-offs)
(is (:heartbeat-timeout @(get @sessions session-id)))
(wait-for-scheduled-interval (:keep-alive-interval options)) (wait-for-scheduled-interval (:keep-alive-interval options))
(let [async-resp @async-output (let [async-resp @async-output
arrays (get-response-arrays (:body async-resp))] arrays (get-response-arrays (:body async-resp))]