Add dealer-router test

Author: Trevor Bernard

test/zeromq/zmq_test.clj

@@ -21,3 +21,18 @@
                      (zmq/bind "tcp://*:12310"))]
     (let [actual (zmq/receive-str pull)]
       (is (= nil actual)))))
+
+
+(deftest dealer-router-test
+  (with-open [dealer (doto (zmq/socket context :dealer)
+                       (zmq/set-receive-timeout 3000)
+                       (zmq/bind "tcp://*:12350"))
+              router (doto (zmq/socket context :router)
+                       (zmq/connect "tcp://127.0.0.1:12350"))]
+    (s/send "myid" dealer zmq/send-more)
+    (s/send "payload" dealer 0)
+    (let [[id & _] (zmq/receive-all router)]
+      (zmq/send router id zmq/send-more)
+      (zmq/send-str router "ack")
+      (let [actual (zmq/receive-str dealer)]
+        (is (= "ack" actual))))))