       out (array 1 2 "three")]
 
   (deftest IndexedSeq->js
-    (is (introvert/->js (seq in))
-        out))
+    (is= (introvert/->js (seq in))
+         out))
 
   (deftest LazySeq->js
-    (is (introvert/->js (take 3 in))
-        out))
+    (is= (introvert/->js (take 3 in))
+         out))
 
   (deftest PersistentVector->js
-    (is (introvert/->js in)
-        out))
+    (is= (introvert/->js in)
+         out))
 
   (deftest atomic-seq->js
-    (is (introvert/->js (atom in))
-        out)))
+    (is= (introvert/->js (atom in))
+         out)))
 
 
 ;;***************************************************************************

  (:require [overcode.introvert :as introvert]
            [cemerick.cljs.test :as test])
  (:require-macros [cemerick.cljs.test :refer (is deftest)]))

;;***************************************************************************
;; Identities
;;***************************************************************************
(let [identity->js
      (fn identity->js [v]
        (is (introvert/->js v) v))]

  (deftest str->js
    (identity->js "hello!"))

        b-js (array 9 a-js)]

    (swap! a conj 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 "b" "Circular Map")
        b-js (js-obj "9" 9 "a" a-js)]

    (swap! a assoc :b b)

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