   number, doc string, and stack trace if applicable."
   [r]
   (println
-   (cond (success? r) "SUCCESS"
-         (:throwable r) "ERROR"
-         :else "FAIL"))
+   (cond (success? r) (colorize "SUCCESS" :fg-green)
+         (:throwable r) (colorize "ERROR" :fg-red)
+         :else (colorize "FAIL" :fg-red)))
   (let [m (details r)]
     (when-let [n (:name m)] (println "Name:" n))
     (when-let [d (:doc m)] (println "Doc: " d))

    (doseq [c (:children r)]
      (spec-report* c (conj parents r)))
    (if (success? r)
      (do (print ".") (flush))
      (do (newline)
          (print-details
           (assoc r :source

(ns com.stuartsierra.lazytest.report
  (:use [com.stuartsierra.lazytest :only (success?)]
        [com.stuartsierra.lazytest.color :only (colorize)]
        [clojure.stacktrace :only (print-cause-trace)])
  (:import (java.io File)))

