diff options
| -rw-r--r-- | autoload/ale/cursor.vim | 9 | ||||
| -rw-r--r-- | test/test_cursor_warnings.vader | 18 |
2 files changed, 19 insertions, 8 deletions
diff --git a/autoload/ale/cursor.vim b/autoload/ale/cursor.vim index cd9593ce..ad580b98 100644 --- a/autoload/ale/cursor.vim +++ b/autoload/ale/cursor.vim @@ -23,16 +23,19 @@ function! s:EchoWithShortMess(setting, message) abort let l:shortmess_options = getbufvar('%', '&shortmess') try - " Turn shormess on or off. + " Turn shortmess on or off. if a:setting ==# 'on' setlocal shortmess+=T + " echomsg is neede for the message to get truncated and appear in + " the message history. + exec "norm! :echomsg a:message\n" elseif a:setting ==# 'off' setlocal shortmess-=T + " Regular echo is needed for printing newline characters. + echo a:message else throw 'Invalid setting: ' . string(a:setting) endif - - exec "norm! :echomsg a:message\n" finally call setbufvar('%', '&shortmess', l:shortmess_options) endtry diff --git a/test/test_cursor_warnings.vader b/test/test_cursor_warnings.vader index 5e37036a..09081b12 100644 --- a/test/test_cursor_warnings.vader +++ b/test/test_cursor_warnings.vader @@ -11,7 +11,7 @@ Before: \ 'nr': -1, \ 'type': 'E', \ 'text': 'Missing semicolon. (semi)', - \ 'detail': 'Every statement should end with a semicolon' + \ 'detail': "Every statement should end with a semicolon\nsecond line" \ }, \ { \ 'lnum': 2, @@ -61,6 +61,8 @@ After: let g:ale_buffer_info = {} + unlet! g:output + delfunction GetLastMessage mess clear @@ -104,12 +106,18 @@ Execute(The message at the cursor should be shown on InsertLeave): Execute(ALEDetail should print 'detail' attributes): call cursor(1, 1) - ALEDetail - AssertEqual "Every statement should end with a semicolon", GetLastMessage() + redir => g:output + ALEDetail + redir END + + AssertEqual "\nEvery statement should end with a semicolon\nsecond line", g:output Execute(ALEDetail should print regular 'text' attributes): call cursor(2, 10) - ALEDetail - AssertEqual "Infix operators must be spaced. (space-infix-ops)", GetLastMessage() + redir => g:output + ALEDetail + redir END + + AssertEqual "\nInfix operators must be spaced. (space-infix-ops)", g:output |