Mercurial > vim
view src/testdir/test_messages.vim @ 9760:96667173293d v7.4.2155
commit https://github.com/vim/vim/commit/9d5b876d458e242b8b5e44da10c5cdc6bbb7f57c
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Aug 4 21:21:13 2016 +0200
patch 7.4.2155
Problem: Quotes make GUI test fail on MS-Windows.
Solution: Remove quotes, strip white space.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 04 Aug 2016 21:30:07 +0200 |
parents | 9200836eee15 |
children | d111462e0173 |
line wrap: on
line source
" Tests for :messages function Test_messages() let oldmore = &more try set nomore " Avoid the "message maintainer" line. let $LANG = '' let arr = map(range(10), '"hello" . v:val') for s in arr echomsg s | redraw endfor let result = '' " get last two messages redir => result 2messages | redraw redir END let msg_list = split(result, "\n") call assert_equal(["hello8", "hello9"], msg_list) " clear messages without last one 1messages clear redir => result redraw | messages redir END let msg_list = split(result, "\n") call assert_equal(['hello9'], msg_list) " clear all messages messages clear redir => result redraw | messages redir END call assert_equal('', result) finally let &more = oldmore endtry endfunction