                   </data> " )
 (dotest
   (with-forest (new-forest)
-    ; (let-spy-pretty
     (let [enlive-tree          (->> xml-str-prod
                                  java.io.StringReader.
                                  en-html/html-resource

          tree-2               (hid->hiccup root-hid)

          product-hids         (find-hids root-hid [:** :product])
          product-trees        (mapv hid->tree product-hids)
          product-trees-hiccup (mapv hid->hiccup product-hids)

          img2-paths           (find-paths-leaf root-hid [:data :products :product :images :image] "img2.jpg")

         [:section "Green Section"]
         [:images
          [:image "img.jpg"]
          [:image "img2.jpg"]]]])

      (is= img2-trees-hiccup
        [[:product
          [:section "Red Section"]
          [:images
           [:image "img.jpg"]
           [:image "img2.jpg"]]]
         [:product
          [:section "Green Section"]
          [:images
           [:image "img.jpg"]
           [:image "img2.jpg"]]]])

      (is= red-trees-hiccup
        [[:product
          [:section "Red Section"]
          [:images
           [:image "img.jpg"]
           [:image "img2.jpg"]]]]))))
