 
 (deftest test-784
   (testing "Testing CLJS-784, conj on maps"
-    (is (every? true?
-          (for [m [(array-map) (hash-map) (sorted-map)]]
-            (and (= :ok
-                      (try
-                        (conj m "foo")
-                        (catch js/Error _
-                          :ok)))
-                  (= {:foo 1} (conj m [:foo 1]))
-                  (= {:foo 1} (conj m {:foo 1}))
-                  (= {:foo 1} (conj m (list [:foo 1])))))))
-    (is (every? true?
-          (for [mt [array-map hash-map sorted-map]]
-            (= {:foo 1 :bar 2 :baz 3}
-              (conj (mt :foo 1)
-                ((fn make-seq [from-seq]
-                   ;; this tests specifically for user defined seq's, that implement the bare minimum, i.e. no INext
-                   (when (seq from-seq)
-                     (reify
-                       ISeqable
-                       (-seq [this] this)
-                       ISeq
-                       (-first [this] (first from-seq))
-                       (-rest [this] (make-seq (rest from-seq))))))
-                 [[:bar 2] [:baz 3]])))))))
+    (doseq [m [(array-map) (hash-map) (sorted-map)]]
+      (is (= :ok
+            (try
+              (conj m "foo")
+              (catch js/Error _
+                :ok))))
+      (is (= {:foo 1} (conj m [:foo 1])))
+      (is (= {:foo 1} (conj m {:foo 1})))
+      (is (= {:foo 1} (conj m (list [:foo 1])))))
+    (doseq [mt [array-map hash-map sorted-map]]
+      (is (= {:foo 1 :bar 2 :baz 3}
+            (conj (mt :foo 1)
+              ((fn make-seq [from-seq]
+                 ;; this tests specifically for user defined seq's, that implement the bare minimum, i.e. no INext
+                 (when (seq from-seq)
+                   (reify
+                     ISeqable
+                     (-seq [this] this)
+                     ISeq
+                     (-first [this] (first from-seq))
+                     (-rest [this] (make-seq (rest from-seq))))))
+               [[:bar 2] [:baz 3]]))))))
   )
 
 (deftest test-case-keyword

                    (fn [r k v] (-> r (conj [k v])))
                    [] data)))))]
    (testing "Testing IKVReduce"
      (is (every? true?
            (for [[data expect] [[(obj-map :k0 :v0 :k1 :v1) [[:k0 :v0] [:k1 :v1]]]
                                 [(hash-map :k0 :v0 :k1 :v1) [[:k0 :v0] [:k1 :v1]]]
                                 [(array-map :k0 :v0 :k1 :v1) [[:k0 :v0] [:k1 :v1]]]
                                 [[:v0 :v1] [[0 :v0] [1 :v1]]]]]
              (kvr-test data expect))))
      (is (= {:init :val} (reduce-kv assoc {:init :val} nil))))))

(deftest test-data-conveying-exceptions

            (no-dispatch-value {:test :test})
            (catch js/Error e
              (not= -1 (.indexOf (.-message e) "cljs.core-test/no-dispatch-value")))))
      (doseq [m [(obj-map) (array-map) (hash-map) (sorted-map)]]
        (is (my-map? m)))
      (doseq [not-m [[] 1 "asdf" :foo]]
        (is (not (my-map? not-m))))
      ;; multimethod hashing
      (is (= foo2' (ffirst {foo2' 1})))
)))
