           (str "Contents of `sites/" site ".clj'"
                " cannot be empty")))))
 
-(defn try-read-file [filename]
+(defn try-read-file [filename error-message]
   (try
     (read-file filename)
     (catch java.lang.RuntimeException re
       (is false
           (str "Contents of `" filename "'"
-               " cannot be empty")))))
+               " cannot be empty.\n"
+               error-message)))))
 
 (def ^:dynamic site-name)
 


(defn test-extract-chapters-list []
  (let [results (try-read-file
                 (site-test-resource "chapter_list.clj"))]
    (if-let [html (chapter-list-html)]
      (and
       (tu/ensure-dependencies-defined extract-chapters-list)


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