Mercurial > vim

comparison src/testdir/test_messages.vim @ 20168:be661435893a v8.2.0639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.0639: MS-Windows: messages test still fails Commit: https://github.com/vim/vim/commit/49b2fb36ca94be14b98caf86420863d9bbe81a24 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Apr 25 17:13:56 2020 +0200 patch 8.2.0639: MS-Windows: messages test still fails Problem: MS-Windows: messages test still fails. Solution: Filter out the maintainer message.
author Bram Moolenaar <Bram@vim.org>
date Sat, 25 Apr 2020 17:15:03 +0200
parents c75be957c6fb
children ec0ace1ddc20
comparison
equal deleted inserted replaced
20167:9396041b8f7b 20168:be661435893a
1 " Tests for :messages, :echomsg, :echoerr 1 " Tests for :messages, :echomsg, :echoerr
2 2
3 source shared.vim 3 source shared.vim
4 source term_util.vim 4 source term_util.vim
5 5
6 function Test_messages() 6 " Get all messages but drop the maintainer entry.
7 func GetMessages()
8 redir => result
9 redraw | messages
10 redir END
11 let msg_list = split(result, "\n")
12 if msg_list->len() > 0 && msg_list[0] =~ 'Messages maintainer:'
13 return msg_list[1:]
14 endif
15 return msg_list
16 endfunc
17
18 func Test_messages()
7 let oldmore = &more 19 let oldmore = &more
8 try 20 try
9 set nomore 21 set nomore
10 " Avoid the "message maintainer" line.
11 let $LANG = ''
12 let $LC_ALL = ''
13 let $LC_MESSAGES = ''
14 let $LC_COLLATE = ''
15 22
16 let arr = map(range(10), '"hello" . v:val') 23 let arr = map(range(10), '"hello" . v:val')
17 for s in arr 24 for s in arr
18 echomsg s | redraw 25 echomsg s | redraw
19 endfor 26 endfor
20 let result = ''
21 27
22 " get last two messages 28 " get last two messages
23 redir => result 29 redir => result
24 2messages | redraw 30 2messages | redraw
25 redir END 31 redir END
26 let msg_list = split(result, "\n") 32 let msg_list = split(result, "\n")
27 call assert_equal(["hello8", "hello9"], msg_list) 33 call assert_equal(["hello8", "hello9"], msg_list)
28 34
29 " clear messages without last one 35 " clear messages without last one
30 1messages clear 36 1messages clear
31 redir => result 37 let msg_list = GetMessages()
32 redraw | messages
33 redir END
34 let msg_list = split(result, "\n")
35 call assert_equal(['hello9'], msg_list) 38 call assert_equal(['hello9'], msg_list)
36 39
37 " clear all messages 40 " clear all messages
38 messages clear 41 messages clear
39 redir => result 42 let msg_list = GetMessages()
40 redraw | messages 43 call assert_equal([], msg_list)
41 redir END
42 call assert_equal('', result)
43 finally 44 finally
44 let &more = oldmore 45 let &more = oldmore
45 endtry 46 endtry
46 47
47 call assert_fails('message 1', 'E474:') 48 call assert_fails('message 1', 'E474:')
48 endfunction 49 endfunc
49 50
50 " Patch 7.4.1696 defined the "clearmode()" function for clearing the mode 51 " Patch 7.4.1696 defined the "clearmode()" function for clearing the mode
51 " indicator (e.g., "-- INSERT --") when ":stopinsert" is invoked. Message 52 " indicator (e.g., "-- INSERT --") when ":stopinsert" is invoked. Message
52 " output could then be disturbed when 'cmdheight' was greater than one. 53 " output could then be disturbed when 'cmdheight' was greater than one.
53 " This test ensures that the bugfix for this issue remains in place. 54 " This test ensures that the bugfix for this issue remains in place.