Add test for websocket extensions

- fixing issue - #17
stalefruits · Apr 21, 2016 · 8d455e1 · 8d455e1
1 parent dd5482a
commit 8d455e1
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/test/gniazdo/core_test.clj b/test/gniazdo/core_test.clj
@@ -137,3 +137,18 @@
     (with-timeout (.acquire sem))
     (is (= @result ["wamp"]))
     (close conn)))
+
+(deftest extensions-test
+  (let [result (atom nil)
+        sem (java.util.concurrent.Semaphore. 0)
+        conn (connect
+               uri
+               :extensions ["permessage-deflate"]
+               :on-connect (fn [^Session session]
+                             (reset! result (.. session getUpgradeRequest getExtensions))
+                             (.release sem)))]
+    (with-timeout (.acquire sem))
+    (is (-> @result
+          (.get 0)
+          (.getName)) "permessage-deflate")
+    (close conn)))