     (is (= (pr-str (PrintMe. 1 2)) "#cljs.core-test.PrintMe{:a 1, :b 2}"))
     (is (= (pr-str (js/Date. "2010-11-12T13:14:15.666-05:00"))
           "#inst \"2010-11-12T18:14:15.666-00:00\""))
-    (is (every? true?
-          (for [month (range 1 13)
-                day   (range 1 29)
-                hour  (range 1 23)]
-            (let [pad (fn [n]
-                        (if (< n 10)
-                          (str "0" n)
-                          n))
-                  inst (str "2010-" (pad month) "-" (pad day) "T" (pad hour) ":14:15.666-00:00")]
-              (= (pr-str (js/Date. inst)) (str "#inst \"" inst "\""))))))
+    (doseq [month (range 1 13)
+            day   (range 1 29)
+            hour  (range 1 23)]
+      (let [pad (fn [n]
+                  (if (< n 10)
+                    (str "0" n)
+                    n))
+            inst (str "2010-" (pad month) "-" (pad day) "T" (pad hour) ":14:15.666-00:00")]
+        (is (= (pr-str (js/Date. inst)) (str "#inst \"" inst "\"")))))
     (let [uuid-str "550e8400-e29b-41d4-a716-446655440000"
           uuid (UUID. uuid-str)]
       (is (= (pr-str uuid) (str "#uuid \"" uuid-str "\""))))

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

                    (fn [r k v] (-> r (conj [k v])))
                    [] data)))))]
    (testing "Testing IKVReduce"
      (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
