8a77290553
* If a Perl script compiles, there are only warnings and no errors
* Let the first Perl error or warning win.
Take the following example:
***
sub foo {
my $thing;
***
This might have the following messages when we compile it:
Missing right curly or square bracket at warning.pl line 7, at end of
line
syntax error at warning.pl line 7, at EOF
warning.pl had compilation errors.
With the current behaviour, we just get a "syntax error" message, which
isn't all that helpful. With this patch we get "Missing right curly or
square bracket".
* Fix variable scope and pattern matching syntax
* Use named variable to enhance clarity when matching Perl output
* Add more tests for Perl linter
* Remove unnecessary parens
* Simplify check for pattern match
88 lines
4 KiB
Text
88 lines
4 KiB
Text
Before:
|
|
call ale#test#SetDirectory('/testplugin/test/handler')
|
|
|
|
runtime ale_linters/perl/perl.vim
|
|
|
|
After:
|
|
call ale#test#RestoreDirectory()
|
|
call ale#linter#Reset()
|
|
|
|
Execute(The Perl linter should ignore errors from other files):
|
|
call ale#test#SetFilename('bar.pl')
|
|
|
|
AssertEqual
|
|
\ [
|
|
\ {'lnum': '2', 'type': 'E', 'text': 'Compilation failed in require'},
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ 'syntax error at ' . ale#path#Simplify(g:dir . '/foo.pm') . ' line 4, near "aklsdfjmy "',
|
|
\ 'Compilation failed in require at ' . ale#path#Simplify(g:dir . '/bar.pl') . ' line 2.',
|
|
\ 'BEGIN failed--compilation aborted at ' . ale#path#Simplify(g:dir . '/bar.pl') . ' line 2.',
|
|
\ ])
|
|
|
|
Execute(The Perl linter should complain about failing to locate modules):
|
|
AssertEqual
|
|
\ [
|
|
\ {
|
|
\ 'lnum': '23',
|
|
\ 'type': 'E',
|
|
\ 'text': 'Can''t locate JustOneDb.pm in @INC (you may need to install the JustOneDb module) (@INC contains: /home/local/sean/work/PostgreSQL/6616/../../../../lib /home/local/sean/work/PostgreSQL/6616/lib lib /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .)',
|
|
\ },
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ 'Can''t locate JustOneDb.pm in @INC (you may need to install the JustOneDb module) (@INC contains: /home/local/sean/work/PostgreSQL/6616/../../../../lib /home/local/sean/work/PostgreSQL/6616/lib lib /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .) at - line 23.',
|
|
\ 'BEGIN failed--compilation aborted at - line 23.',
|
|
\ ])
|
|
|
|
|
|
Execute(The Perl linter should complain about failing to locate modules):
|
|
AssertEqual
|
|
\ [
|
|
\ {'lnum': '8', 'type': 'E', 'text': 'BEGIN failed--compilation aborted'},
|
|
\ {'lnum': '10', 'type': 'E', 'text': 'BEGIN failed--compilation aborted'}
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ 'Unable to build `ro` accessor for slot `path` in `App::CPANFileUpdate` because the slot cannot be found. at /extlib/Method/Traits.pm line 189.',
|
|
\ 'BEGIN failed--compilation aborted at - line 8.',
|
|
\ 'Unable to build `ro` accessor for slot `path` in `App::CPANFileUpdate` because the slot cannot be found. at /extlib/Method/Traits.pm line 189.',
|
|
\ 'BEGIN failed--compilation aborted at - line 10.',
|
|
\ ])
|
|
|
|
Execute(The Perl linter should not report warnings as errors):
|
|
AssertEqual
|
|
\ [
|
|
\ {'lnum': '5', 'type': 'W', 'text': '"my" variable $foo masks earlier declaration in same scope'},
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ '"my" variable $foo masks earlier declaration in same scope at - line 5.',
|
|
\ 't.pl syntax OK',
|
|
\ ])
|
|
|
|
Execute(The Perl linter does not default to reporting generic error):
|
|
AssertEqual
|
|
\ [
|
|
\ {'lnum': '8', 'type': 'E', 'text': 'Missing right curly or square bracket'},
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ 'Missing right curly or square bracket at - line 8, at end of line',
|
|
\ 'syntax error at - line 8, at EOF',
|
|
\ 'Execution of t.pl aborted due to compilation errors.',
|
|
\ ])
|
|
|
|
" The first "error" is actually a warning, but the current implementation
|
|
" doesn't have a good way of teasing out the warnings from amongst the
|
|
" errors. If we're able to do this in future, then we'll want to switch
|
|
" the first "E" to a "W".
|
|
|
|
Execute(The Perl linter reports errors even when mixed with warnings):
|
|
AssertEqual
|
|
\ [
|
|
\ {'lnum': '5', 'type': 'E', 'text': '"my" variable $foo masks earlier declaration in same scope'},
|
|
\ {'lnum': '8', 'type': 'E', 'text': 'Missing right curly or square bracket'},
|
|
\ ],
|
|
\ ale_linters#perl#perl#Handle(bufnr(''), [
|
|
\ '"my" variable $foo masks earlier declaration in same scope at - line 5.',
|
|
\ 'Missing right curly or square bracket at - line 8, at end of line',
|
|
\ 'syntax error at - line 8, at EOF',
|
|
\ 'Execution of t.pl aborted due to compilation errors.',
|
|
\ ])
|