Mercurial > vim
diff src/testdir/test_hlsearch.vim @ 32669:448aef880252
normalize line endings
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Mon, 26 Jun 2023 09:54:34 +0200 |
parents | 57e589d18e7d |
children | 695b50472e85 |
line wrap: on
line diff
--- a/src/testdir/test_hlsearch.vim +++ b/src/testdir/test_hlsearch.vim @@ -1,113 +1,113 @@ -" Test for v:hlsearch - -source check.vim -source screendump.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 - -func Test_hlsearch_Ctrl_R() - CheckRunVimInTerminal - - let lines =<< trim END - set incsearch hlsearch - let @" = "text" - put - END - call writefile(lines, 'XhlsearchCtrlR', 'D') - let buf = RunVimInTerminal('-S XhlsearchCtrlR', #{rows: 6, cols: 60}) - - call term_sendkeys(buf, "/\<C-R>\<C-R>\"") - call VerifyScreenDump(buf, 'Test_hlsearch_ctrlr_1', {}) - - call term_sendkeys(buf, "\<Esc>") - call StopVimInTerminal(buf) -endfunc - -func Test_hlsearch_clipboard() - CheckRunVimInTerminal - CheckFeature clipboard_working - - let lines =<< trim END - set incsearch hlsearch - let @* = "text" - put * - END - call writefile(lines, 'XhlsearchClipboard', 'D') - let buf = RunVimInTerminal('-S XhlsearchClipboard', #{rows: 6, cols: 60}) - - call term_sendkeys(buf, "/\<C-R>*") - call VerifyScreenDump(buf, 'Test_hlsearch_ctrlr_1', {}) - - call term_sendkeys(buf, "\<Esc>") - call StopVimInTerminal(buf) -endfunc - -" vim: shiftwidth=2 sts=2 expandtab +" Test for v:hlsearch + +source check.vim +source screendump.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 + +func Test_hlsearch_Ctrl_R() + CheckRunVimInTerminal + + let lines =<< trim END + set incsearch hlsearch + let @" = "text" + put + END + call writefile(lines, 'XhlsearchCtrlR', 'D') + let buf = RunVimInTerminal('-S XhlsearchCtrlR', #{rows: 6, cols: 60}) + + call term_sendkeys(buf, "/\<C-R>\<C-R>\"") + call VerifyScreenDump(buf, 'Test_hlsearch_ctrlr_1', {}) + + call term_sendkeys(buf, "\<Esc>") + call StopVimInTerminal(buf) +endfunc + +func Test_hlsearch_clipboard() + CheckRunVimInTerminal + CheckFeature clipboard_working + + let lines =<< trim END + set incsearch hlsearch + let @* = "text" + put * + END + call writefile(lines, 'XhlsearchClipboard', 'D') + let buf = RunVimInTerminal('-S XhlsearchClipboard', #{rows: 6, cols: 60}) + + call term_sendkeys(buf, "/\<C-R>*") + call VerifyScreenDump(buf, 'Test_hlsearch_ctrlr_1', {}) + + call term_sendkeys(buf, "\<Esc>") + call StopVimInTerminal(buf) +endfunc + +" vim: shiftwidth=2 sts=2 expandtab