test :implement more succinct summary reporting of test results

Author: darwin

test/backend/src/backend_tests/dirac/tests/backend/runner.clj

@@ -19,6 +19,8 @@
   (logging/setup! {:log-out   :console
                    :log-level log-level}))
 
+; -- custom reporting -------------------------------------------------------------------------------------------------------
+
 (defn get-fold-name [m]
   (cuerdas/kebab (ns-name (:ns m))))
 
@@ -30,6 +32,18 @@
 (defmethod clojure.test/report :end-test-ns [m]
   (print (travis/travis-fold-command "end" (get-fold-name m))))
 
+(defmethod clojure.test/report :summary [m]
+  (let [assertions-count (+ (:pass m) (:fail m) (:error m))
+        failed? (or (pos? (:fail m)) (pos? (:error m)))
+        report-style (if failed? :red :green)
+        status (if failed?
+                 (str (:fail m) " failures, " (:error m) " errors.")
+                 "all passed.")]
+    (with-test-out
+      (println (style (str "Ran " (:test m) " tests containing " assertions-count " assertions => " status) report-style)))))
+
+; -- main entrypoint --------------------------------------------------------------------------------------------------------
+
 (defn -main []
   (setup-logging!)
   (println (style (str "Running backend tests against Clojure " (clojure-version)) :blue))

test/browser/src/browser_tests/dirac/tests/browser/runner.clj

@@ -43,6 +43,16 @@
   (with-test-out
     (println (style (str "Testing " (ns-name (:ns m))) :cyan))))
 
+(defmethod clojure.test/report :summary [m]
+  (let [assertions-count (+ (:pass m) (:fail m) (:error m))
+        failed? (or (pos? (:fail m)) (pos? (:error m)))
+        report-style (if failed? :red :green)
+        status (if failed?
+                 (str (:fail m) " failures, " (:error m) " errors.")
+                 "all passed.")]
+    (with-test-out
+      (println (style (str "Ran " (:test m) " tests containing " assertions-count " assertions => " status) report-style)))))
+
 ; -- fixtures ---------------------------------------------------------------------------------------------------------------
 
 (defn run-tests! []