fey.naomi/fennel-ls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

meta tests for selflint and release version

Browse Source
This commit is contained in:
XeroOl 2025-10-25 13:55:51 -05:00
parent 6aabd7797f
commit 59b59b98fd
1 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
test/meta.fnl
View File

@ -1,6 +1,9 @@
(local {: view} (require :fennel))
(local lint (require :fennel-ls.lint))
(local utils (require :fennel-ls.utils))
(local config (require :fennel-ls.config))
(local files (require :fennel-ls.files))
(local faith (require :faith))
(fn test-lints-are-documented []
(each [_ lint (ipairs lint.list)]
@ -8,12 +11,45 @@
(when (not= (type lint.what-it-does) "string") (error (.. name " needs a description of what it does in :what-it-does")))
(when (not= (type lint.why-care?) "string") (error (.. name " needs a description of why the linted pattern is bad in :why-care?")))
(when (not= (type lint.example) "string") (error (.. name " needs an example of broken and fixed code in :example")))
(when (not= (type lint.since) "string") (error (.. name " needs version: :since " (view utils.version)))))))
(when (not= (type lint.since) "string") (error (.. name " needs version: :since " (view utils.version))))))
nil)
(fn test-release-version-number-is-right []
(let [commit-message (-> (io.popen "git show -s --format='%s'")
(: :read "*a"))
version (commit-message:match "^Release (.*)")
version-from-utils utils.version
version-from-changelog (-> (io.open "changelog.md")
(: :read "*a")
(: :match "## ([%d.-]*) /.*"))]
(if version
(do ;; Release checks
(faith.= version version-from-utils "update `utils.version`")
(faith.= version version-from-changelog "update `changelog.md`"))
;; Non-release checks
(faith.match "%-dev" version-from-utils "Commit message doesn't say \"Release\", so this should be a dev version")))
nil)
(fn test-self-lint []
(let [server {}]
(config.initialize server {:capabilities {:general {:positionEncodings [:utf-8]}}
:clientInfo {:name "fennel-ls"}
:rootUri "file://."})
(let [filenames (-> (io.popen "find src -name \"*.fnl\" ! -path \"*/generated/*\" && find test -name \"*.fnl\"" :r)
(: :read "*a")
(: :gmatch "[^\n]+"))]
(each [filename filenames]
(let [uri (.. "file://" filename)
file (files.get-by-uri server uri)]
(lint.add-lint-diagnostics server file)
(each [_ diagnostic (ipairs file.diagnostics)]
(faith.= nil diagnostic))))))
nil)
;; other ideas:
;; selflint
;; docs on top of each file
;; makefile covers
{: test-lints-are-documented}
{: test-lints-are-documented
: test-release-version-number-is-right
: test-self-lint}