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

fix string methods, and some tests

Browse Source
This commit is contained in:
XeroOl 2025-04-17 00:13:17 -05:00
parent 1e3edf800d
commit 8a1aa53505
2 changed files with 15 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/fennel-ls/completions.fnl
View File

@ -50,8 +50,9 @@
def (do
(when (or (?. def :metadata :fnl/arglist)
(and (fennel.list? def.definition)
(or (fennel.sym? (. def.definition 1) "fn"))
(or (fennel.sym? (. def.definition 1) "λ"))))
;; TODO check that arg is called `self`
(or (fennel.sym? (. def.definition 1) "fn")
(fennel.sym? (. def.definition 1) "λ"))))
(add-completion def (.. name ":" field)))
(add-completion def (.. name "." field)))
_ (do
@ -60,7 +61,7 @@
(when definition.fields
(each [field value (pairs definition.fields)]
(when (= (type field) :string)
(add-completion value (.. name "." field)))))
(add-completion value (.. name ":" field)))))
(set (. seen definition) false)))
;; end yield

31
test/completion.fnl
View File

@ -77,8 +77,8 @@
(check "#nil\n(" [:_G :debug :table :io :getmetatable :setmetatable
:_VERSION :ipairs :pairs :next] [])
(check "(if ge" [:getmetatable] [])
(check "(table.i" [:insert] [])
(check "(ins" [:table.insert] [])
(check "(table.i" [:table.insert] [])
(check "(tablei" [:table.insert] [])
nil)
(fn test-local []
@ -108,7 +108,7 @@
(check "(let [foo 10
bar 20
_ fo|" [:foo :bar] [])
(check "(local x {:field 100})\n(if x.fi" [:field] [])
(check "(local x {:field 100})\n(if x.fi" [:x.field] [])
(check "(let [x 10] (let [x 10] x"
(fn [completions]
(faith.= 1 (accumulate [number-of-x 0 _ completion (ipairs completions)]
@ -154,13 +154,13 @@
nil)
(fn test-field []
(check "(local x {:field (fn [])})\n(x:" [:field] [:local])
(check "(local x {:field (fn [])})\n(x:" [:x:field] [])
;; regression test for not crashing
(check "(local x {:field (fn [])})\n(x::f" [] [])
(check
"(let [my-table {:foo 10 :bar 20}]\n my-table.|)))"
[:foo :bar]
[:_G :local :doto :+]) ;; no globals, specials, macros, or others
[:local :doto :+]) ;; no specials or macros because it's not in a head position
(check
{:main.fnl "(let [foo (require :fooo)]
foo.|)))"
@ -247,33 +247,24 @@
[])
nil)
(local eglot {:client-info {:name "Eglot" :version "1 million"}})
(fn test-eglot-fields []
"tests for handling Eglot specially"
(check "(coroutine.y|"
[{:label "yield"
[{:label "coroutine.yield"
:filterText "coroutine.yield"
:insertText "coroutine.yield"
:textEdit #(= nil $)
:documentation #(and $.value ($.value:find "```fnl\n(coroutine.yield ...)\n```" 1 true))}]
["coroutine" "_G" "do"
{:documentation #(= nil $)}]
eglot)
[])
(check "(local c coroutine)
(c.y"
[{:label "yield"
[{:label "c.yield"
:filterText "c.yield"
:insertText "c.yield"
:textEdit #(= nil $)}]
["coroutine" "_G" "do"]
eglot)
[])
(check "(local x {:field (fn [])})
(x:"
[:field]
[{:insertText :field}
:local]
eglot))
[:x:field]
[]))
;; ;; Future tests / features
;; ;; Scope Ordering Rules