Mercurial > vim
view src/testdir/test_messages.vim @ 9913:bb00c661b3a4 v7.4.2230
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Aug 20 16:57:02 2016 +0200
patch 7.4.2230
Problem: There is no equivalent of 'smartcase' for a tag search.
Solution: Add value "followscs" and "smart" to 'tagcase'. (Christian
Brabandt, closes https://github.com/vim/vim/issues/712) Turn tagcase test into new style.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 20 Aug 2016 17:00: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