Skip to content

Commit

Permalink
Avoid the "gilardi scenario"
Browse files Browse the repository at this point in the history
  • Loading branch information
marick committed Jan 10, 2011
1 parent d736d84 commit 38bd84a
Showing 1 changed file with 1 addition and 5 deletions.
6 changes: 1 addition & 5 deletions examples/cake-midje/tasks.clj
Expand Up @@ -6,12 +6,10 @@
(deftask midje
"Run midje and clojure.test tests"
(bake (:use [bake.core :only [with-context]])
(:require [clojure test string])
[namespaces (concat (find-namespaces-in-dir (java.io.File. "test"))
(find-namespaces-in-dir (java.io.File. "src")))]
(with-context :test
(require 'clojure.test)
(require 'clojure.string)

;; This turns off "Testing ...." lines, which I hate, especially
;; when there's no failure output.
(defmethod clojure.test/report :begin-test-ns [m])
Expand Down Expand Up @@ -48,8 +46,6 @@

(when (> (+ (:fail clojure-test-result) (:error clojure-test-result))
0)
;; For some reason, empty lines are swallowed, so I use >>> to
;; demarcate sections.
(println ">>> Output from clojure.test tests:")
(dorun (map println (drop-last 2 clojure-test-output))))

Expand Down

0 comments on commit 38bd84a

Please sign in to comment.