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

      (println ".")
      (print-results m))))

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

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