   )
 
 (defn containing [& tests]
-  (fn [component]
-    (let [children (js->clj (.. component -props -children))
+  (fn -containing-pred [component]
+    (let [children (.. component -props -children)
           test-count (count tests)]
-      (if (sequential? children)
+      (if (= (type children) js/Array)
         ;; React annoyingly makes children = the single child element,
         ;; when there is only one, instead of a list of one
         (let [child-count (count children)]

    )
  )

(defn rendered [component state & tests]
  (binding [om/*instrument* -instrument]
    (let [rendered-comp (.render (om/build* component state {}))]
      (test-predicates tests rendered-comp {:in "rendered component"})
      )
    )


(defn -instrument [sub-component cursor _]
  {:sub-component sub-component
   :cursor cursor}
  )

(defn test-predicates
