 (ns ^{:doc "TAP output. See http://testanything.org"}
-    midje.emission.plugins.tap
+  midje.emission.plugins.tap
   (:use midje.emission.util)
   (:require [midje.data.fact :as fact]
             [midje.emission.state :as state]


(defn finishing-fact-stream [midje-counters clojure-test-map]
  (let [passes-and-failures (+ (:midje-passes midje-counters) (:midje-failures midje-counters))]
    (util/emit-one-line (str 1 ".." passes-and-failures
                             (when-not passes-and-failures
                               "# No facts were checked. Is that what you wanted?")))))

(defn future-fact [description-list position]
  (util/emit-one-line "")
  (util/emit-one-line (str "WORK TO DO" " "
                           (when-let [doc (util/format-nested-descriptions description-list)]
                             (str (pr-str doc) " "))
                           "at " (util/filename-lineno position))))

(defn make-map [& keys]
  (zipmap keys

    (set-last-namespace-shown! namespace-symbol)))

(defn starting-fact-stream []
  (reset! fact-counter 0)
  (set-last-namespace-shown! nil))

(defn starting-to-check-fact [fact]
