 
 (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 in [component selector]
  (let [component-node (.getDOMNode component)]
    (if (= selector "")
      component-node
      (.querySelector component-node selector)
      )
    )
  )

(defn -extract-m [tests]


(defn with-text [text]
  (fn -text-pred [component]
    (let [component (om/get-node component)
          actual-text (.-textContent component)]
      (if (= text actual-text)
        true
