     (println (color-str (:status make-tests-by-namespace)
                         "Testing " (:name make-tests-by-namespace)))
     (->> (:test-items make-tests-by-namespace)
+         (remove #(when (env :fail-only?)
+                    (= :passed (:status %))))
          (mapv #(print-test-item % 1)))))
 
 (defn print-report-data

  (t/with-test-out
    (let [{:keys [namespaces tested passed failed error]} @impl/*test-state*]
      (try (->> namespaces
                (mapv print-namespace))
           (catch Exception e
             (when-not (->> e ex-data ::stop?)

                                          (partial println))
                                   (inc print-level))))
    (->> (:test-items test-item)
         (remove #(when (env :fail-only?)
                    (= :passed (:status %))))
         (mapv #(print-test-item % (inc print-level))))))

(defn print-namespace [make-tests-by-namespace]
