   )
 
 (defn text [text]
-  (fn [component]
+  (fn -text-pred [component]
     (if (= text component)
       true
       {:msg "Text does not match" :expected text :actual component}

  )

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

  )

(defn with-attr [attr-name attr-value]
  (fn -with-attr-pred [component]
    (let [actual-value (aget (.. component -props) attr-name)]
      (if (= attr-value actual-value)
        true
