   (is (hf/hiccup-symbol-matches? :p.more.class :p.class.more)))
 
 (deftest test-hiccup-find
-  (is (= (list [:p.image "Yes 1"]
-               [:p.image "Yes 2"])
-         (hf/hiccup-find
+  (is (= (hf/hiccup-find
           [:p.image]
           [:html
            [:body

                [:p "Yes 2"]]]
              [:tr
               [:td
                [:p "Yes 3"]]]]]]]))))

(deftest test-hiccup-text
  (is (= "Text here"
         (hf/hiccup-text [:p "Text here"])))

  (is (= "Text here"
         (hf/hiccup-text [:p [:span "Text here"]])))

  (is (= "Text here"
         (hf/hiccup-text [:p {:class "something"} "Text here"])))

  (is (= "Text here"
         (hf/hiccup-text [:p {:class "something"} "Text " [:strong "here"]])))

  (is (= (str "Welcome, earthling\n"
              "Hope you enjoy your stay")
         (hf/hiccup-text
          [:html
           [:body
            [:h1 "Welcome, earthling"]
            [:p "Hope you " [:strong "enjoy"] " your stay"]]])))

  (is (= "Number 42"
         (hf/hiccup-text
          [:html
           [:body
            [:p "Number " [:strong 42]]]]))))

(deftest test-hiccup-string
  (is (= "Welcome, earthling Hope you enjoy your stay"
         (hf/hiccup-string
          [:html
           [:body
            [:h1 "Welcome, earthling"]
            [:p "Hope you " [:strong "enjoy"] " your stay"]]])))

  (is (= "Welcome! Hope you enjoy your stay"
         (hf/hiccup-string
          [:html
           [:body
            [:h1 "Welcome!"]
            [:p "Hope you   " [:strong "enjoy"] " your stay"]]]))))

             [:table
              [:tr
               [:td
                [:p "Yes 2"]]]]]]])
         (list [:p "Yes 1"]
               [:p "Yes 2"])))

  (is (= (hf/hiccup-find
          [:div :p]
          [:html
           [:body
