added hash-map test file

Author: thomasmulvaney

src/test/cljs/cljs/hash_map_test.cljs

@@ -0,0 +1,23 @@
+(ns cljs.hash-map-test
+  (:refer-clojure :exclude [iter])
+  (:require [cljs.test :refer-macros [deftest testing is]]))
+
+(defn iter->set
+  "Return a set of elements in iterator"
+  [iter]
+  (loop [entries #{} iter iter]
+    (if (.hasNext iter)
+      (recur (conj entries (.next iter)) iter)
+      entries)))
+
+(deftest test-cljs-1765
+  (is (true? (.hasNext (-iterator (hash-map nil 1)))))
+  (is (true? (.hasNext (-iterator (hash-map :a 1 :b 2 :c 3 :d 4 nil 5)))))
+  (is (= #{[nil 1]}
+         (-> (hash-map nil 1)
+             (-iterator)
+             (iter->set))))
+  (is (= #{[:a 1] [:b 2] [:c 3] [:d 4] [nil 5]}
+         (-> (hash-map :a 1 :b 2 :c 3 :d 4 nil 5)
+             (-iterator)
+             (iter->set)))))

src/test/cljs/test_runner.cljs

@@ -17,7 +17,8 @@
             [cljs.import-test]
             [cljs.ns-test.foo]
             [cljs.pprint]
-            [cljs.clojure-alias-test]))
+            [cljs.clojure-alias-test]
+            [cljs.hash-map-test]))
 
 (set! *print-newline* false)
 (set-print-fn! js/print)
@@ -40,4 +41,5 @@
   'foo.ns-shadow-test
   'cljs.import-test
   'cljs.pprint
-  'cljs.clojure-alias-test)
+  'cljs.clojure-alias-test
+  'cljs.hash-map-test)