         (println report))
       (println "Nothing to report."))))
 
+(defn test-report []
+  (println (report-build-errors 32 :full true)))
+
 (defn -main [mode]
   (make-full-report (get {"inc" :inc "full" :full} mode) true))
 

        "\n\nIs installer download available on website?\n"
        (if installer-ok "Yes" "No. (build missing)\n")
        (when (= 32 bits)
          (report-segment "Missing device pages" (missing-device-pages)))
      ))))

(defn make-full-report [mode send?]
  (let [report
        (str
          (report-build-errors 32 mode)
          (report-build-errors 64 mode))]
    (if-not (empty? report)
      (do 
        (when send?

        outdated-jars (map #(.getName %)
                           (old-jars (File. micromanager "Install_AllPlatforms") 24))
        installer-ok (exe-on-server? bits today-token)]
    (when-not (and (empty? vs-error-text) (empty? outdated-dlls) (not test)
                   (empty? javac-errs) (empty? outdated-jars)
                   installer-ok)
      (str
