   )
 
 (defn with-class [class-name]
-  (fn [component]
+  (fn -with-class-pred [component]
     (let [actual (.. component -props -className)]
       (if (= class-name actual)
         true

  )

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

  )

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