Mercurial > vim
view src/testdir/test_hlsearch.vim @ 10510:dfbe8f74806d v8.0.0145
commit https://github.com/vim/vim/commit/29891c4ed4a7d08af1ba1628933a387adf5c1555
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Jan 6 18:00:12 2017 +0100
patch 8.0.0145: running tests on MS-Windows is noisy
Problem: Running tests on MS-Windows is a little bit noisy.
Solution: Redirect some output to "nul". (Ken Takata)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Fri, 06 Jan 2017 18:15:04 +0100 |
parents | eb9a7296ae9f |
children | aad2c2ca0774 |
line wrap: on
line source
" Test for v:hlsearch function! Test_hlsearch() new call setline(1, repeat(['aaa'], 10)) set hlsearch nolazyredraw let r=[] " redraw is needed to make hlsearch highlight the matches exe "normal! /aaa\<CR>" | redraw let r1 = screenattr(1, 1) nohlsearch | redraw call assert_notequal(r1, screenattr(1,1)) let v:hlsearch=1 | redraw call assert_equal(r1, screenattr(1,1)) let v:hlsearch=0 | redraw call assert_notequal(r1, screenattr(1,1)) set hlsearch | redraw call assert_equal(r1, screenattr(1,1)) let v:hlsearch=0 | redraw call assert_notequal(r1, screenattr(1,1)) exe "normal! n" | redraw call assert_equal(r1, screenattr(1,1)) let v:hlsearch=0 | redraw call assert_notequal(r1, screenattr(1,1)) exe "normal! /\<CR>" | redraw call assert_equal(r1, screenattr(1,1)) set nohls exe "normal! /\<CR>" | redraw call assert_notequal(r1, screenattr(1,1)) call assert_fails('let v:hlsearch=[]', 'E745') call garbagecollect(1) call getchar(1) enew! endfunction