vim: src/testdir/test_display.vim annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	45c426cebfcd
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	1 " Test for displaying stuff
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	3 if !has('gui_running') && has('unix')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	4 set term=ansi
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	5 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	6
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	7 source view_util.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	8 source check.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	9 source screendump.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	10
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	11 func Test_display_foldcolumn()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	12 CheckFeature folding
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	14 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	15 vnew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	16 vert resize 25
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	17 call assert_equal(25, winwidth(winnr()))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	18 set isprint=@
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	19
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	20 1put='e more noise blah blah more stuff here'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	21
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	22 let expect = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	23 \ "e more noise blah blah<82",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	24 \ "> more stuff here "
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	25 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	26
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	27 call cursor(2, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	28 norm! zt
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	29 let lines = ScreenLines([1,2], winwidth(0))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	30 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	31 set fdc=2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	32 let lines = ScreenLines([1,2], winwidth(0))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	33 let expect = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	34 \ " e more noise blah blah<",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	35 \ " 82> more stuff here "
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	36 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	37 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	38
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	39 quit!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	40 quit!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	41 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	42
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	43 func Test_display_foldtext_mbyte()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	44 CheckFeature folding
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	45
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	46 call NewWindow(10, 40)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	47 call append(0, range(1,20))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	48 exe "set foldmethod=manual foldtext=foldtext() fillchars=fold:\u2500,vert:\u2502 fdc=2"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	49 call cursor(2, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	50 norm! zf13G
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	51 let lines=ScreenLines([1,3], winwidth(0)+1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	52 let expect=[
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	53 \ " 1 \u2502",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	54 \ "+ +-- 12 lines: 2". repeat("\u2500", 23). "\u2502",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	55 \ " 14 \u2502",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	56 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	57 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	58
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	59 set fillchars=fold:-,vert:\\|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	60 let lines=ScreenLines([1,3], winwidth(0)+1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	61 let expect=[
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	62 \ " 1 \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	63 \ "+ +-- 12 lines: 2". repeat("-", 23). "\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	64 \ " 14 \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	65 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	66 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	67
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	68 set foldtext& fillchars& foldmethod& fdc&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	69 bw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	70 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	71
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	72 " check that win_ins_lines() and win_del_lines() work when t_cs is empty.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	73 func Test_scroll_without_region()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	74 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	75
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	76 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	77 call setline(1, range(1, 20))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	78 set t_cs=
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	79 set laststatus=2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	80 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	81 call writefile(lines, 'Xtestscroll', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	82 let buf = RunVimInTerminal('-S Xtestscroll', #{rows: 10})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	83
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	84 call VerifyScreenDump(buf, 'Test_scroll_no_region_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	85
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	86 call term_sendkeys(buf, ":3delete\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	87 call VerifyScreenDump(buf, 'Test_scroll_no_region_2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	88
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	89 call term_sendkeys(buf, ":4put\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	90 call VerifyScreenDump(buf, 'Test_scroll_no_region_3', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	91
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	92 call term_sendkeys(buf, ":undo\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	93 call term_sendkeys(buf, ":undo\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	94 call term_sendkeys(buf, ":set laststatus=0\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	95 call VerifyScreenDump(buf, 'Test_scroll_no_region_4', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	96
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	97 call term_sendkeys(buf, ":3delete\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	98 call VerifyScreenDump(buf, 'Test_scroll_no_region_5', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	100 call term_sendkeys(buf, ":4put\<cr>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	101 call VerifyScreenDump(buf, 'Test_scroll_no_region_6', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	102
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	103 " clean up
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	104 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	105 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	106
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	107 func Test_display_listchars_precedes()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	108 call NewWindow(10, 10)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	109 " Need a physical line that wraps over the complete
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	110 " window size
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	111 call append(0, repeat('aaa aaa aa ', 10))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	112 call append(1, repeat(['bbb bbb bbb bbb'], 2))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	113 " remove blank trailing line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	114 $d
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	115 set list nowrap
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	116 call cursor(1, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	117 " move to end of line and scroll 2 characters back
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	118 norm! $2zh
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	119 let lines=ScreenLines([1,4], winwidth(0)+1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	120 let expect = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	121 \ " aaa aa $ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	122 \ "$ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	123 \ "$ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	124 \ "~ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	125 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	126 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	127 set list listchars+=precedes:< nowrap
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	128 call cursor(1, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	129 " move to end of line and scroll 2 characters back
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	130 norm! $2zh
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	131 let lines = ScreenLines([1,4], winwidth(0)+1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	132 let expect = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	133 \ "<aaa aa $ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	134 \ "< \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	135 \ "< \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	136 \ "~ \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	137 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	138 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	139 set wrap
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	140 call cursor(1, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	141 " the complete line should be displayed in the window
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	142 norm! $
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	143
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	144 let lines = ScreenLines([1,10], winwidth(0)+1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	145 let expect = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	146 \ "<aaa aaa a\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	147 \ "a aaa aaa \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	148 \ "aa aaa aaa\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	149 \ " aa aaa aa\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	150 \ "a aa aaa a\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	151 \ "aa aa aaa \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	152 \ "aaa aa aaa\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	153 \ " aaa aa aa\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	154 \ "a aaa aa a\|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	155 \ "aa aaa aa \|",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	156 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	157 call assert_equal(expect, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	158 set list& listchars& wrap&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	159 bw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	160 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	161
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	162 " Check that win_lines() works correctly with the number_only parameter=TRUE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	163 " should break early to optimize cost of drawing, but needs to make sure
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	164 " that the number column is correctly highlighted.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	165 func Test_scroll_CursorLineNr_update()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	166 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	167
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	168 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	169 hi CursorLineNr ctermfg=73 ctermbg=236
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	170 set nu rnu cursorline cursorlineopt=number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	171 exe ":norm! o\<esc>110ia\<esc>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	172 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	173 let filename = 'Xdrawscreen'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	174 call writefile(lines, filename, 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	175 let buf = RunVimInTerminal('-S '.filename, #{rows: 5, cols: 50})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	176 call term_sendkeys(buf, "k")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	177 call VerifyScreenDump(buf, 'Test_winline_rnu', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	178
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	179 " clean up
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	180 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	181 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	182
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	183 " check a long file name does not result in the hit-enter prompt
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	184 func Test_edit_long_file_name()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	185 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	186
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	187 let longName = 'x'->repeat(min([&columns, 255]))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	188 call writefile([], longName, 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	189 let buf = RunVimInTerminal('-N -u NONE ' .. longName, #{rows: 8})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	190
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	191 call VerifyScreenDump(buf, 'Test_long_file_name_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	192
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	193 " clean up
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	194 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	195 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	196
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	197 func Test_unprintable_fileformats()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	198 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	199
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	200 call writefile(["unix\r", "two"], 'Xunix.txt', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	201 call writefile(["mac\r", "two"], 'Xmac.txt', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	202 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	203 edit Xunix.txt
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	204 split Xmac.txt
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	205 edit ++ff=mac
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	206 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	207 let filename = 'Xunprintable'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	208 call writefile(lines, filename, 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	209 let buf = RunVimInTerminal('-S '.filename, #{rows: 9, cols: 50})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	210 call VerifyScreenDump(buf, 'Test_display_unprintable_01', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	211 call term_sendkeys(buf, "\<C-W>\<C-W>\<C-L>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	212 call VerifyScreenDump(buf, 'Test_display_unprintable_02', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	213
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	214 " clean up
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	215 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	216 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	217
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	218 " Test for scrolling that modifies buffer during visual block
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	219 func Test_visual_block_scroll()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	220 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	221
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	222 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	223 source $VIMRUNTIME/plugin/matchparen.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	224 set scrolloff=1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	225 call setline(1, ['a', 'b', 'c', 'd', 'e', '', '{', '}', '{', 'f', 'g', '}'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	226 call cursor(5, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	227 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	228
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	229 let filename = 'Xvisualblockmodifiedscroll'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	230 call writefile(lines, filename, 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	231
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	232 let buf = RunVimInTerminal('-S '.filename, #{rows: 7})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	233 call term_sendkeys(buf, "V\<C-D>\<C-D>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	234
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	235 call VerifyScreenDump(buf, 'Test_display_visual_block_scroll', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	236
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	237 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	238 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	239
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	240 " Test for clearing paren highlight when switching buffers
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	241 func Test_matchparen_clear_highlight()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	242 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	243
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	244 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	245 source $VIMRUNTIME/plugin/matchparen.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	246 set hidden
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	247 call setline(1, ['()'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	248 normal 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	249
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	250 func OtherBuffer()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	251 enew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	252 exe "normal iaa\<Esc>0"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	253 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	254 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	255 call writefile(lines, 'XMatchparenClear', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	256 let buf = RunVimInTerminal('-S XMatchparenClear', #{rows: 5})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	257 call VerifyScreenDump(buf, 'Test_matchparen_clear_highlight_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	258
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	259 call term_sendkeys(buf, ":call OtherBuffer()\<CR>:\<Esc>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	260 call VerifyScreenDump(buf, 'Test_matchparen_clear_highlight_2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	261
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	262 call term_sendkeys(buf, "\<C-^>:\<Esc>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	263 call VerifyScreenDump(buf, 'Test_matchparen_clear_highlight_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	264
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	265 call term_sendkeys(buf, "\<C-^>:\<Esc>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	266 call VerifyScreenDump(buf, 'Test_matchparen_clear_highlight_2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	267
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	268 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	269 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	270
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	271 func Test_display_scroll_at_topline()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	272 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	273
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	274 let buf = RunVimInTerminal('', #{cols: 20})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	275 call term_sendkeys(buf, ":call setline(1, repeat('a', 21))\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	276 call TermWait(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	277 call term_sendkeys(buf, "O\<Esc>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	278 call VerifyScreenDump(buf, 'Test_display_scroll_at_topline', #{rows: 4})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	279
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	280 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	281 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	282
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	283 func Test_display_scroll_update_visual()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	284 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	285
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	286 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	287 set scrolloff=0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	288 call setline(1, repeat(['foo'], 10))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	289 call sign_define('foo', { 'text': '>' })
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	290 call sign_place(1, 'bar', 'foo', bufnr(), { 'lnum': 2 })
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	291 call sign_place(2, 'bar', 'foo', bufnr(), { 'lnum': 1 })
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	292 autocmd CursorMoved * if getcurpos()[1] == 2 \| call sign_unplace('bar', { 'id': 1 }) \| endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	293 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	294 call writefile(lines, 'XupdateVisual.vim', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	295
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	296 let buf = RunVimInTerminal('-S XupdateVisual.vim', #{rows: 8, cols: 60})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	297 call term_sendkeys(buf, "VG7kk")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	298 call VerifyScreenDump(buf, 'Test_display_scroll_update_visual', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	299
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	300 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	301 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	302
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	303 " Test for 'eob' (EndOfBuffer) item in 'fillchars'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	304 func Test_eob_fillchars()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	305 " default value
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	306 call assert_match('eob:\~', &fillchars)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	307 " invalid values
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	308 call assert_fails(':set fillchars=eob:', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	309 call assert_fails(':set fillchars=eob:xy', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	310 call assert_fails(':set fillchars=eob:\255', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	311 call assert_fails(':set fillchars=eob:<ff>', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	312 call assert_fails(":set fillchars=eob:\x01", 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	313 call assert_fails(':set fillchars=eob:\\x01', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	314 " default is ~
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	315 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	316 redraw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	317 call assert_equal('~', Screenline(2))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	318 set fillchars=eob:+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	319 redraw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	320 call assert_equal('+', Screenline(2))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	321 set fillchars=eob:\
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	322 redraw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	323 call assert_equal(' ', nr2char(screenchar(2, 1)))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	324 set fillchars&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	325 close
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	326 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	327
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	328 " Test for 'foldopen', 'foldclose' and 'foldsep' in 'fillchars'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	329 func Test_fold_fillchars()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	330 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	331 set fdc=2 foldenable foldmethod=manual
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	332 call setline(1, ['one', 'two', 'three', 'four', 'five'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	333 2,4fold
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	334 " First check for the default setting for a closed fold
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	335 let lines = ScreenLines([1, 3], 8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	336 let expected = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	337 \ ' one ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	338 \ '+ +-- 3',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	339 \ ' five '
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	340 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	341 call assert_equal(expected, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	342 normal 2Gzo
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	343 " check the characters for an open fold
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	344 let lines = ScreenLines([1, 5], 8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	345 let expected = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	346 \ ' one ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	347 \ '- two ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	348 \ '\| three ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	349 \ '\| four ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	350 \ ' five '
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	351 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	352 call assert_equal(expected, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	353
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	354 " change the setting
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	355 set fillchars=vert:\\|,fold:-,eob:~,foldopen:[,foldclose:],foldsep:-
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	356
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	357 " check the characters for an open fold
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	358 let lines = ScreenLines([1, 5], 8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	359 let expected = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	360 \ ' one ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	361 \ '[ two ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	362 \ '- three ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	363 \ '- four ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	364 \ ' five '
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	365 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	366 call assert_equal(expected, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	367
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	368 " check the characters for a closed fold
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	369 normal 2Gzc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	370 let lines = ScreenLines([1, 3], 8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	371 let expected = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	372 \ ' one ',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	373 \ '] +-- 3',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	374 \ ' five '
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	375 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	376 call assert_equal(expected, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	377
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	378 %bw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	379 set fillchars& fdc& foldmethod& foldenable&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	380 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	381
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	382 func Test_local_fillchars()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	383 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	384
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	385 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	386 call setline(1, ['window 1']->repeat(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	387 setlocal fillchars=stl:1,stlnc:a,vert:=,eob:x
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	388 vnew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	389 call setline(1, ['window 2']->repeat(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	390 setlocal fillchars=stl:2,stlnc:b,vert:+,eob:y
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	391 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	392 wincmd J
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	393 call setline(1, ['window 3']->repeat(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	394 setlocal fillchars=stl:3,stlnc:c,vert:<,eob:z
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	395 vnew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	396 call setline(1, ['window 4']->repeat(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	397 setlocal fillchars=stl:4,stlnc:d,vert:>,eob:o
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	398 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	399 call writefile(lines, 'Xdisplayfillchars', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	400 let buf = RunVimInTerminal('-S Xdisplayfillchars', #{rows: 12})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	401 call VerifyScreenDump(buf, 'Test_display_fillchars_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	402
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	403 call term_sendkeys(buf, ":wincmd k\r")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	404 call VerifyScreenDump(buf, 'Test_display_fillchars_2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	405
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	406 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	407 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	408
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	409 func Test_display_linebreak_breakat()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	410 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	411 vert resize 25
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	412 let _breakat = &breakat
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	413 setl signcolumn=yes linebreak breakat=) showbreak=+\
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	414 call setline(1, repeat('x', winwidth(0) - 2) .. ')abc')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	415 let lines = ScreenLines([1, 2], 25)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	416 let expected = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	417 \ ' xxxxxxxxxxxxxxxxxxxxxxx',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	418 \ ' + )abc '
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	419 \ ]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	420 call assert_equal(expected, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	421 %bw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	422 let &breakat=_breakat
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	423 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	424
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	425 func Run_Test_display_lastline(euro)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	426 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	427 call setline(1, ['aaa', 'b'->repeat(200)])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	428 set display=truncate
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	429
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	430 vsplit
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	431 100wincmd <
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	432 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	433 if a:euro != ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	434 let lines[2] = 'set fillchars=vert:\\|,lastline:€'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	435 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	436 call writefile(lines, 'XdispLastline', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	437 let buf = RunVimInTerminal('-S XdispLastline', #{rows: 10})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	438 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	439
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	440 call term_sendkeys(buf, ":set display=lastline\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	441 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	442
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	443 call term_sendkeys(buf, ":100wincmd >\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	444 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}3', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	445
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	446 call term_sendkeys(buf, ":set display=truncate\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	447 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}4', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	448
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	449 call term_sendkeys(buf, ":close\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	450 call term_sendkeys(buf, ":3split\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	451 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}5', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	452
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	453 call term_sendkeys(buf, ":close\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	454 call term_sendkeys(buf, ":2vsplit\<CR>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	455 call VerifyScreenDump(buf, $'Test_display_lastline_{a:euro}6', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	456
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	457 call StopVimInTerminal(buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	458 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	459
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	460 func Test_display_lastline()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	461 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	462
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	463 call Run_Test_display_lastline('')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	464 call Run_Test_display_lastline('euro_')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	465
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	466 call assert_fails(':set fillchars=lastline:', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	467 call assert_fails(':set fillchars=lastline:〇', 'E474:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	468 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	469
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	470 func Test_display_long_lastline()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	471 CheckScreendump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	472
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	473 let lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	474 set display=lastline smoothscroll scrolloff=0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	475 call setline(1, [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	476 \'aaaaa'->repeat(150),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	477 \'bbbbb '->repeat(7) .. 'ccccc '->repeat(7) .. 'ddddd '->repeat(7)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	478 \])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	479 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	480
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	481 call writefile(lines, 'XdispLongline', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	482 let buf = RunVimInTerminal('-S XdispLongline', #{rows: 14, cols: 35})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	483
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	484 call term_sendkeys(buf, "736\|")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	485 call VerifyScreenDump(buf, 'Test_display_long_line_1', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	486
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	487 " The correct part of the last line is moved into view.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	488 call term_sendkeys(buf, "D")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	489 call VerifyScreenDump(buf, 'Test_display_long_line_2', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	490
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	491 " "w_skipcol" does not change because the topline is still long enough
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	492 " to maintain the current skipcol.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	493 call term_sendkeys(buf, "g04l11gkD")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	494 call VerifyScreenDump(buf, 'Test_display_long_line_3', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	495
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	496 " "w_skipcol" is reset to bring the entire topline into view because
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	497 " the line length is now smaller than the current skipcol + marker.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	498 call term_sendkeys(buf, "x")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	499 call VerifyScreenDump(buf, 'Test_display_long_line_4', {})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32460 diff changeset	500

32669

448aef880252 normalize line endings