 (let [in  {"one" 1 "two" 2 "three" "three"}
       out (js-obj "one" 1 "two" 2 "three" "three")]
   (deftest PersistentArrayMap->js
-    (is (introvert/->js in)
-        out))
+    (is= (introvert/->js in)
+         out))
 
   (deftest PersistentHashMap->js
-    (is (introvert/->js (hash-map in))
-        out))
+    (is= (introvert/->js (into (hash-map) in))
+         out))
 
   (deftest atomic-map->js
-    (is (introvert/->js (atom in))
-        out)))
+    (is= (introvert/->js (atom in))
+         out)))
 
 
 ;;***************************************************************************
 ;; Recursion
 ;;***************************************************************************
 (deftest RecursiveSeq->js
-  (is (introvert/->js (seq [1 "2" :three [:four 5]]))
-      (array 1 "2" "3" (array "four" 5))))
+  (is= (introvert/->js (seq [1 "2" :three [:four 5]]))
+       (array 1 "2" "three" (array "four" 5))))
 
 (deftest RecursiveMap->js
-  (is (introvert/->js {:one 1 :two :two :three {:a "A"}})
-      (js-obj "one" 1 "two" "two" "three" (js-obj "a" "A"))))
+  (is= (introvert/->js {:one 1 :two :two :three {:a "A"}})
+       (js-obj "one" 1 "two" "two" "three" (js-obj "a" "A"))))
 
 
 ;;***************************************************************************

        b-js (array 9 a-js)]

    (swap! a conj b)
    (.push a-js b)

    (is (introvert/->js b true)
        b-js)))

(deftest circular-map->flattened-js
  (let [a (atom {:1 1})
        b {:9 9 :a a}
        a-js (js-obj "1" 1 "Circular Map")
        b-js (js-obj "9" 9 "a" a-js)]

    (swap! a assoc :b b)

    (is (introvert/->js b true)
        b-js)))

        b-js (array 9 a-js)]

    (swap! a conj b)
    (.push a-js b-js)

    (let [result (introvert/->js b)]
      (is (= (count result) (count b-js))))))

(deftest circular-map->js
  (let [a (atom {:1 1})
