test/test_perlcritic_showrules.vader


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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