Mercurial > vim
view src/testdir/test_matchadd_conceal_utf8.vim @ 32714:d83068c95ba0 v9.0.1681
patch 9.0.1681: Build Failure with Perl 5.38
Commit: https://github.com/vim/vim/commit/1d7caa58e3c87f75a4becbceabbd1af181ace11e
Author: Philip H <47042125+pheiduck@users.noreply.github.com>
Date: Thu Jun 22 08:55:47 2023 +0200
patch 9.0.1681: Build Failure with Perl 5.38
Problem: Build Failure with Perl 5.38
Solution: Fix Build Failure
closes: #12543, closes: #12575
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Wed, 09 Aug 2023 20:15:03 +0200 |
parents | 08940efa6b4e |
children |
line wrap: on
line source
" Test for matchadd() and conceal feature using utf-8. source check.vim CheckFeature conceal if !has('gui_running') && has('unix') set term=ansi endif func s:screenline(lnum) abort let line = [] for c in range(1, winwidth(0)) call add(line, nr2char(a:lnum->screenchar(c))) endfor return s:trim(join(line, '')) endfunc func s:trim(str) abort return matchstr(a:str,'^\s*\zs.\{-}\ze\s*$') endfunc func Test_match_using_multibyte_conceal_char() new setlocal concealcursor=n conceallevel=1 1put='# This is a Test' " 1234567890123456 let expect = '#ˑThisˑisˑaˑTest' call cursor(1, 1) call matchadd('Conceal', '\%2l ', 20, -1, {'conceal': "\u02d1"}) redraw! let lnum = 2 call assert_equal(expect, s:screenline(lnum)) call assert_notequal(screenattr(lnum, 1), screenattr(lnum, 2)) call assert_equal(screenattr(lnum, 2), screenattr(lnum, 7)) call assert_equal(screenattr(lnum, 2), screenattr(lnum, 10)) call assert_equal(screenattr(lnum, 2), screenattr(lnum, 12)) call assert_equal(screenattr(lnum, 1), screenattr(lnum, 16)) quit! endfunc " vim: shiftwidth=2 sts=2 expandtab