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

(defn spec-report
  "Like dot-report but concatenates :doc strings for nested specs."
  [r]
  (println "Running" (:name (details r)))
  (spec-report* r [])
  (newline)
  (print-summary r))

(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)))

