28 lines
742 B
Fennel
28 lines
742 B
Fennel
(local fennel (require :fennel))
|
|
(set debug.traceback fennel.traceback)
|
|
(local old-debug-getinfo debug.getinfo)
|
|
(fn debug.getinfo [x]
|
|
(let [{: sourcemap} (require :fennel.compiler)
|
|
info (old-debug-getinfo (+ 1 x))]
|
|
(when info
|
|
(set info.currentline (or (?. sourcemap info.source info.currentline 2) info.currentline))
|
|
(set info.linedefined (or (?. sourcemap info.source info.linedefined 2) info.linedefined)))
|
|
info))
|
|
|
|
(local faith (require :faith))
|
|
|
|
(faith.run
|
|
[:test.json-rpc
|
|
:test.string-processing
|
|
:test.capabilities
|
|
:test.settings
|
|
:test.diagnostic
|
|
:test.goto-definition
|
|
:test.hover
|
|
:test.completion
|
|
:test.references
|
|
:test.lint
|
|
:test.code-action
|
|
:test.rename
|
|
:test.misc])
|