Include doc blocks tests in code coverage report

Tests generated from docs contribute to code coverage so might
as well include them in code coverage report.

Split out coverage from clj_tests.clj to its own coverage.clj script.

Author: lread

.github/workflows/code-coverage.yml

@@ -42,7 +42,7 @@ jobs:
       run: clojure -Spath
 
     - name: Run Tests with Code Coverage
-      run: bb ./script/clj_tests.clj --coverage
+      run: bb ./script/coverage.clj
 
     - name: Upload Code Coverage Results
       run: bash <(curl -s https://codecov.io/bash) -f target/coverage/codecov.json

script/clj_tests.clj

@@ -18,7 +18,6 @@
     :default default-clojure-version
     :validate [#(some #{%} allowed-clojure-versions)
                (str "Must be one of: " (string/join ", " allowed-clojure-versions))]]
-   ["-c" "--coverage" "Generate code coverage report"]
    ["-h" "--help"]])
 
 (defn usage [options-summary]
@@ -47,17 +46,11 @@
     (status/line :error msg))
   (System/exit code))
 
-(defn run-unit-tests[{:keys [:clojure-version :coverage]}]
-  (let [cmd ["clojure"
-             (str "-M:test-common:kaocha:" clojure-version)
-             "--reporter" "documentation"]
-        cmd (if coverage
-              (concat cmd ["--plugin" "cloverage" "--codecov"])
-              cmd)]
-    (if coverage
-      (status/line :info (str "generating test coverage report against clojure v" clojure-version))
-      (status/line :info (str "testing clojure source against clojure v" clojure-version)))
-    (shell/command cmd)))
+(defn run-unit-tests [{:keys [:clojure-version]}]
+  (status/line :info (str "testing clojure source against clojure v" clojure-version))
+  (shell/command ["clojure"
+                  (str "-M:test-common:kaocha:" clojure-version)
+                  "--reporter" "documentation"]))
 
 (defn run-isolated-tests[{:keys [:clojure-version]}]
   (status/line :info (str "running isolated tests against clojure v" clojure-version))

script/coverage.clj

@@ -0,0 +1,29 @@
+#!/usr/bin/env bb
+
+(ns coverage
+  (:require [babashka.classpath :as cp]))
+
+(cp/add-classpath "./script")
+(require '[helper.env :as env]
+         '[helper.shell :as shell]
+         '[helper.status :as status])
+
+(defn generate-doc-tests []
+  (status/line :info "Generating tests for code blocks in documents")
+  (shell/command ["clojure" "-X:test-doc-blocks" "gen-tests"]))
+
+(defn run-clj-doc-tests []
+  (status/line :info "Running unit and code block tests under Clojure for coverage report")
+  (shell/command ["clojure" "-M:test-common:test-docs:kaocha"
+                  "--plugin" "cloverage" "--codecov"
+                  "--profile" "coverage"
+                  "--no-randomize"
+                  "--reporter" "documentation"]))
+
+(defn main []
+  (env/assert-min-versions)
+  (generate-doc-tests)
+  (run-clj-doc-tests)
+  nil)
+
+(main)

tests.edn

@@ -7,5 +7,7 @@
                                    :source-paths ["src"]
                                    :test-paths ["test-isolated"]}
                    :test-docs {:id :docs
-                               :test-paths ["target/test-doc-blocks/test"]}}]
+                               :test-paths ["target/test-doc-blocks/test"]}
+                   :coverage {:id :coverage
+                              :test-paths ["test" "target/test-doc-blocks/test"]}}]
  :reporter kaocha.report.progress/report}