 
 (defn with-attr [attr-name attr-value]
   (fn -with-attr-pred [component]
-    (let [component (.getDOMNode component)
+    (let [component (om/get-node component)
           actual-value (.getAttribute component attr-name)]
       (if (= attr-value actual-value)
         true


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

    )
  )

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

(defn -extract-m [tests]
