Vector, Set -with-meta should return coll if meta identical

elide another impl specific LITE_MODE test
add missing transiet impls to Vector

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -12330,7 +12330,10 @@ reduces them without incurring seq initialization"
             -1)))))
 
   IWithMeta
-  (-with-meta [coll meta] (Vector. meta array __hash))
+  (-with-meta [coll new-meta]
+    (if (identical? new-meta meta)
+      coll
+      (Vector. new-meta array __hash)))
 
   ICloneable
   (-clone [coll] (Vector. meta array __hash))
@@ -12465,6 +12468,19 @@ reduces them without incurring seq initialization"
   (-persistent! [coll]
     coll)
 
+  ITransientAssociative
+  (-assoc! [tcoll key val]
+    (-assoc-n! tcoll key val))
+
+  ITransientVector
+  (-assoc-n! [tcoll key val]
+    (if (number? key)
+      (-assoc-n tcoll key val)
+      (throw (js/Error. "Vector's key for assoc! must be a number."))))
+
+  (-pop! [tcoll]
+    (-pop tcoll))
+
   IIterable
   (-iterator [coll]
     (VectorIterator. array 0))
@@ -12962,7 +12978,10 @@ reduces them without incurring seq initialization"
           #(f (-val %) (-key %))))))
 
   IWithMeta
-  (-with-meta [coll meta] (Set. meta hash-map __hash))
+  (-with-meta [coll new-meta]
+    (if (identical? new-meta meta)
+      coll
+      (Set. new-meta hash-map __hash)))
 
   IMeta
   (-meta [coll] meta)

src/test/cljs/cljs/collections_test.cljs

@@ -1019,8 +1019,9 @@
 
 (deftest test-cljs-2128
   (testing "Subvec iteration"
-    (testing "Subvec over PersistentVector uses RangedIterator"
-      (is (instance? RangedIterator (-iterator (subvec [0 1 2 3] 1 3)))))
+    (when-not ^boolean LITE_MODE
+      (testing "Subvec over PersistentVector uses RangedIterator"
+        (is (instance? RangedIterator (-iterator (subvec [0 1 2 3] 1 3))))))
     (testing "Subvec over other vectors uses naive SeqIter"
       (is (instance? SeqIter (-iterator (subvec (->CustomVectorThing [0 1 2 3]) 1 3))))))
   (testing "Subvec reduce"