                DIFF        (System/getenv "US_DIFF")
                NUM_DIFFS   (System/getenv "US_NUM_DIFFS")
                FRAME_LIMIT (System/getenv "US_FRAME_LIMIT")
-               QUICK_FAIL  (System/getenv "US_QUICK_FAIL")]
-           {:color?          (#{"1" "true"}  COLOR)
+               QUICK_FAIL  (System/getenv "US_QUICK_FAIL")
+               FAIL_ONLY   (System/getenv "US_FAIL_ONLY")]
+           {:fail-only?      (#{"1" "true"} FAIL_ONLY)
+            :color?          (#{"1" "true"}  COLOR)
             :diff-hl?        (#{"hl" "all"}  DIFF_MODE)
             :diff-list? (not (#{"hl"}        DIFF_MODE))
             :diff?      (not (#{"0" "false"} DIFF))

                                          (partial println))
                                   (inc print-level))))
    (->> (:test-items test-item)
         (mapv #(print-test-item % (inc print-level))))))

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

    (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
