call assert_equal(len(g:mode_seq) - 1, g:index)
call assert_equal(2, g:n_to_c)
call assert_equal(2, g:c_to_n)
- unlet g:n_to_c
- unlet g:c_to_n
let g:n_to_v = 0
au ModeChanged n:v let g:n_to_v += 1
call assert_equal(len(g:mode_seq) - 1, g:index)
call assert_equal(1, g:n_to_v)
call assert_equal(1, g:v_to_n)
- unlet g:n_to_v
- unlet g:v_to_n
+
+ let g:mode_seq += ['c', 'cr', 'c', 'cr', 'n']
+ call feedkeys(":\<Insert>\<Insert>\<Insert>\<CR>", 'tnix')
+ call assert_equal(len(g:mode_seq) - 1, g:index)
au! ModeChanged
delfunc TestMode
unlet! g:i_to_n
unlet! g:nori_to_any
unlet! g:i_to_any
+ unlet! g:n_to_c
+ unlet! g:c_to_n
+ unlet! g:n_to_v
+ unlet! g:v_to_n
endfunc
func Test_recursive_ModeChanged()
" Only complete from the current buffer.
set complete=.
- inoremap <F2> <C-R>=Save_mode()<CR>
+ noremap! <F2> <C-R>=Save_mode()<CR>
xnoremap <F2> <Cmd>call Save_mode()<CR>
normal! 3G
exe "normal g\<C-H>\<C-O>\<F2>\<Esc>"
call assert_equal("\<C-V>-\<C-V>s", g:current_modes)
- call feedkeys(":echo \<C-R>=Save_mode()\<C-U>\<CR>", 'xt')
+ call feedkeys(":\<F2>\<CR>", 'xt')
call assert_equal('c-c', g:current_modes)
- call feedkeys(":\<insert>\<C-r>=Save_mode()\<CR>",'xt')
+ call feedkeys(":\<Insert>\<F2>\<CR>", 'xt')
call assert_equal("c-cr", g:current_modes)
- call feedkeys("gQecho \<C-R>=Save_mode()\<CR>\<CR>vi\<CR>", 'xt')
+ call feedkeys("gQ\<F2>vi\<CR>", 'xt')
call assert_equal('c-cv', g:current_modes)
- call feedkeys("gQ\<insert>\<C-r>=Save_mode()\<CR>",'xt')
+ call feedkeys("gQ\<Insert>\<F2>vi\<CR>", 'xt')
call assert_equal("c-cvr", g:current_modes)
+
+ " Executing commands in Vim Ex mode should return "cv", never "cvr",
+ " as Cmdline editing has already ended.
+ call feedkeys("gQcall Save_mode()\<CR>vi\<CR>", 'xt')
+ call assert_equal('c-cv', g:current_modes)
+ call feedkeys("gQ\<Insert>call Save_mode()\<CR>vi\<CR>", 'xt')
+ call assert_equal('c-cv', g:current_modes)
+
call feedkeys("Qcall Save_mode()\<CR>vi\<CR>", 'xt')
call assert_equal('c-ce', g:current_modes)
- " How to test Ex mode?
" Test mode in operatorfunc (it used to be Operator-pending).
set operatorfunc=OperatorFunc
call assert_equal('n-niR', g:current_modes)
execute "normal! gR\<C-o>g@l\<Esc>"
call assert_equal('n-niV', g:current_modes)
- " Test statusline updates for overstike mode
+
+ " Test statusline updates for overstrike mode
if CanRunVimInTerminal()
let buf = RunVimInTerminal('', {'rows': 12})
call term_sendkeys(buf, ":set laststatus=2 statusline=%!mode(1)\<CR>")
call term_sendkeys(buf, ":")
call TermWait(buf)
call VerifyScreenDump(buf, 'Test_mode_1', {})
- call term_sendkeys(buf, "\<insert>")
+ call term_sendkeys(buf, "\<Insert>")
call TermWait(buf)
call VerifyScreenDump(buf, 'Test_mode_2', {})
call StopVimInTerminal(buf)
endif
bwipe!
- iunmap <F2>
+ unmap! <F2>
xunmap <F2>
set complete&
set operatorfunc&