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

test function to check code actions don't exist

Browse Source
This commit is contained in:
XeroOl 2024-05-04 01:27:37 -05:00
parent bd2d208724
commit d06e0dfbe8
No known key found for this signature in database
GPG Key ID: 9DD4B4B4DAED0322
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/code-action.fnl
View File

@ -14,13 +14,20 @@
action))] action))]
(if (not action) (if (not action)
(error (error
(.. "I couldn't find your action \"" action-I-want-to-take "\" in: (.. "I couldn't find your action \"" action-I-want-to-take "\" in:\n"
"
(view (icollect [_ action (ipairs responses)] (view (icollect [_ action (ipairs responses)]
action.title))))) action.title)))))
(let [edits (?. action :edit :changes uri) (let [edits (?. action :edit :changes uri)
edited-text (apply-edits text edits encoding)] edited-text (apply-edits text edits encoding)]
(faith.= desired-file-contents edited-text)))) (faith.= desired-file-contents edited-text))))
(fn check-negative [file-contents action-not-suggested]
(let [{: self : uri :locations [range]} (create-client-with-files file-contents)
[{:result responses}] (self:code-action uri range.range)]
(each [_ action (ipairs responses)]
(assert (not= action.title action-not-suggested)
(.. "I found your action \"" action-not-suggested "\" in:\n"
(view (icollect [_ action (ipairs responses)]
action.title)))))))
(fn test-fix-op-no-arguments [] (fn test-fix-op-no-arguments []
(check "(let [x (+====)] (check "(let [x (+====)]