Fix #1866 - Handle empty output from Perl

This commit is contained in:
w0rp 2018-09-06 09:23:36 +01:00
parent d476578a40
commit f8beaa9e3e
No known key found for this signature in database
GPG Key ID: 0FC1ECAA8C81CD83
2 changed files with 9 additions and 0 deletions

View File

@ -14,6 +14,10 @@ let s:begin_failed_skip_pattern = '\v' . join([
\], '|') \], '|')
function! ale_linters#perl#perl#Handle(buffer, lines) abort function! ale_linters#perl#perl#Handle(buffer, lines) abort
if empty(a:lines)
return []
endif
let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' let l:pattern = '\(.\+\) at \(.\+\) line \(\d\+\)'
let l:output = [] let l:output = []
let l:basename = expand('#' . a:buffer . ':t') let l:basename = expand('#' . a:buffer . ':t')

View File

@ -7,6 +7,11 @@ After:
call ale#test#RestoreDirectory() call ale#test#RestoreDirectory()
call ale#linter#Reset() call ale#linter#Reset()
Execute(The Perl linter should handle empty output):
call ale#test#SetFilename('bar.pl')
AssertEqual [], ale_linters#perl#perl#Handle(bufnr(''), [])
Execute(The Perl linter should ignore errors from other files): Execute(The Perl linter should ignore errors from other files):
call ale#test#SetFilename('bar.pl') call ale#test#SetFilename('bar.pl')