       (println ".")
       (print-results m))))
 
-(defn diff-actual [[f [_ expected actual]]]
+(comment defn diff-actual [[f [_ expected actual]]]
   (diff/clean-difform expected actual))
 
 (defmethod clojure.test/report :fail [m]

(ns bake.test
  (:use [cake.contrib.find-namespaces :only [find-namespaces-in-dir]])
  (:require clojure.test
            [clojure.stacktrace :as stack]
            [com.georgejahad.difform :as diff]))

(defn map-tags [nses]
  (reduce (partial merge-with concat)

          actual   (:actual m)]
      (println "expected:" (pr-str expected))
      (println "  actual:" (pr-str actual))
      (comment when (seq? actual)
        (diff-actual actual)))))

(declare start-time)
