forked from aniani/vim
0946326580
Problem: The hlsearch test fails on fast systems.
Solution: Make the search pattern slower. Fix that the old regexp engine
doesn't timeout properly.
54 lines
1.5 KiB
VimL
54 lines
1.5 KiB
VimL
" 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
|
|
|
|
func Test_hlsearch_hangs()
|
|
if !has('reltime') || !has('float')
|
|
return
|
|
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_true(elapsed > 0.1)
|
|
call assert_true(elapsed < 1.0)
|
|
set nohlsearch redrawtime&
|
|
bwipe!
|
|
endfunc
|