forked from aniani/vim
e530395c2c
Problem: Timeout implementation is not optimal.
Solution: Further improvements for timeouts. Add a test for searchpair()
timeout. (partly by Paul Ollis)
76 lines
2.0 KiB
VimL
76 lines
2.0 KiB
VimL
" Test for v:hlsearch
|
|
|
|
source check.vim
|
|
|
|
func Test_hlsearch()
|
|
new
|
|
call setline(1, repeat(['aaa'], 10))
|
|
set hlsearch nolazyredraw
|
|
" 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!
|
|
endfunc
|
|
|
|
func Test_hlsearch_hangs()
|
|
CheckFunction reltimefloat
|
|
|
|
" So, it turns out that Windows 7 implements TimerQueue timers differently
|
|
" and they can expire *before* the requested time has elapsed. So allow for
|
|
" the timeout occurring after 80 ms (5 * 16 (the typical clock tick)).
|
|
if has("win32")
|
|
let min_timeout = 0.08
|
|
else
|
|
let min_timeout = 0.1
|
|
endif
|
|
|
|
" This pattern takes a long time to match, it should timeout.
|
|
new
|
|
call setline(1, ['aaa', repeat('abc ', 1000), 'ccc'])
|
|
let start = reltime()
|
|
set hlsearch nolazyredraw redrawtime=101
|
|
let @/ = '\%#=1a*.*X\@<=b*'
|
|
redraw
|
|
let elapsed = reltimefloat(reltime(start))
|
|
call assert_inrange(min_timeout, 1.0, elapsed)
|
|
set nohlsearch redrawtime&
|
|
bwipe!
|
|
endfunc
|
|
|
|
func Test_hlsearch_eol_highlight()
|
|
new
|
|
call append(1, repeat([''], 9))
|
|
set hlsearch nolazyredraw
|
|
exe "normal! /$\<CR>" | redraw
|
|
let attr = screenattr(1, 1)
|
|
for row in range(2, 10)
|
|
call assert_equal(attr, screenattr(row, 1), 'in line ' . row)
|
|
endfor
|
|
set nohlsearch
|
|
bwipe!
|
|
endfunc
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|