[Issue #82] now reports the first failure's normal report

src/midje/internal_ideas/report.clj

@@ -131,7 +131,7 @@
       (indented (:stacktrace m))))
 
   (defmethod report-strings :formula-fail [m]
-    (list "At least one run of your formula failed.")))
+    (report-strings (:first-failure m))))
 
 (letfn [(render [m]
           (->> m report-strings flatten (remove nil?) (map *renderer*) doall))]

src/midje/unprocessed.clj

@@ -11,7 +11,8 @@
         [midje.internal-ideas.fact-context :only [nested-fact-description]]
          midje.internal-ideas.report
          midje.util.laziness
-        [midje.util.namespace :only [immigrate]]))
+        [midje.util.namespace :only [immigrate]]
+        [utilize.seq :only [find-first]]))
 (immigrate 'midje.checkers)
 
 (def ^{:private true} formula-reports (atom []))
@@ -20,9 +21,10 @@
   (swap! formula-reports conj report-map))
 
 (defn ^{:private true} report-formula-conclusion [report-map]
-  (let [all-report-maps (conj @formula-reports report-map)
-        result (if (every? #(= :pass (:type %)) all-report-maps) :pass :formula-fail)]  
-    (report {:type result})
+  (let [all-report-maps (conj @formula-reports report-map)]
+    (if-let [failure (find-first #(not= :pass (:type %)) all-report-maps)]
+      (report {:type :formula-fail :first-failure failure})
+      (report {:type :pass}) )
     (reset! formula-reports [])))
 
 (letfn [(fail [type actual call]

test/midje/internal_ideas/t_report.clj

@@ -202,4 +202,16 @@
                      :expected "s"}
         raw-report (with-identity-renderer (clojure.test/old-report failure-map))]
     (nth raw-report 0) => #"FAIL.*some description.* at .*foo.clj:3"
-    (nth raw-report 1) => #"a note"))
+    (nth raw-report 1) => #"a note"))
+
+(fact "formula failures report about the supplied first-failure"
+  (let [failure-map {:type :formula-fail
+                     :first-failure {:type :mock-expected-result-failure
+                                     :description "some description"
+                                     :position ["foo.clj" 3]
+                                     :actual nil
+                                     :expected "s"}}
+        raw-report (with-identity-renderer (clojure.test/old-report failure-map))]
+    (nth raw-report 0) => #"FAIL.*some description.* at .*foo.clj:3"
+    (nth raw-report 1) => #"Expected: \"s\""
+    (nth raw-report 2) => #"Actual: nil"))

test/midje/t_sweet.clj

@@ -328,7 +328,8 @@
 (after-silently
   (formula [a "y"]
     a => :foo))
-(fact @reported => (one-of (contains {:type :formula-fail})))
+(fact @reported => (one-of (contains {:type :formula-fail
+                                      :first-failure (contains {:type :mock-expected-result-failure})})))
 
 (defn make-string []
   (rand-nth ["a" "b" "c" "d" "e" "f" "g" "i"]))