           io/as-file
           .exists))
 
-(defn site-resource [resource]
+(defn site-test-resource [resource]
   (let [resource-path (format "%s/%s"
                               (site-test-folder)
                               resource)]

           "`resources/test/" site-name "'")))

(defn image-page-html []
  (when-let [image-resource (site-resource "image.html")]
    (html/html-resource image-resource)))

(defn chapter-list-html []
  (when-let [image-resource (site-resource "chapter_list.html")]
    (html/html-resource image-resource)))

(defn test-extract-image-tag [html image-tag]

(defn test-extract-chapters-list []
  (let [site ((get-sites) site-name)
        results (try-read-file
                 (site-test-resource "chapter_list.clj"))]
    (if-let [html (chapter-list-html)]
      (call-with-options
       site
