view src/testdir/test101.in @ 8827:c154fbd3004f v7.4.1701

commit https://github.com/vim/vim/commit/f9f22dbe4f90673ecce601a9dee4bb750ce3cd8f Author: Bram Moolenaar <Bram@vim.org> Date: Sun Apr 3 14:09:59 2016 +0200 patch 7.4.1701 Problem: Equivalence classes still tested in old style tests. Solution: Remove the duplicate.
author Christian Brabandt <cb@256bit.org>
date Sun, 03 Apr 2016 14:15:06 +0200
parents 01c668384bcc
children
line wrap: on
line source

Test for v:hlsearch     vim: set ft=vim :

STARTTEST
:" Last abc: Q
:so small.vim
:new
:call setline(1, repeat(['aaa'], 10))
:set hlsearch nolazyredraw
:let r=[]
:command -nargs=0 -bar AddR :call add(r, [screenattr(1, 1), v:hlsearch])
/aaa
:AddR
:nohlsearch
:AddR
:let v:hlsearch=1
:AddR
:let v:hlsearch=0
:AddR
:set hlsearch
:AddR
:let v:hlsearch=0
:AddR
n:AddR
:let v:hlsearch=0
:AddR
/
:AddR
:set nohls
/
:AddR
:let r1=r[0][0]
:" I guess it is not guaranteed that screenattr outputs always the same character
:call map(r, 'v:val[1].":".(v:val[0]==r1?"highlighted":"not highlighted")')
:try
:   let v:hlsearch=[]
:catch
:   call add(r, matchstr(v:exception,'^Vim(let):E\d\+:'))
:endtry
:bwipeout!
:$put=r
:call garbagecollect(1)
:"
:/^start:/,$wq! test.out
:" vim: et ts=4 isk-=\:
:call getchar()
ENDTEST

start: