            (a/<!! (:chan user2))
            (a/<!! (:chan user3)))
 
-      (are [x] (= (:content x) (clojure-response result))
+      (are [x] (= (:content x) (clojure-response {:result result} ))
            (a/<!! (:chan user1))
            (a/<!! (:chan user2))
            (a/<!! (:chan user3)))

      (a/<!! (:chan user)) ;; drop result of form1

      (a/<!! (:chan user)) ;; drop broadcast of form2
      (is (= (:content (a/<!! (:chan user))) (clojure-response value))))))

(deftest test-ping
  (testing "When a user sends a clojure form all users see the form and the result as chat."

           (a/<!! (:chan user2))
           (a/<!! (:chan user3)))

      (are [x] (= (:content x) (clojure-response {:result result}))
           (a/<!! (:chan user1))
           (a/<!! (:chan user2))
           (a/<!! (:chan user3)))))
