- cleanup collections test

Author: swannodette

src/test/cljs/cljs/collections_test.cljs

@@ -1200,31 +1200,10 @@
            (simple-hash-map :a 1 :b 2))
         (into (simple-hash-map) [[:a 2] [:b 4]])))
   (is (= (transient (simple-hash-map :a 1 :b 2))
-        (simple-hash-map :a 1 :b 2))))
+         (simple-hash-map :a 1 :b 2))))
 
 (comment
 
   (run-tests)
 
-  (defn simple-group-by
-    [f coll]
-    (persistent!
-      (reduce
-        (fn [ret x]
-          (let [k (f x)]
-            (assoc! ret k (conj (get ret k (. Vector -EMPTY)) x))))
-        (transient (. ObjMap -EMPTY)) coll)))
-
-  (simple-group-by
-    :ns
-    '[{:ns foo :name woz}
-      {:ns bar :name goz}
-      {:ns bar :name baz}
-      {:ns foo :name naz}])
-
-  (get (simple-hash-map :a 1 :b 2 :c 3) :a)
-
-  (#'scan-array-equiv 2 :a
-    (unchecked-get (. (simple-hash-map :a 1 :b 2 :c 3) -hashobj) (hash :a)))
-
   )