 (deftest test-hello-ok
   (let [[cl-sock srv-sock srv] (setup)]
     (try
-      (let [response (server-client-comm cl-sock srv srv-sock msg/hello)]
+      (let [response (server-client-comm cl-sock srv srv-sock msg/hello)
+            expected (blank-msg)]
+        (server/get-latest-post dummy-backend expected)
         (is (= HydraMsg/HELLO_OK
                (.id response)))
-        (is (= (server/get-latest-post dummy-backend)
+        (is (= (.post_id expected)
                (.post_id response)))
         (is (= :connected
                (-> @(:state srv) vals first))))

  (.close (:socket srv-sock))
  (.close (:socket cl-sock)))

(defn server-client-comm [cl-sock srv srv-sock cl-msg & args]
  (apply cl-msg cl-sock args)
  (server/match-msg srv (msg/recv srv-sock))

(deftest test-get-tag-ok
  (let [[cl-sock srv-sock srv] (setup :connected)]
    (try
      (let [tag "tag_1"
            response (server-client-comm cl-sock srv srv-sock msg/get-tag tag)
            expected (blank-msg)]
        (server/get-single-tag dummy-backend expected tag)
        (is (= HydraMsg/GET_TAG_OK
               (.id response)))
        (is (= tag
               (.tag response)))
        (is (= (.post_id expected)
               (.post_id response)))
        (is (= :connected
               (-> @(:state srv) vals first))))
      (finally
