implement config & cli-args to accept mute-zero-assertion?

Author: humorless

doc/03_configuration.md

@@ -20,6 +20,7 @@ Here's an example test configuration with a single test suite:
                                        :kaocha/source-paths  ["src"]
                                        :kaocha/test-paths    ["test/unit"]}]
  :kaocha/fail-fast?                  false
+ :kaocha/mute-zero-assertion?        true
  :kaocha/color?                      true
  :kaocha/reporter                    [kaocha.report/dots]
  :kaocha/plugins                     [:kaocha.plugin/randomize

src/kaocha/api.clj

@@ -92,6 +92,7 @@
       (let [config     (plugin/run-hook :kaocha.hooks/config config)
             color?     (:kaocha/color? config)
             fail-fast? (:kaocha/fail-fast? config)
+            mute-zero-assertion? (:kaocha/mute-zero-assertion? config)
             history    (atom [])]
         (binding [*active?*               true
                   testable/*fail-fast?*   fail-fast?
@@ -102,6 +103,10 @@
             (let [config (resolve-reporter config)]
               (let [test-plan (test-plan config)]
 
+                (when mute-zero-assertion?
+                  (hierarchy/underive! :kaocha.type.var/zero-assertions :kaocha/known-key)
+                  (hierarchy/underive! :kaocha.type.var/zero-assertions :kaocha/fail-type))
+
                 (when-not (some #(or (hierarchy/leaf? %)
                                      (::testable/load-error %))
                                 (testable/test-seq test-plan))
@@ -112,7 +117,7 @@
                                          (count (testable/test-seq-with-skipped test-plan))))
                     (output/warn (str "No tests were found. This may be an issue in your Kaocha test configuration."
                                       " To investigate, check the :test-paths and :ns-patterns keys in tests.edn.")))
-                  (throw+ {:kaocha/early-exit 0 }))
+                  (throw+ {:kaocha/early-exit 0}))
 
                 (when (find-ns 'matcher-combinators.core)
                   (require 'kaocha.matcher-combinators))
@@ -129,7 +134,7 @@
                                       ;; been interrupted, output capturing may
                                       ;; still be in effect.
                                       (System/setOut
-                                        orig-out)
+                                       orig-out)
                                       (binding [history/*history* history]
                                         (t/do-report (history/clojure-test-summary)))
                                       (catch Throwable t

src/kaocha/config.clj

@@ -78,6 +78,7 @@
                 reporter
                 color?
                 fail-fast?
+                mute-zero-assertion?
                 diff-style
                 randomize?
                 capture-output?
@@ -91,11 +92,12 @@
       bindings                (assoc :kaocha/bindings bindings)
       (some? color?)          (assoc :kaocha/color? color?)
       (some? fail-fast?)      (assoc :kaocha/fail-fast? fail-fast?)
+      (some? mute-zero-assertion?)      (assoc :kaocha/mute-zero-assertion? mute-zero-assertion?)
       (some? diff-style)      (assoc :kaocha/diff-style diff-style)
       (some? watch?)          (assoc :kaocha/watch? watch?)
       (some? randomize?)      (assoc :kaocha.plugin.randomize/randomize? randomize?)
       (some? capture-output?) (assoc :kaocha.plugin.capture-output/capture-output? capture-output?)
-      :->                     (merge (dissoc config :tests :plugins :reporter :color? :fail-fast? :watch? :randomize?)))))
+      :->                     (merge (dissoc config :tests :plugins :reporter :color? :fail-fast? :mute-zero-assertion? :watch? :randomize?)))))
 
 (defmethod aero/reader 'kaocha [_opts _tag value]
   (output/warn (format "The #kaocha reader literal is deprecated, please change it to %s." current-reader))
@@ -198,6 +200,7 @@
 (defn apply-cli-opts [config options]
   (cond-> config
     (some? (:fail-fast options))  (assoc :kaocha/fail-fast? (:fail-fast options))
+    (some? (:mute-zero-assertion options))  (assoc :kaocha/mute-zero-assertion? (:mute-zero-assertion options))
     (:reporter options)           (assoc :kaocha/reporter (:reporter options))
     (:watch options)              (assoc :kaocha/watch? (:watch options))
     (some? (:color options))      (assoc :kaocha/color? (:color options))

src/kaocha/hierarchy.clj

@@ -8,6 +8,11 @@
   [tag parent]
   (alter-var-root #'hierarchy derive tag parent))
 
+(defn underive!
+  "Add a parent/child relationship to kaocha's keyword hierarchy."
+  [tag parent]
+  (alter-var-root #'hierarchy underive tag parent))
+
 (derive! :fail :kaocha/fail-type)
 (derive! :error :kaocha/fail-type)
 

src/kaocha/runner.clj

@@ -32,6 +32,7 @@
    [nil  "--print-test-plan"    "Load tests, build up a test plan, then print out the test plan and exit."]
    [nil  "--print-result"       "Print the test result map as returned by the Kaocha API."]
    [nil  "--[no-]fail-fast"     "Stop testing after the first failure."]
+   [nil  "--[no-]mute-zero-assertion"     "Stop raising failure when there is no assertion in test."]
    [nil  "--[no-]color"         "Enable/disable ANSI color codes in output. Defaults to true."]
    [nil  "--[no-]watch"         "Watch filesystem for changes and re-run tests."]
    [nil  "--reporter SYMBOL"    "Change the test reporter, can be specified multiple times."