fbfd7cdaaa
Fennel-ls now can receive options from the language client over the protocol. Future work still necessary to have project-local files.
94 lines
3.3 KiB
Fennel
94 lines
3.3 KiB
Fennel
(import-macros {: is-matching : describe : it : before-each} :test)
|
|
(local is (require :test.is))
|
|
|
|
(local {: view} (require :fennel))
|
|
(local {: ROOT-URI
|
|
: create-client} (require :test.mock-client))
|
|
|
|
(local dispatch (require :fennel-ls.dispatch))
|
|
(local message (require :fennel-ls.message))
|
|
|
|
(macro find [t body ?sentinel]
|
|
(assert-compile (not ?sentinel) "you can only have one thing here, put a `(do)`")
|
|
(assert-compile (sequence? t) "[] square brackets please")
|
|
(local result (gensym :result))
|
|
(local nil* (sym :nil))
|
|
(table.insert t 1 result)
|
|
(table.insert t 2 nil*)
|
|
(table.insert t `&until)
|
|
(table.insert t result)
|
|
`(accumulate ,t ,body))
|
|
|
|
(local filename (.. ROOT-URI "/imaginary.fnl"))
|
|
|
|
(describe "diagnostic messages"
|
|
(it "handles compile errors"
|
|
(let [self (create-client)
|
|
responses (self:open-file! filename "(do do)")
|
|
diagnostic
|
|
(match responses
|
|
[{:params {: diagnostics}}]
|
|
(is (find [i v (ipairs diagnostics)]
|
|
(match v
|
|
{:message "tried to reference a special form without calling it"
|
|
:range {:start {:character 4 :line 0}
|
|
:end {:character 6 :line 0}}}
|
|
v))
|
|
"not found")
|
|
_ (error "did not match"))]
|
|
(is diagnostic "expected a diagnostic")))
|
|
|
|
(it "handles parse errors"
|
|
(let [self (create-client)
|
|
responses (self:open-file! filename "(do (print :hello(]")
|
|
diagnostic
|
|
(match responses
|
|
[{:params {: diagnostics}}]
|
|
(is (find [i v (ipairs diagnostics)]
|
|
(match v
|
|
{:message "expected whitespace before opening delimiter ("
|
|
:range {:start {:character 17 :line 0}
|
|
:end {:character 17 :line 0}}}
|
|
v))
|
|
"not found")
|
|
_ (error "did not match"))]
|
|
(is diagnostic "expected a diagnostic")))
|
|
|
|
(it "handles (match)"
|
|
(let [self (create-client)
|
|
responses (self:open-file! filename "(match)")]
|
|
(is-matching responses
|
|
[{:params
|
|
{:diagnostics
|
|
[{:range {:start {:character a :line b}
|
|
:end {:character c :line d}}}]}}]
|
|
"diagnostics should always have a range")))
|
|
|
|
(it "gives more than one error"
|
|
(let [self (create-client)
|
|
responses (self:open-file! filename "(unknown-global-1 unknown-global-2)")]
|
|
(is-matching responses
|
|
[{:params {:diagnostics [a b]}}] "there should be a diagnostic for each one here")))
|
|
|
|
(it "warns about unused variables"
|
|
(let [self (create-client)
|
|
responses (self:open-file! filename "(local x 10)")]
|
|
(match responses
|
|
[{:params {: diagnostics}}]
|
|
(is (find [i v (ipairs diagnostics)]
|
|
(match v
|
|
{:message "unused definition: x"
|
|
:range {:start {:character 7 :line 0}
|
|
:end {:character 8 :line 0}}}
|
|
v))
|
|
"not found")
|
|
_ (error "did not match")))))
|
|
|
|
;; TODO lints:
|
|
;; unnecessary (do) in body position
|
|
;; Unused variables / fields (maybe difficult)
|
|
;; discarding results to various calls
|
|
;; unnecessary `do`/`values` with only one inner form
|
|
;; mark when unification is happening on a `match` pattern (may be difficult)
|
|
;; think of more lints
|