20 lines
638 B
Fennel
20 lines
638 B
Fennel
(local faith (require :faith))
|
|
|
|
;; TODO refactor fennel-ls.check to avoid running end-to-end
|
|
;; (but keep/write at least some end-to-end tests)
|
|
(fn test-lint []
|
|
(let [input-file-name (os.tmpname)]
|
|
(doto (io.open input-file-name :w)
|
|
(: :write "(local x 1)")
|
|
(: :close))
|
|
(let [output-file (io.popen (.. "./fennel-ls --lint "
|
|
input-file-name)
|
|
:r)
|
|
contents (output-file:read :*a)]
|
|
(os.remove input-file-name)
|
|
(faith.= (.. input-file-name ":1:7: warning: unused definition: x\n")
|
|
contents))
|
|
nil))
|
|
|
|
{: test-lint}
|