vim: src/testdir/test_cmdwin.vim annotate

annotate src/testdir/test_cmdwin.vim @ 35162:860a5fb8eaf2 default tip

Added tag v9.1.0407 for changeset 08f7c9428f8224d6b24c60f4da1fd12c6354e852

author	Christian Brabandt <cb@256bit.org>
date	Sat, 11 May 2024 11:45:04 +0200
parents	08e6a44e5c77
children

rev	line source
32670 695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	1 " Tests for editing the command line.
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	2
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	3 source check.vim
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	4 source screendump.vim
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	5
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	6 func Test_getcmdwintype()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	7 call feedkeys("q/:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	8 call assert_equal('/', a)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	9
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	10 call feedkeys("q?:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	11 call assert_equal('?', a)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	12
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	13 call feedkeys("q::let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	14 call assert_equal(':', a)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	15
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	16 call feedkeys(":\<C-F>:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	17 call assert_equal(':', a)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	18
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	19 call assert_equal('', getcmdwintype())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	20 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	21
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	22 func Test_getcmdwin_autocmd()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	23 let s:seq = []
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	24 augroup CmdWin
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	25 au WinEnter * call add(s:seq, 'WinEnter ' .. win_getid())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	26 au WinLeave * call add(s:seq, 'WinLeave ' .. win_getid())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	27 au BufEnter * call add(s:seq, 'BufEnter ' .. bufnr())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	28 au BufLeave * call add(s:seq, 'BufLeave ' .. bufnr())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	29 au CmdWinEnter * call add(s:seq, 'CmdWinEnter ' .. win_getid())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	30 au CmdWinLeave * call add(s:seq, 'CmdWinLeave ' .. win_getid())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	31
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	32 let org_winid = win_getid()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	33 let org_bufnr = bufnr()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	34 call feedkeys("q::let a = getcmdwintype()\<CR>:let s:cmd_winid = win_getid()\<CR>:let s:cmd_bufnr = bufnr()\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	35 call assert_equal(':', a)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	36 call assert_equal([
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	37 \ 'WinLeave ' .. org_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	38 \ 'WinEnter ' .. s:cmd_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	39 \ 'BufLeave ' .. org_bufnr,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	40 \ 'BufEnter ' .. s:cmd_bufnr,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	41 \ 'CmdWinEnter ' .. s:cmd_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	42 \ 'CmdWinLeave ' .. s:cmd_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	43 \ 'BufLeave ' .. s:cmd_bufnr,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	44 \ 'WinLeave ' .. s:cmd_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	45 \ 'WinEnter ' .. org_winid,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	46 \ 'BufEnter ' .. org_bufnr,
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	47 \ ], s:seq)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	48
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	49 au!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	50 augroup END
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	51 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	52
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	53 func Test_cmdwin_bug()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	54 let winid = win_getid()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	55 sp
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	56 try
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	57 call feedkeys("q::call win_gotoid(" .. winid .. ")\<CR>:q\<CR>", 'x!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	58 catch /^Vim\%((\a\+)\)\=:E11/
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	59 endtry
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	60 bw!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	61 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	62
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	63 func Test_cmdwin_restore()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	64 CheckScreendump
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	65
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	66 let lines =<< trim [SCRIPT]
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	67 augroup vimHints \| au! \| augroup END
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	68 call setline(1, range(30))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	69 2split
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	70 [SCRIPT]
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	71 call writefile(lines, 'XTest_restore', 'D')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	72
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	73 let buf = RunVimInTerminal('-S XTest_restore', {'rows': 12})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	74 call term_sendkeys(buf, "q:")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	75 call VerifyScreenDump(buf, 'Test_cmdwin_restore_1', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	76
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	77 " normal restore
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	78 call term_sendkeys(buf, ":q\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	79 call VerifyScreenDump(buf, 'Test_cmdwin_restore_2', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	80
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	81 " restore after setting 'lines' with one window
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	82 call term_sendkeys(buf, ":close\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	83 call term_sendkeys(buf, "q:")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	84 call term_sendkeys(buf, ":set lines=18\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	85 call term_sendkeys(buf, ":q\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	86 call VerifyScreenDump(buf, 'Test_cmdwin_restore_3', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	87
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	88 " clean up
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	89 call StopVimInTerminal(buf)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	90 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	91
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	92 func Test_cmdwin_no_terminal()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	93 CheckScreendump
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	94
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	95 let buf = RunVimInTerminal('', {'rows': 12})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	96 call term_sendkeys(buf, ":set cmdheight=2\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	97 call term_sendkeys(buf, "q:")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	98 call term_sendkeys(buf, ":let buf = term_start(['/bin/echo'], #{hidden: 1})\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	99 call VerifyScreenDump(buf, 'Test_cmdwin_no_terminal', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	100 call term_sendkeys(buf, ":q\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	101 call StopVimInTerminal(buf)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	102 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	103
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	104 func Test_cmdwin_wrong_command()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	105 CheckScreendump
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	106
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	107 let buf = RunVimInTerminal('', {'rows': 12})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	108 call term_sendkeys(buf, "q:")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	109 call term_sendkeys(buf, "als\<Esc>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	110 call term_sendkeys(buf, "\<C-W>k")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	111 call VerifyScreenDump(buf, 'Test_cmdwin_wrong_command_1', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	112
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	113 call term_sendkeys(buf, "\<C-C>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	114 call VerifyScreenDump(buf, 'Test_cmdwin_wrong_command_2', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	115
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	116 call term_sendkeys(buf, ":q\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	117 call StopVimInTerminal(buf)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	118 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	119
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	120 func Test_cmdwin_feedkeys()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	121 " This should not generate E488
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	122 call feedkeys("q:\<CR>", 'x')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	123 " Using feedkeys with q: only should automatically close the cmd window
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	124 call feedkeys('q:', 'xt')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	125 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	126 call assert_equal('', getcmdwintype())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	127 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	128
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	129 " Tests for the issues fixed in 7.4.441.
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	130 " When 'cedit' is set to Ctrl-C, opening the command window hangs Vim
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	131 func Test_cmdwin_cedit()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	132 exe "set cedit=\<C-c>"
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	133 normal! :
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	134 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	135
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	136 let g:cmd_wintype = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	137 func CmdWinType()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	138 let g:cmd_wintype = getcmdwintype()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	139 let g:wintype = win_gettype()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	140 return ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	141 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	142
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	143 call feedkeys("\<C-c>a\<C-R>=CmdWinType()\<CR>\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	144 echo input('')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	145 call assert_equal('@', g:cmd_wintype)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	146 call assert_equal('command', g:wintype)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	147
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	148 set cedit&vim
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	149 delfunc CmdWinType
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	150 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	151
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	152 " Test for CmdwinEnter autocmd
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	153 func Test_cmdwin_autocmd()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	154 augroup CmdWin
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	155 au!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	156 autocmd BufLeave * if &buftype == '' \| update \| endif
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	157 autocmd CmdwinEnter * startinsert
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	158 augroup END
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	159
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	160 call assert_fails('call feedkeys("q:xyz\<CR>", "xt")', 'E492:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	161 call assert_equal('xyz', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	162
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	163 augroup CmdWin
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	164 au!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	165 augroup END
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	166 augroup! CmdWin
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	167 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	168
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	169 func Test_cmdwin_jump_to_win()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	170 call assert_fails('call feedkeys("q:\<C-W>\<C-W>\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	171 new
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	172 set modified
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	173 call assert_fails('call feedkeys("q/:qall\<CR>", "xt")', ['E37:', 'E162:'])
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	174 close!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	175 call feedkeys("q/:close\<CR>", "xt")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	176 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	177 call feedkeys("q/:exit\<CR>", "xt")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	178 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	179
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	180 " opening command window twice should fail
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	181 call assert_beeps('call feedkeys("q:q:\<CR>\<CR>", "xt")')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	182 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	183 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	184
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	185 func Test_cmdwin_tabpage()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	186 tabedit
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	187 call assert_fails("silent norm q/g :I\<Esc>", 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	188 tabclose!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	189 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	190
34196 57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	191 func Test_cmdwin_interrupted_more_prompt()
32670 695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	192 CheckScreendump
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	193
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	194 " aborting the :smile output caused the cmdline window to use the current
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	195 " buffer.
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	196 let lines =<< trim [SCRIPT]
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	197 au WinNew * smile
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	198 [SCRIPT]
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	199 call writefile(lines, 'XTest_cmdwin', 'D')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	200
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	201 let buf = RunVimInTerminal('-S XTest_cmdwin', {'rows': 18})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	202 " open cmdwin
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	203 call term_sendkeys(buf, "q:")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	204 call WaitForAssert({-> assert_match('-- More --', term_getline(buf, 18))})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	205 " quit more prompt for :smile command
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	206 call term_sendkeys(buf, "q")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	207 call WaitForAssert({-> assert_match('^$', term_getline(buf, 18))})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	208 " execute a simple command
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	209 call term_sendkeys(buf, "aecho 'done'\<CR>")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	210 call VerifyScreenDump(buf, 'Test_cmdwin_interrupted', {})
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	211
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	212 " clean up
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	213 call StopVimInTerminal(buf)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	214 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	215
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	216 " Test for recursively getting multiple command line inputs
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	217 func Test_cmdwin_multi_input()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	218 call feedkeys(":\<C-R>=input('P: ')\<CR>\"cyan\<CR>\<CR>", 'xt')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	219 call assert_equal('"cyan', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	220 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	221
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	222 " Test for normal mode commands not supported in the cmd window
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	223 func Test_cmdwin_blocked_commands()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	224 call assert_fails('call feedkeys("q:\<C-T>\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	225 call assert_fails('call feedkeys("q:\<C-]>\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	226 call assert_fails('call feedkeys("q:\<C-^>\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	227 call assert_fails('call feedkeys("q:Q\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	228 call assert_fails('call feedkeys("q:Z\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	229 call assert_fails('call feedkeys("q:\<F1>\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	230 call assert_fails('call feedkeys("q:\<C-W>s\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	231 call assert_fails('call feedkeys("q:\<C-W>v\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	232 call assert_fails('call feedkeys("q:\<C-W>^\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	233 call assert_fails('call feedkeys("q:\<C-W>n\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	234 call assert_fails('call feedkeys("q:\<C-W>z\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	235 call assert_fails('call feedkeys("q:\<C-W>o\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	236 call assert_fails('call feedkeys("q:\<C-W>w\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	237 call assert_fails('call feedkeys("q:\<C-W>j\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	238 call assert_fails('call feedkeys("q:\<C-W>k\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	239 call assert_fails('call feedkeys("q:\<C-W>h\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	240 call assert_fails('call feedkeys("q:\<C-W>l\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	241 call assert_fails('call feedkeys("q:\<C-W>T\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	242 call assert_fails('call feedkeys("q:\<C-W>x\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	243 call assert_fails('call feedkeys("q:\<C-W>r\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	244 call assert_fails('call feedkeys("q:\<C-W>R\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	245 call assert_fails('call feedkeys("q:\<C-W>K\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	246 call assert_fails('call feedkeys("q:\<C-W>}\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	247 call assert_fails('call feedkeys("q:\<C-W>]\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	248 call assert_fails('call feedkeys("q:\<C-W>f\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	249 call assert_fails('call feedkeys("q:\<C-W>d\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	250 call assert_fails('call feedkeys("q:\<C-W>g\<CR>", "xt")', 'E11:')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	251 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	252
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	253 " Close the Cmd-line window in insert mode using CTRL-C
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	254 func Test_cmdwin_insert_mode_close()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	255 %bw!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	256 let s = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	257 exe "normal q:a\<C-C>let s='Hello'\<CR>"
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	258 call assert_equal('Hello', s)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	259 call assert_equal(1, winnr('$'))
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	260 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	261
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	262 func Test_cmdwin_ex_mode_with_modifier()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	263 " this was accessing memory after allocated text in Ex mode
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	264 new
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	265 call setline(1, ['some', 'text', 'lines'])
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	266 silent! call feedkeys("gQnormal vq:atopleft\<C-V>\<CR>\<CR>", 'xt')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	267 bwipe!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	268 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	269
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	270 func s:ComplInCmdwin_GlobalCompletion(a, l, p)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	271 return 'global'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	272 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	273
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	274 func s:ComplInCmdwin_LocalCompletion(a, l, p)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	275 return 'local'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	276 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	277
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	278 func Test_compl_in_cmdwin()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	279 set wildmenu wildchar=<Tab>
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	280 com! -nargs=1 -complete=command GetInput let input = <q-args>
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	281 com! -buffer TestCommand echo 'TestCommand'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	282 let w:test_winvar = 'winvar'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	283 let b:test_bufvar = 'bufvar'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	284
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	285 " User-defined commands
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	286 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	287 call feedkeys("q:iGetInput T\<C-x>\<C-v>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	288 call assert_equal('TestCommand', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	289
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	290 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	291 call feedkeys("q::GetInput T\<Tab>\<CR>:q\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	292 call assert_equal('T', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	293
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	294
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	295 com! -nargs=1 -complete=var GetInput let input = <q-args>
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	296 " Window-local variables
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	297 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	298 call feedkeys("q:iGetInput w:test_\<C-x>\<C-v>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	299 call assert_equal('w:test_winvar', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	300
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	301 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	302 call feedkeys("q::GetInput w:test_\<Tab>\<CR>:q\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	303 call assert_equal('w:test_', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	304
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	305 " Buffer-local variables
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	306 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	307 call feedkeys("q:iGetInput b:test_\<C-x>\<C-v>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	308 call assert_equal('b:test_bufvar', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	309
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	310 let input = ''
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	311 call feedkeys("q::GetInput b:test_\<Tab>\<CR>:q\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	312 call assert_equal('b:test_', input)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	313
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	314
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	315 " Argument completion of buffer-local command
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	316 func s:ComplInCmdwin_GlobalCompletionList(a, l, p)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	317 return ['global']
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	318 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	319
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	320 func s:ComplInCmdwin_LocalCompletionList(a, l, p)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	321 return ['local']
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	322 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	323
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	324 func s:ComplInCmdwin_CheckCompletion(arg)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	325 call assert_equal('local', a:arg)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	326 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	327
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	328 com! -nargs=1 -complete=custom,<SID>ComplInCmdwin_GlobalCompletion
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	329 \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	330 com! -buffer -nargs=1 -complete=custom,<SID>ComplInCmdwin_LocalCompletion
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	331 \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	332 call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	333
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	334 com! -nargs=1 -complete=customlist,<SID>ComplInCmdwin_GlobalCompletionList
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	335 \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	336 com! -buffer -nargs=1 -complete=customlist,<SID>ComplInCmdwin_LocalCompletionList
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	337 \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	338
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	339 call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	340
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	341 func! s:ComplInCmdwin_CheckCompletion(arg)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	342 call assert_equal('global', a:arg)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	343 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	344 new
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	345 call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	346 quit
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	347
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	348 delfunc s:ComplInCmdwin_GlobalCompletion
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	349 delfunc s:ComplInCmdwin_LocalCompletion
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	350 delfunc s:ComplInCmdwin_GlobalCompletionList
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	351 delfunc s:ComplInCmdwin_LocalCompletionList
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	352 delfunc s:ComplInCmdwin_CheckCompletion
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	353
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	354 delcom -buffer TestCommand
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	355 delcom TestCommand
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	356 delcom GetInput
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	357 unlet w:test_winvar
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	358 unlet b:test_bufvar
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	359 set wildmenu& wildchar&
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	360 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	361
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	362 func Test_cmdwin_cmd_completion()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	363 set wildmenu wildchar=<Tab>
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	364 com! -nargs=* -complete=command SomeOne echo 'one'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	365 com! -nargs=* -complete=command SomeTwo echo 'two'
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	366 call feedkeys("q:aSome\<Tab>\<Home>\"\<CR>", 'tx')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	367 call assert_equal('"SomeOne', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	368 call feedkeys("q:aSome\<Tab>\<Tab>\<Home>\"\<CR>", 'tx')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	369 call assert_equal('"SomeTwo', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	370 call feedkeys("q:aSome\<Tab>\<Tab>\<S-Tab>\<Home>\"\<CR>", 'tx')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	371 call assert_equal('"SomeOne', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	372
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	373 delcom SomeOne
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	374 delcom SomeTwo
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	375 set wildmenu& wildchar&
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	376 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	377
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	378 func Test_cmdwin_ctrl_bsl()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	379 " Using CTRL-\ CTRL-N in cmd window should close the window
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	380 call feedkeys("q:\<C-\>\<C-N>", 'xt')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	381 call assert_equal('', getcmdwintype())
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	382 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	383
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	384 func Test_cant_open_cmdwin_in_cmdwin()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	385 try
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	386 call feedkeys("q:q::q\<CR>", "x!")
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	387 catch
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	388 let caught = v:exception
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	389 endtry
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	390 call assert_match('E1292:', caught)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	391 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	392
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	393 func Test_cmdwin_virtual_edit()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	394 enew!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	395 set ve=all cpo+=$
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	396 silent normal q/s
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	397
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	398 set ve= cpo-=$
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	399 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	400
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	401 " Check that a :normal command can be used to stop Visual mode without side
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	402 " effects.
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	403 func Test_normal_escape()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	404 call feedkeys("q:i\" foo\<Esc>:normal! \<C-V>\<Esc>\<CR>:\" bar\<CR>", 'ntx')
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	405 call assert_equal('" bar', @:)
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	406 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	407
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	408 " This was using a pointer to a freed buffer
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	409 func Test_cmdwin_freed_buffer_ptr()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	410 " this does not work on MS-Windows because renaming an open file fails
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	411 CheckNotMSWindows
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	412
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	413 au BufEnter * next 0\| file
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	414 edit 0
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	415 silent! norm q/
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	416
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	417 au! BufEnter
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	418 bwipe!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	419 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	420
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	421 " This was resulting in a window with negative width.
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	422 " The test doesn't reproduce the illegal memory access though...
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	423 func Test_cmdwin_split_often()
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	424 let lines = &lines
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	425 let columns = &columns
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	426 set t_WS=
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	427
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	428 try
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	429 set encoding=iso8859
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	430 set ruler
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	431 winsize 0 0
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	432 noremap 0 H
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	433 sil norm 0000000q:
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	434 catch /E36:/
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	435 endtry
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	436
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	437 bwipe!
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	438 set encoding=utf8
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	439 let &lines = lines
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	440 let &columns = columns
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	441 endfunc
695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	442
32826 7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	443 func Test_cmdwin_restore_heights()
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	444 set showtabline=0 cmdheight=2 laststatus=0
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	445 call feedkeys("q::set cmdheight=1\<CR>:q\<CR>", 'ntx')
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	446 call assert_equal(&lines - 1, winheight(0))
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	447
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	448 set showtabline=2 cmdheight=3
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	449 call feedkeys("q::set showtabline=0\<CR>:q\<CR>", 'ntx')
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	450 call assert_equal(&lines - 3, winheight(0))
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	451
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	452 set cmdheight=1 laststatus=2
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	453 call feedkeys("q::set laststatus=0\<CR>:q\<CR>", 'ntx')
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	454 call assert_equal(&lines - 1, winheight(0))
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	455
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	456 set laststatus=2
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	457 call feedkeys("q::set laststatus=1\<CR>:q\<CR>", 'ntx')
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	458 call assert_equal(&lines - 1, winheight(0))
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	459
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	460 set laststatus=2
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	461 belowright vsplit
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	462 wincmd _
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	463 let restcmds = winrestcmd()
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	464 call feedkeys("q::set laststatus=1\<CR>:q\<CR>", 'ntx')
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	465 " As we have 2 windows, &ls = 1 should still have a statusline on the last
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	466 " window. As such, the number of available rows hasn't changed and the window
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	467 " sizes should be restored.
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	468 call assert_equal(restcmds, winrestcmd())
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	469
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	470 set cmdheight& showtabline& laststatus&
7c4ad06d80ec patch 9.0.1726: incorrect heights in win_size_restore() Christian Brabandt <cb@256bit.org> parents: 32670 diff changeset	471 endfunc
32670 695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	472
34194 a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	473 func Test_cmdwin_temp_curwin()
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	474 func CheckWraps(expect_wrap)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	475 setlocal textwidth=0 wrapmargin=1
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	476
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	477 call deletebufline('', 1, '$')
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	478 let as = repeat('a', winwidth(0) - 2 - &wrapmargin)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	479 call setline(1, as .. ' b')
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	480 normal! gww
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	481
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	482 setlocal textwidth& wrapmargin&
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	483 call assert_equal(a:expect_wrap ? [as, 'b'] : [as .. ' b'], getline(1, '$'))
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	484 endfunc
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	485
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	486 func CheckCmdWin()
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	487 call assert_equal('command', win_gettype())
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	488 " textoff and &wrapmargin formatting considers the cmdwin_type char.
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	489 call assert_equal(1, getwininfo(win_getid())[0].textoff)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	490 call CheckWraps(1)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	491 endfunc
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	492
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	493 func CheckOtherWin()
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	494 call assert_equal('', win_gettype())
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	495 call assert_equal(0, getwininfo(win_getid())[0].textoff)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	496 call CheckWraps(0)
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	497 endfunc
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	498
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	499 call feedkeys("q::call CheckCmdWin()\<CR>:call win_execute(win_getid(winnr('#')), 'call CheckOtherWin()')\<CR>:q<CR>", 'ntx')
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	500
34196 57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	501 %bwipe!
34194 a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	502 delfunc CheckWraps
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	503 delfunc CheckCmdWin
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	504 delfunc CheckOtherWin
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	505 endfunc
a522c6c0127b patch 9.1.0047: issues with temp curwin/buf while cmdwin is open Christian Brabandt <cb@256bit.org> parents: 32826 diff changeset	506
34196 57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	507 func Test_cmdwin_interrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	508 func CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	509 call feedkeys("q::call assert_equal('', getcmdwintype())\<CR>:call assert_equal('', getcmdtype())\<CR>:q<CR>", 'ntx')
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	510 endfunc
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	511
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	512 augroup CmdWin
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	513
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	514 " While opening the cmdwin's split:
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	515 " Close the cmdwin's window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	516 au WinEnter * ++once quit
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	517 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	518
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	519 " Close the old window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	520 au WinEnter * ++once execute winnr('#') 'quit'
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	521 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	522
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	523 " Switch back to the old window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	524 au WinEnter * ++once wincmd p
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	525 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	526
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	527 " Change the old window's buffer.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	528 au WinEnter * ++once call win_execute(win_getid(winnr('#')), 'enew')
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	529 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	530
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	531 " Using BufLeave autocmds as cmdwin restrictions do not apply to them when
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	532 " fired from opening the cmdwin...
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	533 " After opening the cmdwin's split, while creating the cmdwin's buffer:
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	534 " Delete the cmdwin's buffer.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	535 au BufLeave * ++once bwipe
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	536 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	537
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	538 " Close the cmdwin's window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	539 au BufLeave * ++once quit
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	540 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	541
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	542 " Close the old window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	543 au BufLeave * ++once execute winnr('#') 'quit'
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	544 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	545
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	546 " Switch to a different window.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	547 au BufLeave * ++once split
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	548 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	549
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	550 " Change the old window's buffer.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	551 au BufLeave * ++once call win_execute(win_getid(winnr('#')), 'enew')
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	552 call CheckInterrupted()
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	553
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	554 " However, changing the current buffer is OK and does not interrupt.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	555 au BufLeave * ++once edit other
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	556 call feedkeys("q::let t=getcmdwintype()\<CR>:let b=bufnr()\<CR>:clo<CR>", 'ntx')
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	557 call assert_equal(':', t)
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	558 call assert_equal(1, bufloaded('other'))
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	559 call assert_notequal(b, bufnr('other'))
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	560
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	561 augroup END
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	562
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	563 " No autocmds should remain, but clear the augroup to be sure.
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	564 augroup CmdWin
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	565 au!
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	566 augroup END
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	567
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	568 %bwipe!
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	569 delfunc CheckInterrupted
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	570 endfunc
57b21d421cb2 patch 9.1.0048: Abort opening cmdwin if autocmds screw things up Christian Brabandt <cb@256bit.org> parents: 34194 diff changeset	571
34198 08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	572 func Test_cmdwin_existing_bufname()
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	573 func CheckName()
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	574 call assert_equal(1, getbufinfo('')[0].command)
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	575 call assert_equal(0, getbufinfo('[Command Line]')[0].command)
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	576 call assert_match('#a\s*"\[Command Line\]"', execute('ls'))
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	577 call assert_match('%a\s*"\[Command Line\]"', execute('ls'))
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	578 endfunc
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	579
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	580 file [Command Line]
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	581 call feedkeys("q::call CheckName()\<CR>:q\<CR>", 'ntx')
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	582 0file
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	583 delfunc CheckName
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	584 endfunc
08e6a44e5c77 patch 9.1.0049: Make "[Command Line]" a special buffer name Christian Brabandt <cb@256bit.org> parents: 34196 diff changeset	585
32670 695b50472e85 Fix line endings issue Christian Brabandt <cb@256bit.org> parents: 32669 diff changeset	586 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_cmdwin.vim @ 35162:860a5fb8eaf2 default tip