forked from aniani/vim
74db34cc91
Problem: Appending in Visual mode with 'linebreak' set does not work
properly. Also when 'selection' is "exclusive". (Ingo Karkat)
Solution: Recalculate virtual columns. (Christian Brabandt)
103 lines
3.2 KiB
Plaintext
103 lines
3.2 KiB
Plaintext
Test for linebreak and list option in utf-8 mode
|
||
|
||
STARTTEST
|
||
:so small.vim
|
||
:if !exists("+linebreak") || !has("conceal") | e! test.ok | w! test.out | qa! | endif
|
||
:so mbyte.vim
|
||
:if &enc !=? 'utf-8'|:e! test.ok|:w! test.out|qa!|endif
|
||
:10new|:vsp|:vert resize 20
|
||
:put =\"\tabcdef hijklmn\tpqrstuvwxyz\u00a01060ABCDEFGHIJKLMNOP \"
|
||
:norm! zt
|
||
:set ts=4 sw=4 sts=4 linebreak sbr=+ wrap
|
||
:fu! ScreenChar(width, lines)
|
||
: let c=''
|
||
: for j in range(1,a:lines)
|
||
: for i in range(1,a:width)
|
||
: let c.=nr2char(screenchar(j, i))
|
||
: endfor
|
||
: let c.="\n"
|
||
: endfor
|
||
: return c
|
||
:endfu
|
||
:fu! DoRecordScreen()
|
||
: wincmd l
|
||
: $put =printf(\"\n%s\", g:test)
|
||
: $put =g:line
|
||
: wincmd p
|
||
:endfu
|
||
:let g:test ="Test 1: set linebreak + set list + fancy listchars"
|
||
:exe "set linebreak list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6"
|
||
:redraw!
|
||
:let line=ScreenChar(winwidth(0),4)
|
||
:call DoRecordScreen()
|
||
:"
|
||
:let g:test ="Test 2: set nolinebreak list"
|
||
:set list nolinebreak
|
||
:redraw!
|
||
:let line=ScreenChar(winwidth(0),4)
|
||
:call DoRecordScreen()
|
||
:"
|
||
:let g:test ="Test 3: set linebreak nolist"
|
||
:$put =\"\t*mask = nil;\"
|
||
:$
|
||
:norm! zt
|
||
:set nolist linebreak
|
||
:redraw!
|
||
:let line=ScreenChar(winwidth(0),4)
|
||
:call DoRecordScreen()
|
||
:let g:test ="Test 4: set linebreak list listchars and concealing"
|
||
:let c_defines=['#define ABCDE 1','#define ABCDEF 1','#define ABCDEFG 1','#define ABCDEFGH 1', '#define MSG_MODE_FILE 1','#define MSG_MODE_CONSOLE 2','#define MSG_MODE_FILE_AND_CONSOLE 3','#define MSG_MODE_FILE_THEN_CONSOLE 4']
|
||
:call append('$', c_defines)
|
||
:vert resize 40
|
||
:$-7
|
||
:norm! zt
|
||
:set list linebreak listchars=tab:>- cole=1
|
||
:syn match Conceal conceal cchar=>'AB\|MSG_MODE'
|
||
:redraw!
|
||
:let line=ScreenChar(winwidth(0),7)
|
||
:call DoRecordScreen()
|
||
:let g:test ="Test 5: set linebreak list listchars and concealing part2"
|
||
:let c_defines=['bbeeeeee ; some text']
|
||
:call append('$', c_defines)
|
||
:$
|
||
:norm! zt
|
||
:set nowrap ts=2 list linebreak listchars=tab:>- cole=2 concealcursor=n
|
||
:syn clear
|
||
:syn match meaning /;\s*\zs.*/
|
||
:syn match hasword /^\x\{8}/ contains=word
|
||
:syn match word /\<\x\{8}\>/ contains=beginword,endword contained
|
||
:syn match beginword /\<\x\x/ contained conceal
|
||
:syn match endword /\x\{6}\>/ contained
|
||
:hi meaning guibg=blue
|
||
:hi beginword guibg=green
|
||
:hi endword guibg=red
|
||
:redraw!
|
||
:let line=ScreenChar(winwidth(0),1)
|
||
:call DoRecordScreen()
|
||
:let g:test ="Test 6: Screenattributes for comment"
|
||
:$put =g:test
|
||
:call append('$', ' /* and some more */')
|
||
:exe "set ft=c ts=7 linebreak list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6"
|
||
:syntax on
|
||
:hi SpecialKey term=underline ctermfg=red guifg=red
|
||
:let attr=[]
|
||
:nnoremap <expr> GG ":let attr += ['".screenattr(screenrow(),screencol())."']\n"
|
||
:$
|
||
:norm! zt0
|
||
GGlGGlGGlGGlGGlGGlGGlGGlGGlGGl
|
||
:call append('$', ['ScreenAttributes for test6:'])
|
||
:if attr[0] != attr[1] && attr[1] != attr[3] && attr[3] != attr[5]
|
||
: call append('$', "Attribut 0 and 1 and 3 and 5 are different!")
|
||
:else
|
||
: call append('$', "Not all attributes are different")
|
||
:endif
|
||
:set cpo&vim linebreak selection=exclusive
|
||
:let g:test ="Test 8: set linebreak with visual block mode and v_b_A and selection=exclusive and multibyte char"
|
||
:$put =g:test
|
||
Golong line: 40afoobar aTARGETÃ' at end
|
||
:exe "norm! $3B\<C-v>eAx\<Esc>"
|
||
:%w! test.out
|
||
:qa!
|
||
ENDTEST
|
||
dummy text
|