vim: src/testdir/test_listlbr

annotate src/testdir/test_listlbr_utf8.vim @ 13211:44941d705775

Added tag v8.0.1479 for changeset c1534eb682a61768b66b662439531271d403e157

author	Christian Brabandt <cb@256bit.org>
date	Fri, 09 Feb 2018 12:15:06 +0100
parents	18373179040e
children	63b02fcf1361

rev	line source
10843 678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Test for linebreak and list option in utf-8 mode
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	2
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	3 set encoding=utf-8
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	4 scriptencoding utf-8
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	5
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	6 if !exists("+linebreak") \|\| !has("conceal") \|\| !has("signs")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	7 finish
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	8 endif
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	9
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	10 source view_util.vim
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	11
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	12 function s:screen_lines(lnum, width) abort
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	13 return ScreenLines(a:lnum, a:width)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	14 endfunction
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	15
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	16 function! s:compare_lines(expect, actual)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	17 call assert_equal(a:expect, a:actual)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	18 endfunction
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	19
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	20 function s:screen_attr(lnum, chars, ...) abort
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	21 let line = getline(a:lnum)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	22 let attr = []
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	23 let prefix = get(a:000, 0, 0)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	24 for i in range(a:chars[0], a:chars[1])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	25 let scol = strdisplaywidth(strcharpart(line, 0, i-1)) + 1
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	26 let attr += [screenattr(a:lnum, scol + prefix)]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	27 endfor
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	28 return attr
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	29 endfunction
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	30
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	31 function s:test_windows(...)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	32 call NewWindow(10, 20)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	33 setl ts=4 sw=4 sts=4 linebreak sbr=+ wrap
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	34 exe get(a:000, 0, '')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	35 endfunction
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	36
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	37 function s:close_windows(...)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	38 call CloseWindow()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	39 exe get(a:000, 0, '')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	40 endfunction
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	41
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	42 func Test_linebreak_with_fancy_listchars()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	43 call s:test_windows("setl list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	44 call setline(1, "\tabcdef hijklmn\tpqrstuvwxyz\u00a01060ABCDEFGHIJKLMNOP ")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	45 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	46 let lines = s:screen_lines([1, 4], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	47 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	48 \ "▕———abcdef ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	49 \ "+hijklmn▕——— ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	50 \ "+pqrstuvwxyz␣1060ABC",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	51 \ "+DEFGHIJKLMNOPˑ¶ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	52 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	53 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	54 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	55 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	56
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	57 func Test_nolinebreak_with_list()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	58 call s:test_windows("setl nolinebreak list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	59 call setline(1, "\tabcdef hijklmn\tpqrstuvwxyz\u00a01060ABCDEFGHIJKLMNOP ")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	60 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	61 let lines = s:screen_lines([1, 4], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	62 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	63 \ "▕———abcdef hijklmn▕—",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	64 \ "+pqrstuvwxyz␣1060ABC",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	65 \ "+DEFGHIJKLMNOPˑ¶ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	66 \ "~ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	67 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	68 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	69 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	70 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	71
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	72 func Test_linebreak_with_nolist()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	73 call s:test_windows('setl nolist')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	74 call setline(1, "\t*mask = nil;")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	75 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	76 let lines = s:screen_lines([1, 4], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	77 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	78 \ " *mask = nil; ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	79 \ "~ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	80 \ "~ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	81 \ "~ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	82 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	83 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	84 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	85 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	86
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	87 func Test_list_and_concealing1()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	88 call s:test_windows('setl list listchars=tab:>- cole=1')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	89 call setline(1, [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	90 \ "#define ABCDE\t\t1",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	91 \ "#define ABCDEF\t\t1",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	92 \ "#define ABCDEFG\t\t1",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	93 \ "#define ABCDEFGH\t1",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	94 \ "#define MSG_MODE_FILE\t\t\t1",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	95 \ "#define MSG_MODE_CONSOLE\t\t2",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	96 \ "#define MSG_MODE_FILE_AND_CONSOLE\t3",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	97 \ "#define MSG_MODE_FILE_THEN_CONSOLE\t4",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	98 \ ])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	99 vert resize 40
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	100 syn match Conceal conceal cchar=>'AB\\|MSG_MODE'
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	101 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	102 let lines = s:screen_lines([1, 7], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	103 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	104 \ "#define ABCDE>-->---1 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	105 \ "#define >CDEF>-->---1 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	106 \ "#define >CDEFG>->---1 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	107 \ "#define >CDEFGH>----1 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	108 \ "#define >_FILE>--------->--->---1 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	109 \ "#define >_CONSOLE>---------->---2 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	110 \ "#define >_FILE_AND_CONSOLE>---------3 ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	111 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	112 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	113 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	114 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	115
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	116 func Test_list_and_concealing2()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	117 call s:test_windows('setl nowrap ts=2 list listchars=tab:>- cole=2 concealcursor=n')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	118 call setline(1, "bbeeeeee\t\t;\tsome text")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	119 vert resize 40
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	120 syn clear
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	121 syn match meaning /;\s\zs./
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	122 syn match hasword /^\x\{8}/ contains=word
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	123 syn match word /\<\x\{8}\>/ contains=beginword,endword contained
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	124 syn match beginword /\<\x\x/ contained conceal
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	125 syn match endword /\x\{6}\>/ contained
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	126 hi meaning guibg=blue
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	127 hi beginword guibg=green
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	128 hi endword guibg=red
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	129 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	130 let lines = s:screen_lines([1, 1], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	131 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	132 \ "eeeeee>--->-;>some text ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	133 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	134 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	135 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	136 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	137
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	138 func Test_screenattr_for_comment()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	139 call s:test_windows("setl ft=c ts=7 list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	140 call setline(1, " /\t\t and some more /")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	141 norm! gg0
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	142 syntax on
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	143 hi SpecialKey term=underline ctermfg=red guifg=red
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	144 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	145 let line = getline(1)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	146 let attr = s:screen_attr(1, [1, 6])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	147 call assert_notequal(attr[0], attr[1])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	148 call assert_notequal(attr[1], attr[3])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	149 call assert_notequal(attr[3], attr[5])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	150 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	151 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	152
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	153 func Test_visual_block_and_selection_exclusive()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	154 call s:test_windows('setl selection=exclusive')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	155 call setline(1, "long line: " . repeat("foobar ", 40) . "TARGETÃ' at end")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	156 exe "norm! $3B\<C-v>eAx\<Esc>"
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	157 let lines = s:screen_lines([1, 10], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	158 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	159 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	160 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	161 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	162 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	163 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	164 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	165 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	166 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	167 \ "+foobar foobar ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	168 \ "+foobar TARGETÃx' ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	169 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	170 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	171 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	172 endfunc
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	173
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	174 func Test_multibyte_sign_and_colorcolumn()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	175 call s:test_windows("setl nolinebreak cc=3 list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	176 call setline(1, ["", "a b c", "a b c"])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	177 exe "sign define foo text=\uff0b"
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	178 exe "sign place 1 name=foo line=2 buffer=" . bufnr('%')
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	179 redraw!
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	180 norm! ggj0
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	181 let signwidth = strdisplaywidth("\uff0b")
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	182 let attr1 = s:screen_attr(2, [1, 3], signwidth)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	183 let attr2 = s:screen_attr(3, [1, 3], signwidth)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	184 call assert_equal(attr1[0], attr2[0])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	185 call assert_equal(attr1[1], attr2[1])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	186 call assert_equal(attr1[2], attr2[2])
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	187 let lines = s:screen_lines([1, 3], winwidth(0))
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	188 let expect = [
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	189 \ " ¶ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	190 \ "＋a b c¶ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	191 \ " a b c¶ ",
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	192 \ ]
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	193 call s:compare_lines(expect, lines)
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	194 call s:close_windows()
678edb254216 patch 8.0.0311: linebreak tests are old style Christian Brabandt <cb@256bit.org> parents: diff changeset	195 endfunc
10982 5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	196
11585 18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	197 func Test_colorcolumn_priority()
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	198 call s:test_windows('setl cc=4 cuc hls')
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	199 call setline(1, ["xxyy", ""])
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	200 norm! gg
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	201 exe "normal! /xxyy\<CR>"
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	202 norm! G
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	203 redraw!
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	204 let line_attr = s:screen_attr(1, [1, &cc])
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	205 " Search wins over CursorColumn
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	206 call assert_equal(line_attr[1], line_attr[0])
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	207 " Search wins over Colorcolumn
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	208 call assert_equal(line_attr[2], line_attr[3])
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	209 call s:close_windows('setl hls&vim')
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	210 endfunc
18373179040e patch 8.0.0675: 'colorcolumn' has a higher priority than 'hlsearch' Christian Brabandt <cb@256bit.org> parents: 11010 diff changeset	211
10982 5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	212 func Test_illegal_byte_and_breakat()
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	213 call s:test_windows("setl sbr= brk+=<")
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	214 vert resize 18
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	215 call setline(1, repeat("\x80", 6))
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	216 redraw!
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	217 let lines = s:screen_lines([1, 2], winwidth(0))
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	218 let expect = [
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	219 \ "<80><80><80><80><8",
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	220 \ "0><80> ",
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	221 \ ]
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	222 call s:compare_lines(expect, lines)
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	223 call s:close_windows('setl brk&vim')
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	224 endfunc
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	225
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	226 func Test_multibyte_wrap_and_breakat()
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	227 call s:test_windows("setl sbr= brk+=>")
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	228 call setline(1, repeat('a', 17) . repeat('あ', 2))
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	229 redraw!
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	230 let lines = s:screen_lines([1, 2], winwidth(0))
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	231 let expect = [
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	232 \ "aaaaaaaaaaaaaaaaaあ>",
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	233 \ "あ ",
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	234 \ ]
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	235 call s:compare_lines(expect, lines)
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	236 call s:close_windows('setl brk&vim')
5e20c9f96cd5 patch 8.0.0380: with 'linebreak' double wide char wraps badly Christian Brabandt <cb@256bit.org> parents: 10843 diff changeset	237 endfunc
11010 c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	238
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	239 func Test_chinese_char_on_wrap_column()
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	240 call s:test_windows("setl nolbr wrap sbr=")
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	241 syntax off
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	242 call setline(1, [
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	243 \ 'aaaaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	244 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	245 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	246 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	247 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	248 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	249 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	250 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	251 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	252 \ 'aaaaaaaaaaaaaaaaa中'.
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	253 \ 'hello'])
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	254 call cursor(1,1)
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	255 norm! $
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	256 redraw!
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	257 let expect=[
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	258 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	259 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	260 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	261 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	262 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	263 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	264 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	265 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	266 \ '中aaaaaaaaaaaaaaaaa>',
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	267 \ '中hello ']
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	268 let lines = s:screen_lines([1, 10], winwidth(0))
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	269 call s:compare_lines(expect, lines)
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	270 call s:close_windows()
c004e17fa36b patch 8.0.0394: tabs are not aligned when scrolling horizontally Christian Brabandt <cb@256bit.org> parents: 10982 diff changeset	271 endfu

Mercurial > vim

annotate src/testdir/test_listlbr_utf8.vim @ 13211:44941d705775