simple-map-entry missing ISequential marker protocol

- add test assertions for the cases considered along the way to the problem
- cljs.core-test now passing under :lite-mode true

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -10382,6 +10382,7 @@ reduces them without incurring seq initialization"
     (-count [coll] 2)
     IHash
     (-hash [coll] (hash-ordered-coll [k v]))
+    ISequential
     IEquiv
     (-equiv [coll other] (equiv-sequential coll other))
     IVector

src/test/cljs/cljs/lite_collections_test.cljs

@@ -19,22 +19,29 @@
     (is (== 1 (:foo a)))))
 
 (deftest test-simple-map-entry-eq-hash
+  (is (= (simple-map-entry 1 2) (simple-map-entry 1 2)))
   (is (= (simple-map-entry 1 2)
-         (MapEntry. 1 2 nil)))
+        (MapEntry. 1 2 nil)))
   (is (== (hash (simple-map-entry 1 2))
           (hash (MapEntry. 1 2 nil)))))
 
 (deftest test-simple-set-with-set
   (is (= (simple-set []) (set [])))
-  (is (= (set []) (simple-set []))))
+  (is (= (set []) (simple-set [])))
+  (is (= (simple-set [(simple-map-entry 1 2)])
+         (set [(MapEntry. 1 2 nil)]))))
 
-(comment
+(deftest test-hash-map-simple-map-entry
+  (let [m (assoc (. HashMap -EMPTY) (simple-map-entry 1 2) true)]
+    (is (contains? m (simple-map-entry 1 2)))))
+
+(deftest test-simple-set-simple-map-entry
+  (let [a (simple-set [(simple-map-entry 1 2)])]
+    (is (contains? a (simple-map-entry 1 2)))))
 
- (require '[cljs.lite-collections-test] :reload)
- (cljs.test/run-tests)
+(comment
 
- ;; failing
- (= (simple-set [(simple-map-entry 1 2)])
-    (set [(MapEntry. 1 2 nil)]))
+  (require '[cljs.lite-collections-test])
+  (cljs.test/run-tests)
 
-)
+  )