git.m455.casa

fa

clone url: git://git.m455.casa/fa


esperbuild/espersrc/fennel-0.7.0/test/linter.fnl

1 (local l (require :test.luaunit))
2 (local fennel (require :fennel))
3 (local linter (fennel.dofile "src/linter.fnl" {:env :_COMPILER}))
4
5 (fn test-used []
6 "A test for the locals shadowing bug described in
7 https://todo.sr.ht/~technomancy/fennel/12"
8 (let [src "(fn [abc] (let [abc abc] abc))"
9 (ok? msg) (pcall fennel.compile-string src {:plugins [linter]})]
10 (l.assertTrue ok? msg)))
11
12 {: test-used}