spec-check-report.clj

;; Vanilla

(defn is*
  [results]
  (assert (seq results))
  (test/is
   (if (some? :failure results)
     (do
       (println "\nFailed specs:")
       (doseq [{:keys [sym failure]} results
               :when failure]
         (println sym)
         (pprint/pprint
          (or (ex-data failure) failure))))
     true)))

;; With Expound

(defn is*
  [results]
  (assert (seq results))
  (test/is
   (if (some :failure results)
     (exp/explain-results results)
     true)))

;; Usage

(is* (stest/check `ns/fn))