test/linter/test_perlcritic.vader

   1 Before:
   2   call ale#assert#SetUpLinterTest('perl', 'perlcritic')
   3   call ale#test#SetFilename('test.pl')
   4   let g:ale_perl_perlcritic_profile = ''
   5
   6 After:
   7   unlet! b:readme_path
   8   call ale#assert#TearDownLinterTest()
   9
  10 Execute(The command should be correct with g:ale_perl_perlcritic_showrules off):
  11   let b:ale_perl_perlcritic_showrules = 0
  12
  13   AssertLinter 'perlcritic', ale#Escape('perlcritic')
  14   \   . ' --verbose ' . ale#Escape('%l:%c %m\n') . ' --nocolor'
  15
  16 Execute(The command should be correct with g:ale_perl_perlcritic_showrules on):
  17   let b:ale_perl_perlcritic_showrules = 1
  18
  19   AssertLinter 'perlcritic', ale#Escape('perlcritic')
  20   \   . ' --verbose ' . ale#Escape('%l:%c %m [%p]\n') . ' --nocolor'
  21
  22 Execute(The command search for the profile file when set):
  23   let b:ale_perl_perlcritic_profile = 'README.md'
  24
  25   let b:readme_path = ale#path#Simplify(expand('%:p:h:h:h') . '/README.md')
  26
  27   AssertLinter 'perlcritic', ale#Escape('perlcritic')
  28   \   . ' --verbose ' . ale#Escape('%l:%c %m\n') . ' --nocolor'
  29   \   . ' --profile ' . ale#Escape(b:readme_path)
  30
  31 Execute(Extra options should be set appropriately):
  32   let b:ale_perl_perlcritic_options = 'beep boop'
  33
  34   AssertLinter 'perlcritic', ale#Escape('perlcritic')
  35   \   . ' --verbose ' . ale#Escape('%l:%c %m\n') . ' --nocolor'
  36   \   . ' beep boop'