17 lines
435 B
Plaintext
17 lines
435 B
Plaintext
Execute(no g:ale_perl_perlcritic_showrules):
|
|
silent noautocmd new testfile.pl
|
|
|
|
let g:ale_perl_perlcritic_showrules = 0
|
|
|
|
AssertEqual
|
|
\ "perlcritic --verbose '". '%l:%c %m\n' . "' --nocolor",
|
|
\ ale_linters#perl#perlcritic#GetCommand(bufnr(''))
|
|
|
|
let g:ale_perl_perlcritic_showrules = 1
|
|
|
|
AssertEqual
|
|
\ "perlcritic --verbose '". '%l:%c %m [%p]\n' . "' --nocolor",
|
|
\ ale_linters#perl#perlcritic#GetCommand(bufnr(''))
|
|
|
|
:q
|