                     (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))))
+      (doseq [[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]]]]]
+        (is (kvr-test data expect)))
       (is (= {:init :val} (reduce-kv assoc {:init :val} nil))))))
 
 (deftest test-data-conveying-exceptions


(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]])))))))
  )

(deftest test-case-keyword

            (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})))
)))
