 
 (defn with-class [class-name]
   (fn -with-class-pred [component]
-    (let [component (.getDOMNode component)
+    (let [component (om/get-node component)
           actual (.. component -className)]
       (if (.contains (.. component -classList) class-name)
         true

    )
  )

(defn in [component selector]
  (let [component-node (.getDOMNode component)]
    (if (= selector "")
      component-node
      (.querySelector component-node selector)
      )
    )
  )

(defn -extract-m [tests]


(defn tag [expected-tag & tests]
  (fn -tag-pred [component]
    (let [component-node (om/get-node component)
          actual (tag-name component-node)]
      (if-not (= expected-tag actual)
        {:msg "Tag does not match" :expected expected-tag :actual actual}
