diff options
Diffstat (limited to 'scripts/ci')
| -rw-r--r-- | scripts/ci/coverage_badge.clj | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/scripts/ci/coverage_badge.clj b/scripts/ci/coverage_badge.clj new file mode 100644 index 0000000..a8a0948 --- /dev/null +++ b/scripts/ci/coverage_badge.clj @@ -0,0 +1,37 @@ +(ns ci.coverage-badge
+ (:require [hickory.core :as h]
+ [clojure.string :as string]))
+
+(def readme-path "README.md")
+(def regex #"(?s)(?<=<!--COVERAGE_BADGE:START-->).*?(?=<!--COVERAGE_BADGE:END-->)")
+
+(def cloverage-output "target/coverage/index.html")
+(def coverage (let [rows (-> cloverage-output
+ slurp
+ h/parse
+ h/as-hickory
+ :content first ;; get <html>
+ :content (nth 3) ;; get <body>
+ :content second ;; get <table>
+ :content last ;; get <tbody>
+ :content)
+ total-row (->> rows
+ (map :content)
+ (filter sequential?)
+ (filter #(= "Totals:" (get-in % [0 :content 0])))
+ first
+ (filter map?))]
+ (-> total-row
+ (nth 2)
+ :content
+ first
+ (string/replace " " ""))))
+;; "25" will make "%25" which decoded to "%", removing it will result in a Bad Request
+(def badge-url (str "https://img.shields.io/badge/coverage-" coverage "25-green"))
+(def badge-html
+ (str "<img src=\"" badge-url "\" alt=\"test coverage " coverage "\">"))
+
+(defn -main [& _]
+ (let [readme-old (slurp readme-path)
+ readme-new (string/replace readme-old regex badge-html)]
+ (spit readme-path readme-new)))
|