33 lines
1.5 KiB
Clojure
33 lines
1.5 KiB
Clojure
(ns honey.gen-doc-tests
|
|
(:require [babashka.fs :as fs]
|
|
[lread.test-doc-blocks :as tdb]))
|
|
|
|
(defn -main [& _args]
|
|
(let [target "target/test-doc-blocks"
|
|
success-marker (fs/file target "SUCCESS")
|
|
docs ["README.md"
|
|
"doc/clause-reference.md"
|
|
"doc/differences-from-1-x.md"
|
|
"doc/extending-honeysql.md"
|
|
"doc/general-reference.md"
|
|
"doc/getting-started.md"
|
|
;;"doc/operator-reference.md"
|
|
"doc/options.md"
|
|
"doc/postgresql.md"
|
|
"doc/special-syntax.md"]
|
|
regen-reason (if (not (fs/exists? success-marker))
|
|
"a previous successful gen result not found"
|
|
(let [newer-thans (fs/modified-since target
|
|
(concat docs
|
|
["build.clj" "deps.edn"]
|
|
(fs/glob "build" "**/*.*")
|
|
(fs/glob "src" "**/*.*")))]
|
|
(when (seq newer-thans)
|
|
(str "found files newer than last gen: " (mapv str newer-thans)))))]
|
|
(if regen-reason
|
|
(do
|
|
(fs/delete-if-exists success-marker)
|
|
(println "gen-doc-tests: Regenerating:" regen-reason)
|
|
(tdb/gen-tests {:docs docs})
|
|
(spit success-marker "SUCCESS"))
|
|
(println "gen-doc-tests: Tests already successfully generated"))))
|