Mercurial > vim
view src/testdir/test_hlsearch.vim @ 25060:54c0cb81e6a7 v8.2.3067
patch 8.2.3067: building fails with Athena
Commit: https://github.com/vim/vim/commit/1d1ce613cdc74721499660b1d8911de164e2862d
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Jun 27 19:02:52 2021 +0200
patch 8.2.3067: building fails with Athena
Problem: Building fails with Athena. (Elimar Riesebieter)
Solution: Adjust #ifdefs and add the 'drop_file' feature.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 27 Jun 2021 19:15:03 +0200 |
parents | ff21e2962490 |
children | b90bca860b5a |
line wrap: on
line source
" 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 " 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 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