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


(defn test-image-page-extraction []
  (let [site ((get-sites) site-name)
        results (try-read-file (site-resource "image.clj"))]
    (if-let [html (image-page-html)]
      (call-with-options
       site

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

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

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

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