diff options
author | w0rp <devw0rp@gmail.com> | 2017-06-25 21:49:57 +0100 |
---|---|---|
committer | w0rp <devw0rp@gmail.com> | 2017-06-25 21:49:57 +0100 |
commit | 1917e9157c5134044e16bb84997ad7fe5860a833 (patch) | |
tree | 72316f7a63cb34e7b2e3f3dc8836a5f0e51ef49c /test | |
parent | 3828ea5b2655a03fe8de0332797386f42ae3b9ac (diff) | |
download | ale-1917e9157c5134044e16bb84997ad7fe5860a833.zip |
Fix #694 - Ignore BEGIN failed errors for Perl only for certain errors
Diffstat (limited to 'test')
-rw-r--r-- | test/handler/test_perl_handler.vader | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/handler/test_perl_handler.vader b/test/handler/test_perl_handler.vader index 1effd68c..3ada9aa4 100644 --- a/test/handler/test_perl_handler.vader +++ b/test/handler/test_perl_handler.vader @@ -36,3 +36,17 @@ Execute(The Perl linter should complain about failing to locate modules): \ '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.', + \ ]) |