      (catch java.lang.RuntimeException re
        nil))
 
-   (str "Contents of `resources/sites/" site ".clj'"
+   (str "Contents of `resources/sites/" site ".clj' "
         "cannot be empty. It must contain exactly "
         "one map literal.")))
 

                             file#)))))

(defn success-message [message]
  (println (style (str "\u2713 " message)
                  :green))
  true)



(defn testdef-form [site-name]
  `(deftest ~(symbol (str site-name "-test"))
     (println (style ~(str "\n" site-name ":") :yellow))
     (binding [~'site-name ~site-name]
       (and
        (expect-opts-are-map site-name)
