          (str-lines (flatten (list data)))
          "None.")))
 
-(defn report-build-errors [bits mode]
+(defn report-build-errors [bits mode test]
   (let [f (result-file bits mode)
         result-txt (slurp f)
         vs-error-text (visual-studio-error-text result-txt)

        (println report))
      (println "Nothing to report."))))

(defn -main [mode]
  (make-full-report (get {"inc" :inc "full" :full} mode) true))


        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
