 
 (defn test-extract-chapters-list []
   (let [results (try-read-file
-                 (site-test-resource "chapter_list.clj"))]
+                 (site-test-resource "chapter_list.clj")
+                 "Please add a map with a :chapter-list key.")]
     (if-let [html (chapter-list-html)]
       (and
        (tu/ensure-dependencies-defined extract-chapters-list)

          (str "Contents of `sites/" site ".clj'"
               " cannot be empty")))))

(defn try-read-file [filename]
  (try
    (read-file filename)
    (catch java.lang.RuntimeException re
      (is false
          (str "Contents of `" filename "'"
               " cannot be empty")))))

(def ^:dynamic site-name)



(defn test-image-page-extraction []
  (let [results (try-read-file
                 (site-test-resource "image.clj")
                 (str "Please add a map with keys for :image-tag,"
                      " :pages-list and :chapter-url."))]
    (if-let [html (image-page-html)]
      (and
       (test-extract-image-tag html (:image-tag results))
