mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 19:25:11 -07:00
b29df57ba7
Problem: Vim9: some tests fail.
Solution: Fix the tests, mostly by removing "s:".
62b191c387
Co-authored-by: Bram Moolenaar <Bram@vim.org>
3937 lines
102 KiB
VimL
3937 lines
102 KiB
VimL
" Test for various Normal mode commands
|
||
|
||
source shared.vim
|
||
source check.vim
|
||
source view_util.vim
|
||
source vim9.vim
|
||
source screendump.vim
|
||
|
||
func Setup_NewWindow()
|
||
10new
|
||
call setline(1, range(1,100))
|
||
endfunc
|
||
|
||
func MyFormatExpr()
|
||
" Adds '->$' at lines having numbers followed by trailing whitespace
|
||
for ln in range(v:lnum, v:lnum+v:count-1)
|
||
let line = getline(ln)
|
||
if getline(ln) =~# '\d\s\+$'
|
||
call setline(ln, substitute(line, '\s\+$', '', '') . '->$')
|
||
endif
|
||
endfor
|
||
endfunc
|
||
|
||
func CountSpaces(type, ...)
|
||
" for testing operatorfunc
|
||
" will count the number of spaces
|
||
" and return the result in g:a
|
||
let sel_save = &selection
|
||
let &selection = "inclusive"
|
||
let reg_save = @@
|
||
|
||
if a:0 " Invoked from Visual mode, use gv command.
|
||
silent exe "normal! gvy"
|
||
elseif a:type == 'line'
|
||
silent exe "normal! '[V']y"
|
||
else
|
||
silent exe "normal! `[v`]y"
|
||
endif
|
||
let g:a = strlen(substitute(@@, '[^ ]', '', 'g'))
|
||
let &selection = sel_save
|
||
let @@ = reg_save
|
||
endfunc
|
||
|
||
func OpfuncDummy(type, ...)
|
||
" for testing operatorfunc
|
||
let g:opt = &linebreak
|
||
|
||
if a:0 " Invoked from Visual mode, use gv command.
|
||
silent exe "normal! gvy"
|
||
elseif a:type == 'line'
|
||
silent exe "normal! '[V']y"
|
||
else
|
||
silent exe "normal! `[v`]y"
|
||
endif
|
||
" Create a new dummy window
|
||
new
|
||
let g:bufnr = bufnr('%')
|
||
endfunc
|
||
|
||
func Test_normal00_optrans()
|
||
new
|
||
call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line'])
|
||
1
|
||
exe "norm! Sfoobar\<esc>"
|
||
call assert_equal(['foobar', '2 This is the second line', '3 this is the third line', ''], getline(1,'$'))
|
||
2
|
||
exe "norm! $vbsone"
|
||
call assert_equal(['foobar', '2 This is the second one', '3 this is the third line', ''], getline(1,'$'))
|
||
norm! VS Second line here
|
||
call assert_equal(['foobar', ' Second line here', '3 this is the third line', ''], getline(1, '$'))
|
||
%d
|
||
call append(0, ['4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line'])
|
||
call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line'])
|
||
|
||
1
|
||
norm! 2D
|
||
call assert_equal(['3 this is the third line', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$'))
|
||
" Nvim: no "#" flag in 'cpoptions'.
|
||
" set cpo+=#
|
||
" norm! 4D
|
||
" call assert_equal(['', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$'))
|
||
|
||
" clean up
|
||
set cpo-=#
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal01_keymodel()
|
||
call Setup_NewWindow()
|
||
" Test 1: depending on 'keymodel' <s-down> does something different
|
||
50
|
||
call feedkeys("V\<S-Up>y", 'tx')
|
||
call assert_equal(['47', '48', '49', '50'], getline("'<", "'>"))
|
||
set keymodel=startsel
|
||
50
|
||
call feedkeys("V\<S-Up>y", 'tx')
|
||
call assert_equal(['49', '50'], getline("'<", "'>"))
|
||
" Start visual mode when keymodel = startsel
|
||
50
|
||
call feedkeys("\<S-Up>y", 'tx')
|
||
call assert_equal(['49', '5'], getreg(0, 0, 1))
|
||
" Use the different Shift special keys
|
||
50
|
||
call feedkeys("\<S-Right>\<S-Left>\<S-Up>\<S-Down>\<S-Home>\<S-End>y", 'tx')
|
||
call assert_equal(['50'], getline("'<", "'>"))
|
||
call assert_equal(['50', ''], getreg(0, 0, 1))
|
||
|
||
" Do not start visual mode when keymodel=
|
||
set keymodel=
|
||
50
|
||
call feedkeys("\<S-Up>y$", 'tx')
|
||
call assert_equal(['42'], getreg(0, 0, 1))
|
||
" Stop visual mode when keymodel=stopsel
|
||
set keymodel=stopsel
|
||
50
|
||
call feedkeys("Vkk\<Up>yy", 'tx')
|
||
call assert_equal(['47'], getreg(0, 0, 1))
|
||
|
||
set keymodel=
|
||
50
|
||
call feedkeys("Vkk\<Up>yy", 'tx')
|
||
call assert_equal(['47', '48', '49', '50'], getreg(0, 0, 1))
|
||
|
||
" Test for using special keys to start visual selection
|
||
%d
|
||
call setline(1, ['red fox tail', 'red fox tail', 'red fox tail'])
|
||
set keymodel=startsel
|
||
" Test for <S-PageUp> and <S-PageDown>
|
||
call cursor(1, 1)
|
||
call feedkeys("\<S-PageDown>y", 'xt')
|
||
call assert_equal([0, 1, 1, 0], getpos("'<"))
|
||
call assert_equal([0, 3, 1, 0], getpos("'>"))
|
||
call feedkeys("Gz\<CR>8|\<S-PageUp>y", 'xt')
|
||
call assert_equal([0, 2, 1, 0], getpos("'<"))
|
||
call assert_equal([0, 3, 8, 0], getpos("'>"))
|
||
" Test for <S-C-Home> and <S-C-End>
|
||
call cursor(2, 12)
|
||
call feedkeys("\<S-C-Home>y", 'xt')
|
||
call assert_equal([0, 1, 1, 0], getpos("'<"))
|
||
call assert_equal([0, 2, 12, 0], getpos("'>"))
|
||
call cursor(1, 4)
|
||
call feedkeys("\<S-C-End>y", 'xt')
|
||
call assert_equal([0, 1, 4, 0], getpos("'<"))
|
||
call assert_equal([0, 3, 13, 0], getpos("'>"))
|
||
" Test for <S-C-Left> and <S-C-Right>
|
||
call cursor(2, 5)
|
||
call feedkeys("\<S-C-Right>y", 'xt')
|
||
call assert_equal([0, 2, 5, 0], getpos("'<"))
|
||
call assert_equal([0, 2, 9, 0], getpos("'>"))
|
||
call cursor(2, 9)
|
||
call feedkeys("\<S-C-Left>y", 'xt')
|
||
call assert_equal([0, 2, 5, 0], getpos("'<"))
|
||
call assert_equal([0, 2, 9, 0], getpos("'>"))
|
||
|
||
set keymodel&
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal03_join()
|
||
" basic join test
|
||
call Setup_NewWindow()
|
||
50
|
||
norm! VJ
|
||
call assert_equal('50 51', getline('.'))
|
||
$
|
||
norm! J
|
||
call assert_equal('100', getline('.'))
|
||
$
|
||
norm! V9-gJ
|
||
call assert_equal('919293949596979899100', getline('.'))
|
||
call setline(1, range(1,100))
|
||
$
|
||
:j 10
|
||
call assert_equal('100', getline('.'))
|
||
call assert_beeps('normal GVJ')
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" basic filter test
|
||
func Test_normal04_filter()
|
||
" only test on non windows platform
|
||
CheckNotMSWindows
|
||
call Setup_NewWindow()
|
||
1
|
||
call feedkeys("!!sed -e 's/^/| /'\n", 'tx')
|
||
call assert_equal('| 1', getline('.'))
|
||
90
|
||
:sil :!echo one
|
||
call feedkeys('.', 'tx')
|
||
call assert_equal('| 90', getline('.'))
|
||
95
|
||
set cpo+=!
|
||
" 2 <CR>, 1: for executing the command,
|
||
" 2: clear hit-enter-prompt
|
||
call feedkeys("!!\n", 'tx')
|
||
call feedkeys(":!echo one\n\n", 'tx')
|
||
call feedkeys(".", 'tx')
|
||
call assert_equal('one', getline('.'))
|
||
set cpo-=!
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal05_formatexpr()
|
||
" basic formatexpr test
|
||
call Setup_NewWindow()
|
||
%d_
|
||
call setline(1, ['here: 1 ', '2', 'here: 3 ', '4', 'not here: '])
|
||
1
|
||
set formatexpr=MyFormatExpr()
|
||
norm! gqG
|
||
call assert_equal(['here: 1->$', '2', 'here: 3->$', '4', 'not here: '], getline(1,'$'))
|
||
set formatexpr=
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal05_formatexpr_newbuf()
|
||
" Edit another buffer in the 'formatexpr' function
|
||
new
|
||
func! Format()
|
||
edit another
|
||
endfunc
|
||
set formatexpr=Format()
|
||
norm gqG
|
||
bw!
|
||
set formatexpr=
|
||
endfunc
|
||
|
||
func Test_normal05_formatexpr_setopt()
|
||
" Change the 'formatexpr' value in the function
|
||
new
|
||
func! Format()
|
||
set formatexpr=
|
||
endfunc
|
||
set formatexpr=Format()
|
||
norm gqG
|
||
bw!
|
||
set formatexpr=
|
||
endfunc
|
||
|
||
" When 'formatexpr' returns non-zero, internal formatting is used.
|
||
func Test_normal_formatexpr_returns_nonzero()
|
||
new
|
||
call setline(1, ['one', 'two'])
|
||
func! Format()
|
||
return 1
|
||
endfunc
|
||
setlocal formatexpr=Format()
|
||
normal VGgq
|
||
call assert_equal(['one two'], getline(1, '$'))
|
||
setlocal formatexpr=
|
||
delfunc Format
|
||
close!
|
||
endfunc
|
||
|
||
" Test for using a script-local function for 'formatexpr'
|
||
func Test_formatexpr_scriptlocal_func()
|
||
func! s:Format()
|
||
let g:FormatArgs = [v:lnum, v:count]
|
||
endfunc
|
||
set formatexpr=s:Format()
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
new | only
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 2GVjgq
|
||
call assert_equal([2, 2], g:FormatArgs)
|
||
bw!
|
||
set formatexpr=<SID>Format()
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
new | only
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 4GVjgq
|
||
call assert_equal([4, 2], g:FormatArgs)
|
||
bw!
|
||
let &formatexpr = 's:Format()'
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
new | only
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 6GVjgq
|
||
call assert_equal([6, 2], g:FormatArgs)
|
||
bw!
|
||
let &formatexpr = '<SID>Format()'
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
new | only
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 8GVjgq
|
||
call assert_equal([8, 2], g:FormatArgs)
|
||
bw!
|
||
setlocal formatexpr=
|
||
setglobal formatexpr=s:Format()
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
call assert_equal('', &formatexpr)
|
||
new
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 10GVjgq
|
||
call assert_equal([10, 2], g:FormatArgs)
|
||
bw!
|
||
setglobal formatexpr=<SID>Format()
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
call assert_equal('', &formatexpr)
|
||
new
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 12GVjgq
|
||
call assert_equal([12, 2], g:FormatArgs)
|
||
bw!
|
||
let &g:formatexpr = 's:Format()'
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
call assert_equal('', &formatexpr)
|
||
new
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 14GVjgq
|
||
call assert_equal([14, 2], g:FormatArgs)
|
||
bw!
|
||
let &g:formatexpr = '<SID>Format()'
|
||
call assert_equal(expand('<SID>') .. 'Format()', &g:formatexpr)
|
||
call assert_equal('', &formatexpr)
|
||
new
|
||
call assert_equal(expand('<SID>') .. 'Format()', &formatexpr)
|
||
call setline(1, range(1, 40))
|
||
let g:FormatArgs = []
|
||
normal! 16GVjgq
|
||
call assert_equal([16, 2], g:FormatArgs)
|
||
bw!
|
||
set formatexpr=
|
||
delfunc s:Format
|
||
bw!
|
||
endfunc
|
||
|
||
" basic test for formatprg
|
||
func Test_normal06_formatprg()
|
||
" only test on non windows platform
|
||
CheckNotMSWindows
|
||
|
||
" uses sed to number non-empty lines
|
||
call writefile(['#!/bin/sh', 'sed ''/./=''|sed ''/./{', 'N', 's/\n/ /', '}'''], 'Xsed_format.sh')
|
||
call system('chmod +x ./Xsed_format.sh')
|
||
let text = ['a', '', 'c', '', ' ', 'd', 'e']
|
||
let expected = ['1 a', '', '3 c', '', '5 ', '6 d', '7 e']
|
||
|
||
10new
|
||
call setline(1, text)
|
||
set formatprg=./Xsed_format.sh
|
||
norm! gggqG
|
||
call assert_equal(expected, getline(1, '$'))
|
||
%d
|
||
|
||
call setline(1, text)
|
||
set formatprg=donothing
|
||
setlocal formatprg=./Xsed_format.sh
|
||
norm! gggqG
|
||
call assert_equal(expected, getline(1, '$'))
|
||
%d
|
||
|
||
" Check for the command-line ranges added to 'formatprg'
|
||
set formatprg=cat
|
||
call setline(1, ['one', 'two', 'three', 'four', 'five'])
|
||
call feedkeys('gggqG', 'xt')
|
||
call assert_equal('.,$!cat', @:)
|
||
call feedkeys('2Ggq2j', 'xt')
|
||
call assert_equal('.,.+2!cat', @:)
|
||
|
||
bw!
|
||
" clean up
|
||
set formatprg=
|
||
setlocal formatprg=
|
||
call delete('Xsed_format.sh')
|
||
endfunc
|
||
|
||
func Test_normal07_internalfmt()
|
||
" basic test for internal formmatter to textwidth of 12
|
||
let list=range(1,11)
|
||
call map(list, 'v:val." "')
|
||
10new
|
||
call setline(1, list)
|
||
set tw=12
|
||
norm! ggVGgq
|
||
call assert_equal(['1 2 3', '4 5 6', '7 8 9', '10 11 '], getline(1, '$'))
|
||
" clean up
|
||
set tw=0
|
||
bw!
|
||
endfunc
|
||
|
||
" basic tests for foldopen/folddelete
|
||
func Test_normal08_fold()
|
||
CheckFeature folding
|
||
call Setup_NewWindow()
|
||
50
|
||
setl foldenable fdm=marker
|
||
" First fold
|
||
norm! V4jzf
|
||
" check that folds have been created
|
||
call assert_equal(['50/*{{{*/', '51', '52', '53', '54/*}}}*/'], getline(50,54))
|
||
" Second fold
|
||
46
|
||
norm! V10jzf
|
||
" check that folds have been created
|
||
call assert_equal('46/*{{{*/', getline(46))
|
||
call assert_equal('60/*}}}*/', getline(60))
|
||
norm! k
|
||
call assert_equal('45', getline('.'))
|
||
norm! j
|
||
call assert_equal('46/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('61', getline('.'))
|
||
norm! k
|
||
" open a fold
|
||
norm! Vzo
|
||
norm! k
|
||
call assert_equal('45', getline('.'))
|
||
norm! j
|
||
call assert_equal('46/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('47', getline('.'))
|
||
norm! k
|
||
norm! zcVzO
|
||
call assert_equal('46/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('47', getline('.'))
|
||
norm! j
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51', getline('.'))
|
||
" delete folds
|
||
:46
|
||
" collapse fold
|
||
norm! V14jzC
|
||
" delete all folds recursively
|
||
norm! VzD
|
||
call assert_equal(['46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60'], getline(46,60))
|
||
|
||
" clean up
|
||
setl nofoldenable fdm=marker
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal09a_operatorfunc()
|
||
" Test operatorfunc
|
||
call Setup_NewWindow()
|
||
" Add some spaces for counting
|
||
50,60s/$/ /
|
||
unlet! g:a
|
||
let g:a=0
|
||
nmap <buffer><silent> ,, :set opfunc=CountSpaces<CR>g@
|
||
vmap <buffer><silent> ,, :<C-U>call CountSpaces(visualmode(), 1)<CR>
|
||
50
|
||
norm V2j,,
|
||
call assert_equal(6, g:a)
|
||
norm V,,
|
||
call assert_equal(2, g:a)
|
||
norm ,,l
|
||
call assert_equal(0, g:a)
|
||
50
|
||
exe "norm 0\<c-v>10j2l,,"
|
||
call assert_equal(11, g:a)
|
||
50
|
||
norm V10j,,
|
||
call assert_equal(22, g:a)
|
||
|
||
" clean up
|
||
unmap <buffer> ,,
|
||
set opfunc=
|
||
unlet! g:a
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal09b_operatorfunc()
|
||
" Test operatorfunc
|
||
call Setup_NewWindow()
|
||
" Add some spaces for counting
|
||
50,60s/$/ /
|
||
unlet! g:opt
|
||
set linebreak
|
||
nmap <buffer><silent> ,, :set opfunc=OpfuncDummy<CR>g@
|
||
50
|
||
norm ,,j
|
||
exe "bd!" g:bufnr
|
||
call assert_true(&linebreak)
|
||
call assert_equal(g:opt, &linebreak)
|
||
set nolinebreak
|
||
norm ,,j
|
||
exe "bd!" g:bufnr
|
||
call assert_false(&linebreak)
|
||
call assert_equal(g:opt, &linebreak)
|
||
|
||
" clean up
|
||
unmap <buffer> ,,
|
||
set opfunc=
|
||
call assert_fails('normal Vg@', 'E774:')
|
||
bw!
|
||
unlet! g:opt
|
||
endfunc
|
||
|
||
func OperatorfuncRedo(_)
|
||
let g:opfunc_count = v:count
|
||
endfunc
|
||
|
||
func Underscorize(_)
|
||
normal! '[V']r_
|
||
endfunc
|
||
|
||
func Test_normal09c_operatorfunc()
|
||
" Test redoing operatorfunc
|
||
new
|
||
call setline(1, 'some text')
|
||
set operatorfunc=OperatorfuncRedo
|
||
normal v3g@
|
||
call assert_equal(3, g:opfunc_count)
|
||
let g:opfunc_count = 0
|
||
normal .
|
||
call assert_equal(3, g:opfunc_count)
|
||
|
||
bw!
|
||
unlet g:opfunc_count
|
||
|
||
" Test redoing Visual mode
|
||
set operatorfunc=Underscorize
|
||
new
|
||
call setline(1, ['first', 'first', 'third', 'third', 'second'])
|
||
normal! 1GVjg@
|
||
normal! 5G.
|
||
normal! 3G.
|
||
call assert_equal(['_____', '_____', '_____', '_____', '______'], getline(1, '$'))
|
||
bwipe!
|
||
set operatorfunc=
|
||
endfunc
|
||
|
||
" Test for different ways of setting the 'operatorfunc' option
|
||
func Test_opfunc_callback()
|
||
new
|
||
func OpFunc1(callnr, type)
|
||
let g:OpFunc1Args = [a:callnr, a:type]
|
||
endfunc
|
||
func OpFunc2(type)
|
||
let g:OpFunc2Args = [a:type]
|
||
endfunc
|
||
|
||
let lines =<< trim END
|
||
#" Test for using a function name
|
||
LET &opfunc = 'g:OpFunc2'
|
||
LET g:OpFunc2Args = []
|
||
normal! g@l
|
||
call assert_equal(['char'], g:OpFunc2Args)
|
||
|
||
#" Test for using a function()
|
||
set opfunc=function('g:OpFunc1',\ [10])
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([10, 'char'], g:OpFunc1Args)
|
||
|
||
#" Using a funcref variable to set 'operatorfunc'
|
||
VAR Fn = function('g:OpFunc1', [11])
|
||
LET &opfunc = Fn
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([11, 'char'], g:OpFunc1Args)
|
||
|
||
#" Using a string(funcref_variable) to set 'operatorfunc'
|
||
LET Fn = function('g:OpFunc1', [12])
|
||
LET &operatorfunc = string(Fn)
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([12, 'char'], g:OpFunc1Args)
|
||
|
||
#" Test for using a funcref()
|
||
set operatorfunc=funcref('g:OpFunc1',\ [13])
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([13, 'char'], g:OpFunc1Args)
|
||
|
||
#" Using a funcref variable to set 'operatorfunc'
|
||
LET Fn = funcref('g:OpFunc1', [14])
|
||
LET &opfunc = Fn
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([14, 'char'], g:OpFunc1Args)
|
||
|
||
#" Using a string(funcref_variable) to set 'operatorfunc'
|
||
LET Fn = funcref('g:OpFunc1', [15])
|
||
LET &opfunc = string(Fn)
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([15, 'char'], g:OpFunc1Args)
|
||
|
||
#" Test for using a lambda function using set
|
||
VAR optval = "LSTART a LMIDDLE OpFunc1(16, a) LEND"
|
||
LET optval = substitute(optval, ' ', '\\ ', 'g')
|
||
exe "set opfunc=" .. optval
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([16, 'char'], g:OpFunc1Args)
|
||
|
||
#" Test for using a lambda function using LET
|
||
LET &opfunc = LSTART a LMIDDLE OpFunc1(17, a) LEND
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([17, 'char'], g:OpFunc1Args)
|
||
|
||
#" Set 'operatorfunc' to a string(lambda expression)
|
||
LET &opfunc = 'LSTART a LMIDDLE OpFunc1(18, a) LEND'
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([18, 'char'], g:OpFunc1Args)
|
||
|
||
#" Set 'operatorfunc' to a variable with a lambda expression
|
||
VAR Lambda = LSTART a LMIDDLE OpFunc1(19, a) LEND
|
||
LET &opfunc = Lambda
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([19, 'char'], g:OpFunc1Args)
|
||
|
||
#" Set 'operatorfunc' to a string(variable with a lambda expression)
|
||
LET Lambda = LSTART a LMIDDLE OpFunc1(20, a) LEND
|
||
LET &opfunc = string(Lambda)
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([20, 'char'], g:OpFunc1Args)
|
||
|
||
#" Try to use 'operatorfunc' after the function is deleted
|
||
func g:TmpOpFunc1(type)
|
||
let g:TmpOpFunc1Args = [21, a:type]
|
||
endfunc
|
||
LET &opfunc = function('g:TmpOpFunc1')
|
||
delfunc g:TmpOpFunc1
|
||
call test_garbagecollect_now()
|
||
LET g:TmpOpFunc1Args = []
|
||
call assert_fails('normal! g@l', 'E117:')
|
||
call assert_equal([], g:TmpOpFunc1Args)
|
||
|
||
#" Try to use a function with two arguments for 'operatorfunc'
|
||
func g:TmpOpFunc2(x, y)
|
||
let g:TmpOpFunc2Args = [a:x, a:y]
|
||
endfunc
|
||
set opfunc=TmpOpFunc2
|
||
LET g:TmpOpFunc2Args = []
|
||
call assert_fails('normal! g@l', 'E119:')
|
||
call assert_equal([], g:TmpOpFunc2Args)
|
||
delfunc TmpOpFunc2
|
||
|
||
#" Try to use a lambda function with two arguments for 'operatorfunc'
|
||
LET &opfunc = LSTART a, b LMIDDLE OpFunc1(22, b) LEND
|
||
LET g:OpFunc1Args = []
|
||
call assert_fails('normal! g@l', 'E119:')
|
||
call assert_equal([], g:OpFunc1Args)
|
||
|
||
#" Test for clearing the 'operatorfunc' option
|
||
set opfunc=''
|
||
set opfunc&
|
||
call assert_fails("set opfunc=function('abc')", "E700:")
|
||
call assert_fails("set opfunc=funcref('abc')", "E700:")
|
||
|
||
#" set 'operatorfunc' to a non-existing function
|
||
LET &opfunc = function('g:OpFunc1', [23])
|
||
call assert_fails("set opfunc=function('NonExistingFunc')", 'E700:')
|
||
call assert_fails("LET &opfunc = function('NonExistingFunc')", 'E700:')
|
||
LET g:OpFunc1Args = []
|
||
normal! g@l
|
||
call assert_equal([23, 'char'], g:OpFunc1Args)
|
||
END
|
||
call CheckTransLegacySuccess(lines)
|
||
|
||
" Test for using a script-local function name
|
||
func s:OpFunc3(type)
|
||
let g:OpFunc3Args = [a:type]
|
||
endfunc
|
||
set opfunc=s:OpFunc3
|
||
let g:OpFunc3Args = []
|
||
normal! g@l
|
||
call assert_equal(['char'], g:OpFunc3Args)
|
||
|
||
let &opfunc = 's:OpFunc3'
|
||
let g:OpFunc3Args = []
|
||
normal! g@l
|
||
call assert_equal(['char'], g:OpFunc3Args)
|
||
delfunc s:OpFunc3
|
||
|
||
" Using Vim9 lambda expression in legacy context should fail
|
||
" set opfunc=(a)\ =>\ OpFunc1(24,\ a)
|
||
let g:OpFunc1Args = []
|
||
" call assert_fails('normal! g@l', 'E117:')
|
||
call assert_equal([], g:OpFunc1Args)
|
||
|
||
" set 'operatorfunc' to a partial with dict. This used to cause a crash.
|
||
func SetOpFunc()
|
||
let operator = {'execute': function('OperatorExecute')}
|
||
let &opfunc = operator.execute
|
||
endfunc
|
||
func OperatorExecute(_) dict
|
||
endfunc
|
||
call SetOpFunc()
|
||
call test_garbagecollect_now()
|
||
set operatorfunc=
|
||
delfunc SetOpFunc
|
||
delfunc OperatorExecute
|
||
|
||
" Vim9 tests
|
||
let lines =<< trim END
|
||
vim9script
|
||
|
||
def g:Vim9opFunc(val: number, type: string): void
|
||
g:OpFunc1Args = [val, type]
|
||
enddef
|
||
|
||
# Test for using a def function with opfunc
|
||
set opfunc=function('g:Vim9opFunc',\ [60])
|
||
g:OpFunc1Args = []
|
||
normal! g@l
|
||
assert_equal([60, 'char'], g:OpFunc1Args)
|
||
|
||
# Test for using a global function name
|
||
&opfunc = g:OpFunc2
|
||
g:OpFunc2Args = []
|
||
normal! g@l
|
||
assert_equal(['char'], g:OpFunc2Args)
|
||
bw!
|
||
|
||
# Test for using a script-local function name
|
||
def LocalOpFunc(type: string): void
|
||
g:LocalOpFuncArgs = [type]
|
||
enddef
|
||
&opfunc = LocalOpFunc
|
||
g:LocalOpFuncArgs = []
|
||
normal! g@l
|
||
assert_equal(['char'], g:LocalOpFuncArgs)
|
||
bw!
|
||
END
|
||
call CheckScriptSuccess(lines)
|
||
|
||
" setting 'opfunc' to a script local function outside of a script context
|
||
" should fail
|
||
let cleanup =<< trim END
|
||
call writefile([execute('messages')], 'Xtest.out')
|
||
qall
|
||
END
|
||
call writefile(cleanup, 'Xverify.vim')
|
||
call RunVim([], [], "-c \"set opfunc=s:abc\" -S Xverify.vim")
|
||
call assert_match('E81: Using <SID> not in a', readfile('Xtest.out')[0])
|
||
call delete('Xtest.out')
|
||
call delete('Xverify.vim')
|
||
|
||
" cleanup
|
||
set opfunc&
|
||
delfunc OpFunc1
|
||
delfunc OpFunc2
|
||
unlet g:OpFunc1Args g:OpFunc2Args
|
||
%bw!
|
||
endfunc
|
||
|
||
func Test_normal10_expand()
|
||
" Test for expand()
|
||
10new
|
||
call setline(1, ['1', 'ifooar,,cbar'])
|
||
2
|
||
norm! $
|
||
call assert_equal('cbar', expand('<cword>'))
|
||
call assert_equal('ifooar,,cbar', expand('<cWORD>'))
|
||
|
||
call setline(1, ['prx = list[idx];'])
|
||
1
|
||
let expected = ['', 'prx', 'prx', 'prx',
|
||
\ 'list', 'list', 'list', 'list', 'list', 'list', 'list',
|
||
\ 'idx', 'idx', 'idx', 'idx',
|
||
\ 'list[idx]',
|
||
\ '];',
|
||
\ ]
|
||
for i in range(1, 16)
|
||
exe 'norm ' . i . '|'
|
||
call assert_equal(expected[i], expand('<cexpr>'), 'i == ' . i)
|
||
endfor
|
||
|
||
" Test for <cexpr> in state.val and ptr->val
|
||
call setline(1, 'x = state.val;')
|
||
call cursor(1, 10)
|
||
call assert_equal('state.val', expand('<cexpr>'))
|
||
call setline(1, 'x = ptr->val;')
|
||
call cursor(1, 9)
|
||
call assert_equal('ptr->val', expand('<cexpr>'))
|
||
|
||
if executable('echo')
|
||
" Test expand(`...`) i.e. backticks command expansion.
|
||
" MS-Windows has a trailing space.
|
||
call assert_match('^abcde *$', expand('`echo abcde`'))
|
||
endif
|
||
|
||
" Test expand(`=...`) i.e. backticks expression expansion
|
||
call assert_equal('5', expand('`=2+3`'))
|
||
call assert_equal('3.14', expand('`=3.14`'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for expand() in latin1 encoding
|
||
func Test_normal_expand_latin1()
|
||
new
|
||
let save_enc = &encoding
|
||
" set encoding=latin1
|
||
call setline(1, 'val = item->color;')
|
||
call cursor(1, 11)
|
||
call assert_equal('color', expand("<cword>"))
|
||
call assert_equal('item->color', expand("<cexpr>"))
|
||
let &encoding = save_enc
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal11_showcmd()
|
||
" test for 'showcmd'
|
||
10new
|
||
exe "norm! ofoobar\<esc>"
|
||
call assert_equal(2, line('$'))
|
||
set showcmd
|
||
exe "norm! ofoobar2\<esc>"
|
||
call assert_equal(3, line('$'))
|
||
exe "norm! VAfoobar3\<esc>"
|
||
call assert_equal(3, line('$'))
|
||
exe "norm! 0d3\<del>2l"
|
||
call assert_equal('obar2foobar3', getline('.'))
|
||
" test for the visual block size displayed in the status line
|
||
call setline(1, ['aaaaa', 'bbbbb', 'ccccc'])
|
||
call feedkeys("ggl\<C-V>lljj", 'xt')
|
||
redraw!
|
||
call assert_match('3x3$', Screenline(&lines))
|
||
call feedkeys("\<C-V>", 'xt')
|
||
" test for visually selecting a multi-byte character
|
||
call setline(1, ["\U2206"])
|
||
call feedkeys("ggv", 'xt')
|
||
redraw!
|
||
call assert_match('1-3$', Screenline(&lines))
|
||
call feedkeys("v", 'xt')
|
||
" test for visually selecting the end of line
|
||
call setline(1, ["foobar"])
|
||
call feedkeys("$vl", 'xt')
|
||
redraw!
|
||
call assert_match('2$', Screenline(&lines))
|
||
call feedkeys("y", 'xt')
|
||
call assert_equal("r\n", @")
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for nv_error and normal command errors
|
||
func Test_normal12_nv_error()
|
||
10new
|
||
call setline(1, range(1,5))
|
||
" should not do anything, just beep
|
||
call assert_beeps('exe "norm! <c-k>"')
|
||
call assert_equal(map(range(1,5), 'string(v:val)'), getline(1,'$'))
|
||
call assert_beeps('normal! G2dd')
|
||
call assert_beeps("normal! g\<C-A>")
|
||
call assert_beeps("normal! g\<C-X>")
|
||
call assert_beeps("normal! g\<C-B>")
|
||
" call assert_beeps("normal! vQ\<Esc>")
|
||
call assert_beeps("normal! 2[[")
|
||
call assert_beeps("normal! 2]]")
|
||
call assert_beeps("normal! 2[]")
|
||
call assert_beeps("normal! 2][")
|
||
call assert_beeps("normal! 4[z")
|
||
call assert_beeps("normal! 4]z")
|
||
call assert_beeps("normal! 4[c")
|
||
call assert_beeps("normal! 4]c")
|
||
call assert_beeps("normal! 200%")
|
||
call assert_beeps("normal! %")
|
||
call assert_beeps("normal! 2{")
|
||
call assert_beeps("normal! 2}")
|
||
call assert_beeps("normal! r\<Right>")
|
||
call assert_beeps("normal! 8ry")
|
||
call assert_beeps('normal! "@')
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal13_help()
|
||
" Test for F1
|
||
call assert_equal(1, winnr())
|
||
call feedkeys("\<f1>", 'txi')
|
||
call assert_match('help\.txt', bufname('%'))
|
||
call assert_equal(2, winnr('$'))
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal14_page()
|
||
" basic test for Ctrl-F and Ctrl-B
|
||
call Setup_NewWindow()
|
||
exe "norm! \<c-f>"
|
||
call assert_equal('9', getline('.'))
|
||
exe "norm! 2\<c-f>"
|
||
call assert_equal('25', getline('.'))
|
||
exe "norm! 2\<c-b>"
|
||
call assert_equal('18', getline('.'))
|
||
1
|
||
set scrolloff=5
|
||
exe "norm! 2\<c-f>"
|
||
call assert_equal('21', getline('.'))
|
||
exe "norm! \<c-b>"
|
||
call assert_equal('13', getline('.'))
|
||
1
|
||
set scrolloff=99
|
||
exe "norm! \<c-f>"
|
||
call assert_equal('13', getline('.'))
|
||
set scrolloff=0
|
||
100
|
||
exe "norm! $\<c-b>"
|
||
call assert_equal('92', getline('.'))
|
||
call assert_equal([0, 92, 1, 0, 1], getcurpos())
|
||
100
|
||
set nostartofline
|
||
exe "norm! $\<c-b>"
|
||
call assert_equal('92', getline('.'))
|
||
call assert_equal([0, 92, 2, 0, v:maxcol], getcurpos())
|
||
" cleanup
|
||
set startofline
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal14_page_eol()
|
||
10new
|
||
norm oxxxxxxx
|
||
exe "norm 2\<c-f>"
|
||
" check with valgrind that cursor is put back in column 1
|
||
exe "norm 2\<c-b>"
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for errors with z command
|
||
func Test_normal_z_error()
|
||
call assert_beeps('normal! z2p')
|
||
call assert_beeps('normal! zq')
|
||
call assert_beeps('normal! cz1')
|
||
endfunc
|
||
|
||
func Test_normal15_z_scroll_vert()
|
||
" basic test for z commands that scroll the window
|
||
call Setup_NewWindow()
|
||
100
|
||
norm! >>
|
||
" Test for z<cr>
|
||
exe "norm! z\<cr>"
|
||
call assert_equal(' 100', getline('.'))
|
||
call assert_equal(100, winsaveview()['topline'])
|
||
call assert_equal([0, 100, 2, 0, 9], getcurpos())
|
||
|
||
" Test for zt
|
||
21
|
||
norm! >>0zt
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(21, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 1, 0, 8], getcurpos())
|
||
|
||
" Test for zb
|
||
30
|
||
norm! >>$ztzb
|
||
call assert_equal(' 30', getline('.'))
|
||
call assert_equal(30, winsaveview()['topline']+winheight(0)-1)
|
||
call assert_equal([0, 30, 3, 0, v:maxcol], getcurpos())
|
||
|
||
" Test for z-
|
||
1
|
||
30
|
||
norm! 0z-
|
||
call assert_equal(' 30', getline('.'))
|
||
call assert_equal(30, winsaveview()['topline']+winheight(0)-1)
|
||
call assert_equal([0, 30, 2, 0, 9], getcurpos())
|
||
|
||
" Test for z{height}<cr>
|
||
call assert_equal(10, winheight(0))
|
||
exe "norm! z12\<cr>"
|
||
call assert_equal(12, winheight(0))
|
||
exe "norm! z15\<Del>0\<cr>"
|
||
call assert_equal(10, winheight(0))
|
||
|
||
" Test for z.
|
||
1
|
||
21
|
||
norm! 0z.
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(17, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 2, 0, 9], getcurpos())
|
||
|
||
" Test for zz
|
||
1
|
||
21
|
||
norm! 0zz
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(17, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 1, 0, 8], getcurpos())
|
||
|
||
" Test for z+
|
||
11
|
||
norm! zt
|
||
norm! z+
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(21, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 2, 0, 9], getcurpos())
|
||
|
||
" Test for [count]z+
|
||
1
|
||
norm! 21z+
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(21, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 2, 0, 9], getcurpos())
|
||
|
||
" Test for z+ with [count] greater than buffer size
|
||
1
|
||
norm! 1000z+
|
||
call assert_equal(' 100', getline('.'))
|
||
call assert_equal(100, winsaveview()['topline'])
|
||
call assert_equal([0, 100, 2, 0, 9], getcurpos())
|
||
|
||
" Test for z+ from the last buffer line
|
||
norm! Gz.z+
|
||
call assert_equal(' 100', getline('.'))
|
||
call assert_equal(100, winsaveview()['topline'])
|
||
call assert_equal([0, 100, 2, 0, 9], getcurpos())
|
||
|
||
" Test for z^
|
||
norm! 22z+0
|
||
norm! z^
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(12, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 2, 0, 9], getcurpos())
|
||
|
||
" Test for z^ from first buffer line
|
||
norm! ggz^
|
||
call assert_equal('1', getline('.'))
|
||
call assert_equal(1, winsaveview()['topline'])
|
||
call assert_equal([0, 1, 1, 0, 1], getcurpos())
|
||
|
||
" Test for [count]z^
|
||
1
|
||
norm! 30z^
|
||
call assert_equal(' 21', getline('.'))
|
||
call assert_equal(12, winsaveview()['topline'])
|
||
call assert_equal([0, 21, 2, 0, 9], getcurpos())
|
||
|
||
" cleanup
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal16_z_scroll_hor()
|
||
" basic test for z commands that scroll the window
|
||
10new
|
||
15vsp
|
||
set nowrap listchars=
|
||
let lineA='abcdefghijklmnopqrstuvwxyz'
|
||
let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
||
$put =lineA
|
||
$put =lineB
|
||
1d
|
||
|
||
" Test for zl and zh with a count
|
||
norm! 0z10l
|
||
call assert_equal([11, 1], [col('.'), wincol()])
|
||
norm! z4h
|
||
call assert_equal([11, 5], [col('.'), wincol()])
|
||
normal! 2gg
|
||
|
||
" Test for zl
|
||
1
|
||
norm! 5zl
|
||
call assert_equal(lineA, getline('.'))
|
||
call assert_equal(6, col('.'))
|
||
call assert_equal(5, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('f', @0)
|
||
|
||
" Test for zh
|
||
norm! 2zh
|
||
call assert_equal(lineA, getline('.'))
|
||
call assert_equal(6, col('.'))
|
||
norm! yl
|
||
call assert_equal('f', @0)
|
||
call assert_equal(3, winsaveview()['leftcol'])
|
||
|
||
" Test for zL
|
||
norm! zL
|
||
call assert_equal(11, col('.'))
|
||
norm! yl
|
||
call assert_equal('k', @0)
|
||
call assert_equal(10, winsaveview()['leftcol'])
|
||
norm! 2zL
|
||
call assert_equal(25, col('.'))
|
||
norm! yl
|
||
call assert_equal('y', @0)
|
||
call assert_equal(24, winsaveview()['leftcol'])
|
||
|
||
" Test for zH
|
||
norm! 2zH
|
||
call assert_equal(25, col('.'))
|
||
call assert_equal(10, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('y', @0)
|
||
|
||
" Test for zs
|
||
norm! $zs
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(25, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
|
||
" Test for ze
|
||
norm! ze
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(11, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
|
||
" Test for zs and ze with folds
|
||
%fold
|
||
norm! $zs
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(0, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
norm! ze
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(0, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
|
||
" cleanup
|
||
set wrap listchars=eol:$
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal17_z_scroll_hor2()
|
||
" basic test for z commands that scroll the window
|
||
" using 'sidescrolloff' setting
|
||
10new
|
||
20vsp
|
||
set nowrap listchars= sidescrolloff=5
|
||
let lineA='abcdefghijklmnopqrstuvwxyz'
|
||
let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
||
$put =lineA
|
||
$put =lineB
|
||
1d
|
||
|
||
" Test for zl
|
||
1
|
||
norm! 5zl
|
||
call assert_equal(lineA, getline('.'))
|
||
call assert_equal(11, col('.'))
|
||
call assert_equal(5, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('k', @0)
|
||
|
||
" Test for zh
|
||
norm! 2zh
|
||
call assert_equal(lineA, getline('.'))
|
||
call assert_equal(11, col('.'))
|
||
norm! yl
|
||
call assert_equal('k', @0)
|
||
call assert_equal(3, winsaveview()['leftcol'])
|
||
|
||
" Test for zL
|
||
norm! 0zL
|
||
call assert_equal(16, col('.'))
|
||
norm! yl
|
||
call assert_equal('p', @0)
|
||
call assert_equal(10, winsaveview()['leftcol'])
|
||
norm! 2zL
|
||
call assert_equal(26, col('.'))
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
call assert_equal(15, winsaveview()['leftcol'])
|
||
|
||
" Test for zH
|
||
norm! 2zH
|
||
call assert_equal(15, col('.'))
|
||
call assert_equal(0, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('o', @0)
|
||
|
||
" Test for zs
|
||
norm! $zs
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(20, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
|
||
" Test for ze
|
||
norm! ze
|
||
call assert_equal(26, col('.'))
|
||
call assert_equal(11, winsaveview()['leftcol'])
|
||
norm! yl
|
||
call assert_equal('z', @0)
|
||
|
||
" cleanup
|
||
set wrap listchars=eol:$ sidescrolloff=0
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for commands that scroll the window horizontally. Test with folds.
|
||
" H, M, L, CTRL-E, CTRL-Y, CTRL-U, CTRL-D, PageUp, PageDown commands
|
||
func Test_vert_scroll_cmds()
|
||
15new
|
||
call setline(1, range(1, 100))
|
||
exe "normal! 30ggz\<CR>"
|
||
set foldenable
|
||
33,36fold
|
||
40,43fold
|
||
46,49fold
|
||
let h = winheight(0)
|
||
|
||
" Test for H, M and L commands
|
||
" Top of the screen = 30
|
||
" Folded lines = 9
|
||
" Bottom of the screen = 30 + h + 9 - 1
|
||
normal! 4L
|
||
call assert_equal(35 + h, line('.'))
|
||
normal! 4H
|
||
call assert_equal(33, line('.'))
|
||
|
||
" Test for using a large count value
|
||
%d
|
||
call setline(1, range(1, 4))
|
||
norm! 6H
|
||
call assert_equal(4, line('.'))
|
||
|
||
" Test for 'M' with folded lines
|
||
%d
|
||
call setline(1, range(1, 20))
|
||
1,5fold
|
||
norm! LM
|
||
call assert_equal(12, line('.'))
|
||
|
||
" Test for the CTRL-E and CTRL-Y commands with folds
|
||
%d
|
||
call setline(1, range(1, 10))
|
||
3,5fold
|
||
exe "normal 6G3\<C-E>"
|
||
call assert_equal(6, line('w0'))
|
||
exe "normal 2\<C-Y>"
|
||
call assert_equal(2, line('w0'))
|
||
|
||
" Test for CTRL-Y on a folded line
|
||
%d
|
||
call setline(1, range(1, 100))
|
||
exe (h + 2) .. "," .. (h + 4) .. "fold"
|
||
exe h + 5
|
||
normal z-
|
||
exe "normal \<C-Y>\<C-Y>"
|
||
call assert_equal(h + 1, line('w$'))
|
||
|
||
" Test for CTRL-Y from the first line and CTRL-E from the last line
|
||
%d
|
||
set scrolloff=2
|
||
call setline(1, range(1, 4))
|
||
exe "normal gg\<C-Y>"
|
||
call assert_equal(1, line('w0'))
|
||
call assert_equal(1, line('.'))
|
||
exe "normal G4\<C-E>\<C-E>"
|
||
call assert_equal(4, line('w$'))
|
||
call assert_equal(4, line('.'))
|
||
set scrolloff&
|
||
|
||
" Using <PageUp> and <PageDown> in an empty buffer should beep
|
||
%d
|
||
call assert_beeps('exe "normal \<PageUp>"')
|
||
call assert_beeps('exe "normal \<C-B>"')
|
||
call assert_beeps('exe "normal \<PageDown>"')
|
||
call assert_beeps('exe "normal \<C-F>"')
|
||
|
||
" Test for <C-U> and <C-D> with fold
|
||
%d
|
||
call setline(1, range(1, 100))
|
||
10,35fold
|
||
set scroll=10
|
||
exe "normal \<C-D>"
|
||
call assert_equal(36, line('.'))
|
||
exe "normal \<C-D>"
|
||
call assert_equal(46, line('.'))
|
||
exe "normal \<C-U>"
|
||
call assert_equal(36, line('.'))
|
||
exe "normal \<C-U>"
|
||
call assert_equal(10, line('.'))
|
||
exe "normal \<C-U>"
|
||
call assert_equal(1, line('.'))
|
||
set scroll&
|
||
|
||
" Test for scrolling to the top of the file with <C-U> and a fold
|
||
10
|
||
normal ztL
|
||
exe "normal \<C-U>\<C-U>"
|
||
call assert_equal(1, line('w0'))
|
||
|
||
" Test for CTRL-D on a folded line
|
||
%d
|
||
call setline(1, range(1, 100))
|
||
50,100fold
|
||
75
|
||
normal z-
|
||
exe "normal \<C-D>"
|
||
call assert_equal(50, line('.'))
|
||
call assert_equal(100, line('w$'))
|
||
normal z.
|
||
let lnum = winline()
|
||
exe "normal \<C-D>"
|
||
call assert_equal(lnum, winline())
|
||
call assert_equal(50, line('.'))
|
||
normal zt
|
||
exe "normal \<C-D>"
|
||
call assert_equal(50, line('w0'))
|
||
|
||
" Test for <S-CR>. Page down.
|
||
%d
|
||
call setline(1, range(1, 100))
|
||
call feedkeys("\<S-CR>", 'xt')
|
||
call assert_equal(14, line('w0'))
|
||
call assert_equal(28, line('w$'))
|
||
|
||
" Test for <S-->. Page up.
|
||
call feedkeys("\<S-->", 'xt')
|
||
call assert_equal(1, line('w0'))
|
||
call assert_equal(15, line('w$'))
|
||
|
||
set foldenable&
|
||
close!
|
||
endfunc
|
||
|
||
func Test_scroll_in_ex_mode()
|
||
" This was using invalid memory because w_botline was invalid.
|
||
let lines =<< trim END
|
||
diffsplit
|
||
norm os00(
|
||
call writefile(['done'], 'Xdone')
|
||
qa!
|
||
END
|
||
call writefile(lines, 'Xscript')
|
||
call assert_equal(1, RunVim([], [], '--clean -X -Z -e -s -S Xscript'))
|
||
call assert_equal(['done'], readfile('Xdone'))
|
||
|
||
call delete('Xscript')
|
||
call delete('Xdone')
|
||
endfunc
|
||
|
||
" Test for the 'sidescroll' option
|
||
func Test_sidescroll_opt()
|
||
new
|
||
20vnew
|
||
|
||
" scroll by 2 characters horizontally
|
||
set sidescroll=2 nowrap
|
||
call setline(1, repeat('a', 40))
|
||
normal g$l
|
||
call assert_equal(19, screenpos(0, 1, 21).col)
|
||
normal l
|
||
call assert_equal(20, screenpos(0, 1, 22).col)
|
||
normal g0h
|
||
call assert_equal(2, screenpos(0, 1, 2).col)
|
||
call assert_equal(20, screenpos(0, 1, 20).col)
|
||
|
||
" when 'sidescroll' is 0, cursor positioned at the center
|
||
set sidescroll=0
|
||
normal g$l
|
||
call assert_equal(11, screenpos(0, 1, 21).col)
|
||
normal g0h
|
||
call assert_equal(10, screenpos(0, 1, 10).col)
|
||
|
||
%bw!
|
||
set wrap& sidescroll&
|
||
endfunc
|
||
|
||
" basic tests for foldopen/folddelete
|
||
func Test_normal18_z_fold()
|
||
CheckFeature folding
|
||
call Setup_NewWindow()
|
||
50
|
||
setl foldenable fdm=marker foldlevel=5
|
||
|
||
call assert_beeps('normal! zj')
|
||
call assert_beeps('normal! zk')
|
||
|
||
" Test for zF
|
||
" First fold
|
||
norm! 4zF
|
||
" check that folds have been created
|
||
call assert_equal(['50/*{{{*/', '51', '52', '53/*}}}*/'], getline(50,53))
|
||
|
||
" Test for zd
|
||
51
|
||
norm! 2zF
|
||
call assert_equal(2, foldlevel('.'))
|
||
norm! kzd
|
||
call assert_equal(['50', '51/*{{{*/', '52/*}}}*/', '53'], getline(50,53))
|
||
norm! j
|
||
call assert_equal(1, foldlevel('.'))
|
||
|
||
" Test for zD
|
||
" also deletes partially selected folds recursively
|
||
51
|
||
norm! zF
|
||
call assert_equal(2, foldlevel('.'))
|
||
norm! kV2jzD
|
||
call assert_equal(['50', '51', '52', '53'], getline(50,53))
|
||
|
||
" Test for zE
|
||
85
|
||
norm! 4zF
|
||
86
|
||
norm! 2zF
|
||
90
|
||
norm! 4zF
|
||
call assert_equal(['85/*{{{*/', '86/*{{{*/', '87/*}}}*/', '88/*}}}*/', '89', '90/*{{{*/', '91', '92', '93/*}}}*/'], getline(85,93))
|
||
norm! zE
|
||
call assert_equal(['85', '86', '87', '88', '89', '90', '91', '92', '93'], getline(85,93))
|
||
|
||
" Test for zn
|
||
50
|
||
set foldlevel=0
|
||
norm! 2zF
|
||
norm! zn
|
||
norm! k
|
||
call assert_equal('49', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
call assert_equal(0, &foldenable)
|
||
|
||
" Test for zN
|
||
49
|
||
norm! zN
|
||
call assert_equal('49', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
call assert_equal(1, &foldenable)
|
||
|
||
" Test for zi
|
||
norm! zi
|
||
call assert_equal(0, &foldenable)
|
||
norm! zi
|
||
call assert_equal(1, &foldenable)
|
||
norm! zi
|
||
call assert_equal(0, &foldenable)
|
||
norm! zi
|
||
call assert_equal(1, &foldenable)
|
||
|
||
" Test for za
|
||
50
|
||
norm! za
|
||
norm! k
|
||
call assert_equal('49', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
50
|
||
norm! za
|
||
norm! k
|
||
call assert_equal('49', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
|
||
49
|
||
norm! 5zF
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
49
|
||
norm! za
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
set nofoldenable
|
||
" close fold and set foldenable
|
||
norm! za
|
||
call assert_equal(1, &foldenable)
|
||
|
||
50
|
||
" have to use {count}za to open all folds and make the cursor visible
|
||
norm! 2za
|
||
norm! 2k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
|
||
" Test for zA
|
||
49
|
||
set foldlevel=0
|
||
50
|
||
norm! zA
|
||
norm! 2k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
|
||
" zA on a opened fold when foldenable is not set
|
||
50
|
||
set nofoldenable
|
||
norm! zA
|
||
call assert_equal(1, &foldenable)
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zc
|
||
norm! zE
|
||
50
|
||
norm! 2zF
|
||
49
|
||
norm! 5zF
|
||
set nofoldenable
|
||
50
|
||
" There most likely is a bug somewhere:
|
||
" https://groups.google.com/d/msg/vim_dev/v2EkfJ_KQjI/u-Cvv94uCAAJ
|
||
" TODO: Should this only close the inner most fold or both folds?
|
||
norm! zc
|
||
call assert_equal(1, &foldenable)
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
set nofoldenable
|
||
50
|
||
norm! Vjzc
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zC
|
||
set nofoldenable
|
||
50
|
||
norm! zCk
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zx
|
||
" 1) close folds at line 49-54
|
||
set nofoldenable
|
||
48
|
||
norm! zx
|
||
call assert_equal(1, &foldenable)
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" 2) do not close fold under cursor
|
||
51
|
||
set nofoldenable
|
||
norm! zx
|
||
call assert_equal(1, &foldenable)
|
||
norm! 3k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
norm! j
|
||
call assert_equal('53', getline('.'))
|
||
norm! j
|
||
call assert_equal('54/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" 3) close one level of folds
|
||
48
|
||
set nofoldenable
|
||
set foldlevel=1
|
||
norm! zx
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
norm! j
|
||
call assert_equal('53', getline('.'))
|
||
norm! j
|
||
call assert_equal('54/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zX
|
||
" Close all folds
|
||
set foldlevel=0 nofoldenable
|
||
50
|
||
norm! zX
|
||
call assert_equal(1, &foldenable)
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zm
|
||
50
|
||
set nofoldenable foldlevel=2
|
||
norm! zm
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal(1, &foldlevel)
|
||
norm! zm
|
||
call assert_equal(0, &foldlevel)
|
||
norm! zm
|
||
call assert_equal(0, &foldlevel)
|
||
norm! k
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zm with a count
|
||
50
|
||
set foldlevel=2
|
||
norm! 3zm
|
||
call assert_equal(0, &foldlevel)
|
||
call assert_equal(49, foldclosed(line('.')))
|
||
|
||
" Test for zM
|
||
48
|
||
set nofoldenable foldlevel=99
|
||
norm! zM
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal(0, &foldlevel)
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('55', getline('.'))
|
||
|
||
" Test for zr
|
||
48
|
||
set nofoldenable foldlevel=0
|
||
norm! zr
|
||
call assert_equal(0, &foldenable)
|
||
call assert_equal(1, &foldlevel)
|
||
set foldlevel=0 foldenable
|
||
norm! zr
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal(1, &foldlevel)
|
||
norm! zr
|
||
call assert_equal(2, &foldlevel)
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
|
||
" Test for zR
|
||
48
|
||
set nofoldenable foldlevel=0
|
||
norm! zR
|
||
call assert_equal(0, &foldenable)
|
||
call assert_equal(2, &foldlevel)
|
||
set foldenable foldlevel=0
|
||
norm! zR
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal(2, &foldlevel)
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
call append(50, ['a /*{{{*/', 'b /*}}}*/'])
|
||
48
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('a /*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
48
|
||
norm! zR
|
||
call assert_equal(1, &foldenable)
|
||
call assert_equal(3, &foldlevel)
|
||
call assert_equal('48', getline('.'))
|
||
norm! j
|
||
call assert_equal('49/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('50/*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('a /*{{{*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('b /*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('51/*}}}*/', getline('.'))
|
||
norm! j
|
||
call assert_equal('52', getline('.'))
|
||
|
||
" clean up
|
||
setl nofoldenable fdm=marker foldlevel=0
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal20_exmode()
|
||
" Reading from redirected file doesn't work on MS-Windows
|
||
CheckNotMSWindows
|
||
call writefile(['1a', 'foo', 'bar', '.', 'w! Xfile2', 'q!'], 'Xscript')
|
||
call writefile(['1', '2'], 'Xfile')
|
||
call system(GetVimCommand() .. ' -e -s < Xscript Xfile')
|
||
let a=readfile('Xfile2')
|
||
call assert_equal(['1', 'foo', 'bar', '2'], a)
|
||
|
||
" clean up
|
||
for file in ['Xfile', 'Xfile2', 'Xscript']
|
||
call delete(file)
|
||
endfor
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal21_nv_hat()
|
||
|
||
" Edit a fresh file and wipe the buffer list so that there is no alternate
|
||
" file present. Next, check for the expected command failures.
|
||
edit Xfoo | %bw
|
||
call assert_fails(':buffer #', 'E86')
|
||
call assert_fails(':execute "normal! \<C-^>"', 'E23')
|
||
call assert_fails("normal i\<C-R>#", 'E23:')
|
||
|
||
" Test for the expected behavior when switching between two named buffers.
|
||
edit Xfoo | edit Xbar
|
||
call feedkeys("\<C-^>", 'tx')
|
||
call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
|
||
call feedkeys("\<C-^>", 'tx')
|
||
call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
|
||
|
||
" Test for the expected behavior when only one buffer is named.
|
||
enew | let l:nr = bufnr('%')
|
||
call feedkeys("\<C-^>", 'tx')
|
||
call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
|
||
call feedkeys("\<C-^>", 'tx')
|
||
call assert_equal('', bufname('%'))
|
||
call assert_equal(l:nr, bufnr('%'))
|
||
|
||
" Test that no action is taken by "<C-^>" when an operator is pending.
|
||
edit Xfoo
|
||
call feedkeys("ci\<C-^>", 'tx')
|
||
call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
|
||
|
||
%bw!
|
||
endfunc
|
||
|
||
func Test_normal22_zet()
|
||
" Test for ZZ
|
||
" let shell = &shell
|
||
" let &shell = 'sh'
|
||
|
||
" Remove any stale test files from previous run.
|
||
for file in ['Xfile_Test_normal22_zet']
|
||
call delete(file)
|
||
endfor
|
||
|
||
call writefile(['1', '2'], 'Xfile_Test_normal22_zet')
|
||
let args = ' -N -i NONE --noplugins -X --headless'
|
||
call system(GetVimCommand() .. args .. ' -c "%d" -c ":norm! ZZ" Xfile_Test_normal22_zet')
|
||
let a = readfile('Xfile_Test_normal22_zet')
|
||
call assert_equal([], a)
|
||
" Test for ZQ
|
||
call writefile(['1', '2'], 'Xfile_Test_normal22_zet')
|
||
call system(GetVimCommand() . args . ' -c "%d" -c ":norm! ZQ" Xfile_Test_normal22_zet')
|
||
let a = readfile('Xfile_Test_normal22_zet')
|
||
call assert_equal(['1', '2'], a)
|
||
|
||
" Unsupported Z command
|
||
call assert_beeps('normal! ZW')
|
||
|
||
" Nvim: This sometimes hangs the TSAN build.
|
||
" for file in ['Xfile_Test_normal22_zet']
|
||
" call delete(file)
|
||
" endfor
|
||
" let &shell = shell
|
||
endfunc
|
||
|
||
func Test_normal23_K()
|
||
" Test for K command
|
||
new
|
||
call append(0, ['helphelp.txt', 'man', 'aa%bb', 'cc|dd'])
|
||
let k = &keywordprg
|
||
set keywordprg=:help
|
||
1
|
||
norm! VK
|
||
call assert_equal('helphelp.txt', fnamemodify(bufname('%'), ':t'))
|
||
call assert_equal('help', &ft)
|
||
call assert_match('\*helphelp.txt\*', getline('.'))
|
||
helpclose
|
||
norm! 0K
|
||
call assert_equal('helphelp.txt', fnamemodify(bufname('%'), ':t'))
|
||
call assert_equal('help', &ft)
|
||
call assert_match('Help on help files', getline('.'))
|
||
helpclose
|
||
|
||
set keywordprg=:new
|
||
set iskeyword+=%
|
||
set iskeyword+=\|
|
||
2
|
||
norm! K
|
||
call assert_equal('man', fnamemodify(bufname('%'), ':t'))
|
||
bwipe!
|
||
3
|
||
norm! K
|
||
call assert_equal('aa%bb', fnamemodify(bufname('%'), ':t'))
|
||
bwipe!
|
||
if !has('win32')
|
||
4
|
||
norm! K
|
||
call assert_equal('cc|dd', fnamemodify(bufname('%'), ':t'))
|
||
bwipe!
|
||
endif
|
||
set iskeyword-=%
|
||
set iskeyword-=\|
|
||
|
||
" Currently doesn't work in Nvim, see #19436
|
||
" Test for specifying a count to K
|
||
" 1
|
||
" com! -nargs=* Kprog let g:Kprog_Args = <q-args>
|
||
" set keywordprg=:Kprog
|
||
" norm! 3K
|
||
" call assert_equal('3 version8', g:Kprog_Args)
|
||
" delcom Kprog
|
||
|
||
" Only expect "man" to work on Unix
|
||
if !has("unix") || has('nvim') " Nvim K uses :terminal. #15398
|
||
let &keywordprg = k
|
||
bw!
|
||
return
|
||
endif
|
||
|
||
let not_gnu_man = has('mac') || has('bsd')
|
||
if not_gnu_man
|
||
" In MacOS and BSD, the option for specifying a pager is different
|
||
set keywordprg=man\ -P\ cat
|
||
else
|
||
set keywordprg=man\ --pager=cat
|
||
endif
|
||
" Test for using man
|
||
2
|
||
let a = execute('unsilent norm! K')
|
||
if not_gnu_man
|
||
call assert_match("man -P cat 'man'", a)
|
||
else
|
||
call assert_match("man --pager=cat 'man'", a)
|
||
endif
|
||
|
||
" Error cases
|
||
call setline(1, '#$#')
|
||
call assert_fails('normal! ggK', 'E349:')
|
||
call setline(1, '---')
|
||
call assert_fails('normal! ggv2lK', 'E349:')
|
||
call setline(1, ['abc', 'xyz'])
|
||
call assert_fails("normal! gg2lv2h\<C-]>", 'E433:')
|
||
call assert_beeps("normal! ggVjK")
|
||
|
||
" clean up
|
||
let &keywordprg = k
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal24_rot13()
|
||
" Testing for g?? g?g?
|
||
new
|
||
call append(0, 'abcdefghijklmnopqrstuvwxyzäüö')
|
||
1
|
||
norm! g??
|
||
call assert_equal('nopqrstuvwxyzabcdefghijklmäüö', getline('.'))
|
||
norm! g?g?
|
||
call assert_equal('abcdefghijklmnopqrstuvwxyzäüö', getline('.'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal25_tag()
|
||
" Testing for CTRL-] g CTRL-] g]
|
||
" CTRL-W g] CTRL-W CTRL-] CTRL-W g CTRL-]
|
||
h
|
||
" Test for CTRL-]
|
||
call search('\<x\>$')
|
||
exe "norm! \<c-]>"
|
||
call assert_equal("change.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*x*", @0)
|
||
exe ":norm \<c-o>"
|
||
|
||
" Test for g_CTRL-]
|
||
call search('\<v_u\>$')
|
||
exe "norm! g\<c-]>"
|
||
call assert_equal("change.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*v_u*", @0)
|
||
exe ":norm \<c-o>"
|
||
|
||
" Test for g]
|
||
call search('\<i_<Esc>$')
|
||
let a = execute(":norm! g]")
|
||
call assert_match('i_<Esc>.*insert.txt', a)
|
||
|
||
if !empty(exepath('cscope')) && has('cscope')
|
||
" setting cscopetag changes how g] works
|
||
set cst
|
||
exe "norm! g]"
|
||
call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*i_<Esc>*", @0)
|
||
exe ":norm \<c-o>"
|
||
" Test for CTRL-W g]
|
||
exe "norm! \<C-W>g]"
|
||
call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*i_<Esc>*", @0)
|
||
call assert_equal(3, winnr('$'))
|
||
helpclose
|
||
set nocst
|
||
endif
|
||
|
||
" Test for CTRL-W g]
|
||
let a = execute("norm! \<C-W>g]")
|
||
call assert_match('i_<Esc>.*insert.txt', a)
|
||
|
||
" Test for CTRL-W CTRL-]
|
||
exe "norm! \<C-W>\<C-]>"
|
||
call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*i_<Esc>*", @0)
|
||
call assert_equal(3, winnr('$'))
|
||
helpclose
|
||
|
||
" Test for CTRL-W g CTRL-]
|
||
exe "norm! \<C-W>g\<C-]>"
|
||
call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
|
||
norm! yiW
|
||
call assert_equal("*i_<Esc>*", @0)
|
||
call assert_equal(3, winnr('$'))
|
||
helpclose
|
||
|
||
" clean up
|
||
helpclose
|
||
endfunc
|
||
|
||
func Test_normal26_put()
|
||
" Test for ]p ]P [p and [P
|
||
new
|
||
call append(0, ['while read LINE', 'do', ' ((count++))', ' if [ $? -ne 0 ]; then', " echo 'Error writing file'", ' fi', 'done'])
|
||
1
|
||
/Error/y a
|
||
2
|
||
norm! "a]pj"a[p
|
||
call assert_equal(['do', "echo 'Error writing file'", " echo 'Error writing file'", ' ((count++))'], getline(2,5))
|
||
1
|
||
/^\s\{4}/
|
||
exe "norm! \"a]P3Eldt'"
|
||
exe "norm! j\"a[P2Eldt'"
|
||
call assert_equal([' if [ $? -ne 0 ]; then', " echo 'Error writing'", " echo 'Error'", " echo 'Error writing file'", ' fi'], getline(6,10))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal27_bracket()
|
||
" Test for [' [` ]' ]`
|
||
call Setup_NewWindow()
|
||
1,21s/.\+/ & b/
|
||
1
|
||
norm! $ma
|
||
5
|
||
norm! $mb
|
||
10
|
||
norm! $mc
|
||
15
|
||
norm! $md
|
||
20
|
||
norm! $me
|
||
|
||
" Test for ['
|
||
9
|
||
norm! 2['
|
||
call assert_equal(' 1 b', getline('.'))
|
||
call assert_equal(1, line('.'))
|
||
call assert_equal(3, col('.'))
|
||
|
||
" Test for ]'
|
||
norm! ]'
|
||
call assert_equal(' 5 b', getline('.'))
|
||
call assert_equal(5, line('.'))
|
||
call assert_equal(3, col('.'))
|
||
|
||
" No mark before line 1, cursor moves to first non-blank on current line
|
||
1
|
||
norm! 5|['
|
||
call assert_equal(' 1 b', getline('.'))
|
||
call assert_equal(1, line('.'))
|
||
call assert_equal(3, col('.'))
|
||
|
||
" No mark after line 21, cursor moves to first non-blank on current line
|
||
21
|
||
norm! 5|]'
|
||
call assert_equal(' 21 b', getline('.'))
|
||
call assert_equal(21, line('.'))
|
||
call assert_equal(3, col('.'))
|
||
|
||
" Test for [`
|
||
norm! 2[`
|
||
call assert_equal(' 15 b', getline('.'))
|
||
call assert_equal(15, line('.'))
|
||
call assert_equal(8, col('.'))
|
||
|
||
" Test for ]`
|
||
norm! ]`
|
||
call assert_equal(' 20 b', getline('.'))
|
||
call assert_equal(20, line('.'))
|
||
call assert_equal(8, col('.'))
|
||
|
||
" No mark before line 1, cursor does not move
|
||
1
|
||
norm! 5|[`
|
||
call assert_equal(' 1 b', getline('.'))
|
||
call assert_equal(1, line('.'))
|
||
call assert_equal(5, col('.'))
|
||
|
||
" No mark after line 21, cursor does not move
|
||
21
|
||
norm! 5|]`
|
||
call assert_equal(' 21 b', getline('.'))
|
||
call assert_equal(21, line('.'))
|
||
call assert_equal(5, col('.'))
|
||
|
||
" Count too large for [`
|
||
" cursor moves to first lowercase mark
|
||
norm! 99[`
|
||
call assert_equal(' 1 b', getline('.'))
|
||
call assert_equal(1, line('.'))
|
||
call assert_equal(7, col('.'))
|
||
|
||
" Count too large for ]`
|
||
" cursor moves to last lowercase mark
|
||
norm! 99]`
|
||
call assert_equal(' 20 b', getline('.'))
|
||
call assert_equal(20, line('.'))
|
||
call assert_equal(8, col('.'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for ( and ) sentence movements
|
||
func Test_normal28_parenthesis()
|
||
new
|
||
call append(0, ['This is a test. With some sentences!', '', 'Even with a question? And one more. And no sentence here'])
|
||
|
||
$
|
||
norm! d(
|
||
call assert_equal(['This is a test. With some sentences!', '', 'Even with a question? And one more. ', ''], getline(1, '$'))
|
||
norm! 2d(
|
||
call assert_equal(['This is a test. With some sentences!', '', ' ', ''], getline(1, '$'))
|
||
1
|
||
norm! 0d)
|
||
call assert_equal(['With some sentences!', '', ' ', ''], getline(1, '$'))
|
||
|
||
call append('$', ['This is a long sentence', '', 'spanning', 'over several lines. '])
|
||
$
|
||
norm! $d(
|
||
call assert_equal(['With some sentences!', '', ' ', '', 'This is a long sentence', ''], getline(1, '$'))
|
||
|
||
" Move to the next sentence from a paragraph macro
|
||
%d
|
||
call setline(1, ['.LP', 'blue sky!. blue sky.', 'blue sky. blue sky.'])
|
||
call cursor(1, 1)
|
||
normal )
|
||
call assert_equal([2, 1], [line('.'), col('.')])
|
||
normal )
|
||
call assert_equal([2, 12], [line('.'), col('.')])
|
||
normal ((
|
||
call assert_equal([1, 1], [line('.'), col('.')])
|
||
|
||
" It is an error if a next sentence is not found
|
||
%d
|
||
call setline(1, '.SH')
|
||
call assert_beeps('normal )')
|
||
|
||
" If only dot is present, don't treat that as a sentence
|
||
call setline(1, '. This is a sentence.')
|
||
normal $((
|
||
call assert_equal(3, col('.'))
|
||
|
||
" Jumping to a fold should open the fold
|
||
call setline(1, ['', '', 'one', 'two', 'three'])
|
||
set foldenable
|
||
2,$fold
|
||
call feedkeys(')', 'xt')
|
||
call assert_equal(3, line('.'))
|
||
call assert_equal(1, foldlevel('.'))
|
||
call assert_equal(-1, foldclosed('.'))
|
||
set foldenable&
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for { and } paragraph movements
|
||
func Test_normal29_brace()
|
||
let text =<< trim [DATA]
|
||
A paragraph begins after each empty line, and also at each of a set of
|
||
paragraph macros, specified by the pairs of characters in the 'paragraphs'
|
||
option. The default is "IPLPPPQPP TPHPLIPpLpItpplpipbp", which corresponds to
|
||
the macros ".IP", ".LP", etc. (These are nroff macros, so the dot must be in
|
||
the first column). A section boundary is also a paragraph boundary.
|
||
Note that a blank line (only containing white space) is NOT a paragraph
|
||
boundary.
|
||
|
||
|
||
Also note that this does not include a '{' or '}' in the first column. When
|
||
the '{' flag is in 'cpoptions' then '{' in the first column is used as a
|
||
paragraph boundary |posix|.
|
||
{
|
||
This is no paragraph
|
||
unless the '{' is set
|
||
in 'cpoptions'
|
||
}
|
||
.IP
|
||
The nroff macros IP separates a paragraph
|
||
That means, it must be a '.'
|
||
followed by IP
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
.NH
|
||
End of text here
|
||
[DATA]
|
||
|
||
new
|
||
call append(0, text)
|
||
1
|
||
norm! 0d2}
|
||
|
||
let expected =<< trim [DATA]
|
||
.IP
|
||
The nroff macros IP separates a paragraph
|
||
That means, it must be a '.'
|
||
followed by IP
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
.NH
|
||
End of text here
|
||
|
||
[DATA]
|
||
call assert_equal(expected, getline(1, '$'))
|
||
|
||
norm! 0d}
|
||
|
||
let expected =<< trim [DATA]
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
.NH
|
||
End of text here
|
||
|
||
[DATA]
|
||
call assert_equal(expected, getline(1, '$'))
|
||
|
||
$
|
||
norm! d{
|
||
|
||
let expected =<< trim [DATA]
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
|
||
[DATA]
|
||
call assert_equal(expected, getline(1, '$'))
|
||
|
||
norm! d{
|
||
|
||
let expected =<< trim [DATA]
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
|
||
[DATA]
|
||
call assert_equal(expected, getline(1, '$'))
|
||
|
||
" Test with { in cpooptions
|
||
%d
|
||
call append(0, text)
|
||
" Nvim: no "{" flag in 'cpoptions'.
|
||
" set cpo+={
|
||
" 1
|
||
" norm! 0d2}
|
||
|
||
let expected =<< trim [DATA]
|
||
{
|
||
This is no paragraph
|
||
unless the '{' is set
|
||
in 'cpoptions'
|
||
}
|
||
.IP
|
||
The nroff macros IP separates a paragraph
|
||
That means, it must be a '.'
|
||
followed by IP
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
.NH
|
||
End of text here
|
||
|
||
[DATA]
|
||
" call assert_equal(expected, getline(1, '$'))
|
||
|
||
" $
|
||
" norm! d}
|
||
|
||
let expected =<< trim [DATA]
|
||
{
|
||
This is no paragraph
|
||
unless the '{' is set
|
||
in 'cpoptions'
|
||
}
|
||
.IP
|
||
The nroff macros IP separates a paragraph
|
||
That means, it must be a '.'
|
||
followed by IP
|
||
.LPIt does not matter, if afterwards some
|
||
more characters follow.
|
||
.SHAlso section boundaries from the nroff
|
||
macros terminate a paragraph. That means
|
||
a character like this:
|
||
.NH
|
||
End of text here
|
||
|
||
[DATA]
|
||
" call assert_equal(expected, getline(1, '$'))
|
||
|
||
" norm! gg}
|
||
" norm! d5}
|
||
|
||
let expected =<< trim [DATA]
|
||
{
|
||
This is no paragraph
|
||
unless the '{' is set
|
||
in 'cpoptions'
|
||
}
|
||
|
||
[DATA]
|
||
" call assert_equal(expected, getline(1, '$'))
|
||
|
||
" Jumping to a fold should open the fold
|
||
" %d
|
||
" call setline(1, ['', 'one', 'two', ''])
|
||
" set foldenable
|
||
" 2,$fold
|
||
" call feedkeys('}', 'xt')
|
||
" call assert_equal(4, line('.'))
|
||
" call assert_equal(1, foldlevel('.'))
|
||
" call assert_equal(-1, foldclosed('.'))
|
||
" set foldenable&
|
||
|
||
" clean up
|
||
set cpo-={
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for section movements
|
||
func Test_normal_section()
|
||
new
|
||
let lines =<< trim [END]
|
||
int foo()
|
||
{
|
||
if (1)
|
||
{
|
||
a = 1;
|
||
}
|
||
}
|
||
[END]
|
||
call setline(1, lines)
|
||
|
||
" jumping to a folded line using [[ should open the fold
|
||
2,3fold
|
||
call cursor(5, 1)
|
||
call feedkeys("[[", 'xt')
|
||
call assert_equal(2, line('.'))
|
||
call assert_equal(-1, foldclosedend(line('.')))
|
||
|
||
close!
|
||
endfunc
|
||
|
||
" Test for changing case using u, U, gu, gU and ~ (tilde) commands
|
||
func Test_normal30_changecase()
|
||
new
|
||
call append(0, 'This is a simple test: äüöß')
|
||
norm! 1ggVu
|
||
call assert_equal('this is a simple test: äüöß', getline('.'))
|
||
norm! VU
|
||
call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
|
||
norm! guu
|
||
call assert_equal('this is a simple test: äüöss', getline('.'))
|
||
norm! gUgU
|
||
call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
|
||
norm! gugu
|
||
call assert_equal('this is a simple test: äüöss', getline('.'))
|
||
norm! gUU
|
||
call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
|
||
norm! 010~
|
||
call assert_equal('this is a SIMPLE TEST: ÄÜÖSS', getline('.'))
|
||
norm! V~
|
||
call assert_equal('THIS IS A simple test: äüöss', getline('.'))
|
||
call assert_beeps('norm! c~')
|
||
%d
|
||
call assert_beeps('norm! ~')
|
||
|
||
" Test for changing case across lines using 'whichwrap'
|
||
call setline(1, ['aaaaaa', 'aaaaaa'])
|
||
normal! gg10~
|
||
call assert_equal(['AAAAAA', 'aaaaaa'], getline(1, 2))
|
||
set whichwrap+=~
|
||
normal! gg10~
|
||
call assert_equal(['aaaaaa', 'AAAAaa'], getline(1, 2))
|
||
set whichwrap&
|
||
|
||
" try changing the case with a double byte encoding (DBCS)
|
||
%bw!
|
||
let enc = &enc
|
||
" set encoding=cp932
|
||
call setline(1, "\u8470")
|
||
normal ~
|
||
normal gU$gu$gUgUg~g~gugu
|
||
call assert_equal("\u8470", getline(1))
|
||
let &encoding = enc
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Turkish ASCII turns to multi-byte. On some systems Turkish locale
|
||
" is available but toupper()/tolower() don't do the right thing.
|
||
func Test_normal_changecase_turkish()
|
||
new
|
||
try
|
||
lang tr_TR.UTF-8
|
||
set casemap=
|
||
let iupper = toupper('i')
|
||
if iupper == "\u0130"
|
||
call setline(1, 'iI')
|
||
1normal gUU
|
||
call assert_equal("\u0130I", getline(1))
|
||
call assert_equal("\u0130I", toupper("iI"))
|
||
|
||
call setline(1, 'iI')
|
||
1normal guu
|
||
call assert_equal("i\u0131", getline(1))
|
||
call assert_equal("i\u0131", tolower("iI"))
|
||
elseif iupper == "I"
|
||
call setline(1, 'iI')
|
||
1normal gUU
|
||
call assert_equal("II", getline(1))
|
||
call assert_equal("II", toupper("iI"))
|
||
|
||
call setline(1, 'iI')
|
||
1normal guu
|
||
call assert_equal("ii", getline(1))
|
||
call assert_equal("ii", tolower("iI"))
|
||
else
|
||
call assert_true(false, "expected toupper('i') to be either 'I' or '\u0131'")
|
||
endif
|
||
set casemap&
|
||
call setline(1, 'iI')
|
||
1normal gUU
|
||
call assert_equal("II", getline(1))
|
||
call assert_equal("II", toupper("iI"))
|
||
|
||
call setline(1, 'iI')
|
||
1normal guu
|
||
call assert_equal("ii", getline(1))
|
||
call assert_equal("ii", tolower("iI"))
|
||
|
||
lang en_US.UTF-8
|
||
catch /E197:/
|
||
" can't use Turkish locale
|
||
throw 'Skipped: Turkish locale not available'
|
||
endtry
|
||
close!
|
||
endfunc
|
||
|
||
" Test for r (replace) command
|
||
func Test_normal31_r_cmd()
|
||
new
|
||
call append(0, 'This is a simple test: abcd')
|
||
exe "norm! 1gg$r\<cr>"
|
||
call assert_equal(['This is a simple test: abc', '', ''], getline(1,'$'))
|
||
exe "norm! 1gg2wlr\<cr>"
|
||
call assert_equal(['This is a', 'simple test: abc', '', ''], getline(1,'$'))
|
||
exe "norm! 2gg0W5r\<cr>"
|
||
call assert_equal(['This is a', 'simple ', ' abc', '', ''], getline('1', '$'))
|
||
set autoindent
|
||
call setline(2, ['simple test: abc', ''])
|
||
exe "norm! 2gg0W5r\<cr>"
|
||
call assert_equal(['This is a', 'simple ', 'abc', '', '', ''], getline('1', '$'))
|
||
exe "norm! 1ggVr\<cr>"
|
||
call assert_equal('^M^M^M^M^M^M^M^M^M', strtrans(getline(1)))
|
||
call setline(1, 'This is a')
|
||
exe "norm! 1gg05rf"
|
||
call assert_equal('fffffis a', getline(1))
|
||
|
||
" When replacing characters, copy characters from above and below lines
|
||
" using CTRL-Y and CTRL-E.
|
||
" Different code paths are used for utf-8 and latin1 encodings
|
||
set showmatch
|
||
" for enc in ['latin1', 'utf-8']
|
||
for enc in ['utf-8']
|
||
enew!
|
||
let &encoding = enc
|
||
call setline(1, [' {a}', 'xxxxxxxxxx', ' [b]'])
|
||
exe "norm! 2gg5r\<C-Y>l5r\<C-E>"
|
||
call assert_equal(' {a}x [b]x', getline(2))
|
||
endfor
|
||
set showmatch&
|
||
|
||
" r command should fail in operator pending mode
|
||
call assert_beeps('normal! cr')
|
||
|
||
" replace a tab character in visual mode
|
||
%d
|
||
call setline(1, ["a\tb", "c\td", "e\tf"])
|
||
normal gglvjjrx
|
||
call assert_equal(['axx', 'xxx', 'xxf'], getline(1, '$'))
|
||
|
||
" replace with a multibyte character (with multiple composing characters)
|
||
%d
|
||
new
|
||
call setline(1, 'aaa')
|
||
exe "normal $ra\u0328\u0301"
|
||
call assert_equal("aaa\u0328\u0301", getline(1))
|
||
|
||
" clean up
|
||
set noautoindent
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for g*, g#
|
||
func Test_normal32_g_cmd1()
|
||
new
|
||
call append(0, ['abc.x_foo', 'x_foobar.abc'])
|
||
1
|
||
norm! $g*
|
||
call assert_equal('x_foo', @/)
|
||
call assert_equal('x_foobar.abc', getline('.'))
|
||
norm! $g#
|
||
call assert_equal('abc', @/)
|
||
call assert_equal('abc.x_foo', getline('.'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for g`, g;, g,, g&, gv, gk, gj, gJ, g0, g^, g_, gm, g$, gM, g CTRL-G,
|
||
" gi and gI commands
|
||
func Test_normal33_g_cmd2()
|
||
CheckFeature jumplist
|
||
call Setup_NewWindow()
|
||
" Test for g`
|
||
clearjumps
|
||
norm! ma10j
|
||
let a=execute(':jumps')
|
||
" empty jumplist
|
||
call assert_equal('>', a[-1:])
|
||
norm! g`a
|
||
call assert_equal('>', a[-1:])
|
||
call assert_equal(1, line('.'))
|
||
call assert_equal('1', getline('.'))
|
||
call cursor(10, 1)
|
||
norm! g'a
|
||
call assert_equal('>', a[-1:])
|
||
call assert_equal(1, line('.'))
|
||
let v:errmsg = ''
|
||
call assert_nobeep("normal! g`\<Esc>")
|
||
call assert_equal('', v:errmsg)
|
||
call assert_nobeep("normal! g'\<Esc>")
|
||
call assert_equal('', v:errmsg)
|
||
|
||
" Test for g; and g,
|
||
norm! g;
|
||
" there is only one change in the changelist
|
||
" currently, when we setup the window
|
||
call assert_equal(2, line('.'))
|
||
call assert_fails(':norm! g;', 'E662')
|
||
call assert_fails(':norm! g,', 'E663')
|
||
let &ul = &ul
|
||
call append('$', ['a', 'b', 'c', 'd'])
|
||
let &ul = &ul
|
||
call append('$', ['Z', 'Y', 'X', 'W'])
|
||
let a = execute(':changes')
|
||
call assert_match('2\s\+0\s\+2', a)
|
||
call assert_match('101\s\+0\s\+a', a)
|
||
call assert_match('105\s\+0\s\+Z', a)
|
||
norm! 3g;
|
||
call assert_equal(2, line('.'))
|
||
norm! 2g,
|
||
call assert_equal(105, line('.'))
|
||
|
||
" Test for g& - global substitute
|
||
%d
|
||
call setline(1, range(1,10))
|
||
call append('$', ['a', 'b', 'c', 'd'])
|
||
$s/\w/&&/g
|
||
exe "norm! /[1-8]\<cr>"
|
||
norm! g&
|
||
call assert_equal(['11', '22', '33', '44', '55', '66', '77', '88', '9', '110', 'a', 'b', 'c', 'dd'], getline(1, '$'))
|
||
|
||
" Jumping to a fold using gg should open the fold
|
||
set foldenable
|
||
set foldopen+=jump
|
||
5,8fold
|
||
call feedkeys('6gg', 'xt')
|
||
call assert_equal(1, foldlevel('.'))
|
||
call assert_equal(-1, foldclosed('.'))
|
||
set foldopen-=jump
|
||
set foldenable&
|
||
|
||
" Test for gv
|
||
%d
|
||
call append('$', repeat(['abcdefgh'], 8))
|
||
exe "norm! 2gg02l\<c-v>2j2ly"
|
||
call assert_equal(['cde', 'cde', 'cde'], getreg(0, 1, 1))
|
||
" in visual mode, gv swaps current and last selected region
|
||
exe "norm! G0\<c-v>4k4lgvd"
|
||
call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh'], getline(1,'$'))
|
||
exe "norm! G0\<c-v>4k4ly"
|
||
exe "norm! gvood"
|
||
call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'fgh', 'fgh', 'fgh', 'fgh', 'fgh'], getline(1,'$'))
|
||
" gv cannot be used in operator pending mode
|
||
call assert_beeps('normal! cgv')
|
||
" gv should beep without a previously selected visual area
|
||
new
|
||
call assert_beeps('normal! gv')
|
||
close
|
||
|
||
" Test for gk/gj
|
||
%d
|
||
15vsp
|
||
set wrap listchars= sbr=
|
||
let lineA = 'abcdefghijklmnopqrstuvwxyz'
|
||
let lineB = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
||
let lineC = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'
|
||
$put =lineA
|
||
$put =lineB
|
||
|
||
norm! 3gg0dgk
|
||
call assert_equal(['', 'abcdefghijklmno', '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'], getline(1, '$'))
|
||
set nu
|
||
norm! 3gg0gjdgj
|
||
call assert_equal(['', 'abcdefghijklmno', '0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
|
||
|
||
" Test for gJ
|
||
norm! 2gggJ
|
||
call assert_equal(['', 'abcdefghijklmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
|
||
call assert_equal(16, col('.'))
|
||
" shouldn't do anything
|
||
norm! 10gJ
|
||
call assert_equal(1, col('.'))
|
||
|
||
" Test for g0 g^ gm g$
|
||
exe "norm! 2gg0gji "
|
||
call assert_equal(['', 'abcdefghijk lmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
|
||
norm! g0yl
|
||
call assert_equal(12, col('.'))
|
||
call assert_equal(' ', getreg(0))
|
||
norm! g$yl
|
||
call assert_equal(22, col('.'))
|
||
call assert_equal('3', getreg(0))
|
||
norm! gmyl
|
||
call assert_equal(17, col('.'))
|
||
call assert_equal('n', getreg(0))
|
||
norm! g^yl
|
||
call assert_equal(15, col('.'))
|
||
call assert_equal('l', getreg(0))
|
||
call assert_beeps('normal 5g$')
|
||
|
||
" Test for g$ with double-width character half displayed
|
||
vsplit
|
||
9wincmd |
|
||
setlocal nowrap nonumber
|
||
call setline(2, 'asdfasdfヨ')
|
||
2
|
||
normal 0g$
|
||
call assert_equal(8, col('.'))
|
||
10wincmd |
|
||
normal 0g$
|
||
call assert_equal(9, col('.'))
|
||
|
||
setlocal signcolumn=yes
|
||
11wincmd |
|
||
normal 0g$
|
||
call assert_equal(8, col('.'))
|
||
12wincmd |
|
||
normal 0g$
|
||
call assert_equal(9, col('.'))
|
||
|
||
close
|
||
|
||
" Test for g_
|
||
call assert_beeps('normal! 100g_')
|
||
call setline(2, [' foo ', ' foobar '])
|
||
normal! 2ggg_
|
||
call assert_equal(5, col('.'))
|
||
normal! 2g_
|
||
call assert_equal(8, col('.'))
|
||
|
||
norm! 2ggdG
|
||
$put =lineC
|
||
|
||
" Test for gM
|
||
norm! gMyl
|
||
call assert_equal(73, col('.'))
|
||
call assert_equal('0', getreg(0))
|
||
" Test for 20gM
|
||
norm! 20gMyl
|
||
call assert_equal(29, col('.'))
|
||
call assert_equal('S', getreg(0))
|
||
" Test for 60gM
|
||
norm! 60gMyl
|
||
call assert_equal(87, col('.'))
|
||
call assert_equal('E', getreg(0))
|
||
|
||
" Test for gM with Tab characters
|
||
call setline('.', "\ta\tb\tc\td\te\tf")
|
||
norm! gMyl
|
||
call assert_equal(6, col('.'))
|
||
call assert_equal("c", getreg(0))
|
||
|
||
" Test for g Ctrl-G
|
||
call setline('.', lineC)
|
||
norm! 60gMyl
|
||
set ff=unix
|
||
let a=execute(":norm! g\<c-g>")
|
||
call assert_match('Col 87 of 144; Line 2 of 2; Word 1 of 1; Byte 88 of 146', a)
|
||
|
||
" Test for gI
|
||
norm! gIfoo
|
||
call assert_equal(['', 'foo0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'], getline(1,'$'))
|
||
|
||
" Test for gi
|
||
wincmd c
|
||
%d
|
||
set tw=0
|
||
call setline(1, ['foobar', 'new line'])
|
||
norm! A next word
|
||
$put ='third line'
|
||
norm! gi another word
|
||
call assert_equal(['foobar next word another word', 'new line', 'third line'], getline(1,'$'))
|
||
call setline(1, 'foobar')
|
||
normal! Ggifirst line
|
||
call assert_equal('foobarfirst line', getline(1))
|
||
" Test gi in 'virtualedit' mode with cursor after the end of the line
|
||
set virtualedit=all
|
||
call setline(1, 'foo')
|
||
exe "normal! Abar\<Right>\<Right>\<Right>\<Right>"
|
||
call setline(1, 'foo')
|
||
normal! Ggifirst line
|
||
call assert_equal('foo first line', getline(1))
|
||
set virtualedit&
|
||
|
||
" Test for aboring a g command using CTRL-\ CTRL-G
|
||
exe "normal! g\<C-\>\<C-G>"
|
||
call assert_equal('foo first line', getline('.'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal_ex_substitute()
|
||
" This was hanging on the substitute prompt.
|
||
new
|
||
call setline(1, 'a')
|
||
exe "normal! gggQs/a/b/c\<CR>"
|
||
call assert_equal('a', getline(1))
|
||
bwipe!
|
||
endfunc
|
||
|
||
" Test for g CTRL-G
|
||
func Test_g_ctrl_g()
|
||
new
|
||
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\n--No lines in buffer--", a)
|
||
|
||
" Test for CTRL-G (same as :file)
|
||
let a = execute(":norm! \<c-g>")
|
||
call assert_equal("\n\n\"[No Name]\" --No lines in buffer--", a)
|
||
|
||
call setline(1, ['first line', 'second line'])
|
||
|
||
" Test g CTRL-g with dos, mac and unix file type.
|
||
norm! gojll
|
||
set ff=dos
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 15 of 25", a)
|
||
|
||
set ff=mac
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 14 of 23", a)
|
||
|
||
set ff=unix
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 14 of 23", a)
|
||
|
||
" Test g CTRL-g in visual mode (v)
|
||
let a = execute(":norm! gojllvlg\<c-g>")
|
||
call assert_equal("\nSelected 1 of 2 Lines; 1 of 4 Words; 2 of 23 Bytes", a)
|
||
|
||
" Test g CTRL-g in visual mode (CTRL-V) with end col > start col
|
||
let a = execute(":norm! \<Esc>gojll\<C-V>kllg\<c-g>")
|
||
call assert_equal("\nSelected 3 Cols; 2 of 2 Lines; 2 of 4 Words; 6 of 23 Bytes", a)
|
||
|
||
" Test g_CTRL-g in visual mode (CTRL-V) with end col < start col
|
||
let a = execute(":norm! \<Esc>goll\<C-V>jhhg\<c-g>")
|
||
call assert_equal("\nSelected 3 Cols; 2 of 2 Lines; 2 of 4 Words; 6 of 23 Bytes", a)
|
||
|
||
" Test g CTRL-g in visual mode (CTRL-V) with end_vcol being MAXCOL
|
||
let a = execute(":norm! \<Esc>gojll\<C-V>k$g\<c-g>")
|
||
call assert_equal("\nSelected 2 of 2 Lines; 4 of 4 Words; 17 of 23 Bytes", a)
|
||
|
||
" There should be one byte less with noeol
|
||
set bin noeol
|
||
let a = execute(":norm! \<Esc>gog\<c-g>")
|
||
call assert_equal("\nCol 1 of 10; Line 1 of 2; Word 1 of 4; Char 1 of 23; Byte 1 of 22", a)
|
||
set bin & eol&
|
||
|
||
call setline(1, ['Français', '日本語'])
|
||
|
||
let a = execute(":norm! \<Esc>gojlg\<c-g>")
|
||
call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20", a)
|
||
|
||
let a = execute(":norm! \<Esc>gojvlg\<c-g>")
|
||
call assert_equal("\nSelected 1 of 2 Lines; 1 of 2 Words; 2 of 13 Chars; 6 of 20 Bytes", a)
|
||
|
||
let a = execute(":norm! \<Esc>goll\<c-v>jlg\<c-g>")
|
||
call assert_equal("\nSelected 4 Cols; 2 of 2 Lines; 2 of 2 Words; 6 of 13 Chars; 11 of 20 Bytes", a)
|
||
|
||
set fenc=utf8 bomb
|
||
let a = execute(":norm! \<Esc>gojlg\<c-g>")
|
||
call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+3 for BOM)", a)
|
||
|
||
set fenc=utf16 bomb
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+2 for BOM)", a)
|
||
|
||
set fenc=utf32 bomb
|
||
let a = execute(":norm! g\<c-g>")
|
||
call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+4 for BOM)", a)
|
||
|
||
set fenc& bomb&
|
||
|
||
set ff&
|
||
bwipe!
|
||
endfunc
|
||
|
||
" Test for g8
|
||
func Test_normal34_g_cmd3()
|
||
new
|
||
let a=execute(':norm! 1G0g8')
|
||
call assert_equal("\nNUL", a)
|
||
|
||
call setline(1, 'abcdefghijklmnopqrstuvwxyzäüö')
|
||
let a=execute(':norm! 1G$g8')
|
||
call assert_equal("\nc3 b6 ", a)
|
||
|
||
call setline(1, "a\u0302")
|
||
let a=execute(':norm! 1G0g8')
|
||
call assert_equal("\n61 + cc 82 ", a)
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test 8g8 which finds invalid utf8 at or after the cursor.
|
||
func Test_normal_8g8()
|
||
new
|
||
|
||
" With invalid byte.
|
||
call setline(1, "___\xff___")
|
||
norm! 1G08g8g
|
||
call assert_equal([0, 1, 4, 0, 1], getcurpos())
|
||
|
||
" With invalid byte before the cursor.
|
||
call setline(1, "___\xff___")
|
||
norm! 1G$h8g8g
|
||
call assert_equal([0, 1, 6, 0, 9], getcurpos())
|
||
|
||
" With truncated sequence.
|
||
call setline(1, "___\xE2\x82___")
|
||
norm! 1G08g8g
|
||
call assert_equal([0, 1, 4, 0, 1], getcurpos())
|
||
|
||
" With overlong sequence.
|
||
call setline(1, "___\xF0\x82\x82\xAC___")
|
||
norm! 1G08g8g
|
||
call assert_equal([0, 1, 4, 0, 1], getcurpos())
|
||
|
||
" With valid utf8.
|
||
call setline(1, "café")
|
||
norm! 1G08g8
|
||
call assert_equal([0, 1, 1, 0, 1], getcurpos())
|
||
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for g<
|
||
func Test_normal35_g_cmd4()
|
||
" Cannot capture its output,
|
||
" probably a bug, therefore, test disabled:
|
||
throw "Skipped: output of g< can't be tested currently"
|
||
echo "a\nb\nc\nd"
|
||
let b=execute(':norm! g<')
|
||
call assert_true(!empty(b), 'failed `execute(g<)`')
|
||
endfunc
|
||
|
||
" Test for gp gP go
|
||
func Test_normal36_g_cmd5()
|
||
new
|
||
call append(0, 'abcdefghijklmnopqrstuvwxyz')
|
||
set ff=unix
|
||
" Test for gp gP
|
||
call append(1, range(1,10))
|
||
1
|
||
norm! 1yy
|
||
3
|
||
norm! gp
|
||
call assert_equal([0, 5, 1, 0, 1], getcurpos())
|
||
$
|
||
norm! gP
|
||
call assert_equal([0, 14, 1, 0, 1], getcurpos())
|
||
|
||
" Test for go
|
||
norm! 26go
|
||
call assert_equal([0, 1, 26, 0, 26], getcurpos())
|
||
norm! 27go
|
||
call assert_equal([0, 1, 26, 0, 26], getcurpos())
|
||
norm! 28go
|
||
call assert_equal([0, 2, 1, 0, 1], getcurpos())
|
||
set ff=dos
|
||
norm! 29go
|
||
call assert_equal([0, 2, 1, 0, 1], getcurpos())
|
||
set ff=unix
|
||
norm! gg0
|
||
norm! 101go
|
||
call assert_equal([0, 13, 26, 0, 26], getcurpos())
|
||
norm! 103go
|
||
call assert_equal([0, 14, 1, 0, 1], getcurpos())
|
||
" count > buffer content
|
||
norm! 120go
|
||
call assert_equal([0, 14, 1, 0, v:maxcol], getcurpos())
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for gt and gT
|
||
func Test_normal37_g_cmd6()
|
||
tabnew 1.txt
|
||
tabnew 2.txt
|
||
tabnew 3.txt
|
||
norm! 1gt
|
||
call assert_equal(1, tabpagenr())
|
||
norm! 3gt
|
||
call assert_equal(3, tabpagenr())
|
||
norm! 1gT
|
||
" count gT goes not to the absolute tabpagenumber
|
||
" but, but goes to the count previous tabpagenumber
|
||
call assert_equal(2, tabpagenr())
|
||
" wrap around
|
||
norm! 3gT
|
||
call assert_equal(3, tabpagenr())
|
||
" gt does not wrap around
|
||
norm! 5gt
|
||
call assert_equal(3, tabpagenr())
|
||
|
||
for i in range(3)
|
||
tabclose
|
||
endfor
|
||
" clean up
|
||
call assert_fails(':tabclose', 'E784:')
|
||
endfunc
|
||
|
||
" Test for <Home> and <C-Home> key
|
||
func Test_normal38_nvhome()
|
||
new
|
||
call setline(1, range(10))
|
||
$
|
||
setl et sw=2
|
||
norm! V10>$
|
||
" count is ignored
|
||
exe "norm! 10\<home>"
|
||
call assert_equal(1, col('.'))
|
||
exe "norm! \<home>"
|
||
call assert_equal([0, 10, 1, 0, 1], getcurpos())
|
||
exe "norm! 5\<c-home>"
|
||
call assert_equal([0, 5, 1, 0, 1], getcurpos())
|
||
exe "norm! \<c-home>"
|
||
call assert_equal([0, 1, 1, 0, 1], getcurpos())
|
||
exe "norm! G\<c-kHome>"
|
||
call assert_equal([0, 1, 1, 0, 1], getcurpos())
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for <End> and <C-End> keys
|
||
func Test_normal_nvend()
|
||
new
|
||
call setline(1, map(range(1, 10), '"line" .. v:val'))
|
||
exe "normal! \<End>"
|
||
call assert_equal(5, col('.'))
|
||
exe "normal! 4\<End>"
|
||
call assert_equal([4, 5], [line('.'), col('.')])
|
||
exe "normal! \<C-End>"
|
||
call assert_equal([10, 6], [line('.'), col('.')])
|
||
close!
|
||
endfunc
|
||
|
||
" Test for cw cW ce
|
||
func Test_normal39_cw()
|
||
" Test for cw and cW on whitespace
|
||
new
|
||
set tw=0
|
||
call append(0, 'here are some words')
|
||
norm! 1gg0elcwZZZ
|
||
call assert_equal('hereZZZare some words', getline('.'))
|
||
norm! 1gg0elcWYYY
|
||
call assert_equal('hereZZZareYYYsome words', getline('.'))
|
||
norm! 2gg0cwfoo
|
||
call assert_equal('foo', getline('.'))
|
||
|
||
call setline(1, 'one; two')
|
||
call cursor(1, 1)
|
||
call feedkeys('cwvim', 'xt')
|
||
call assert_equal('vim; two', getline(1))
|
||
call feedkeys('0cWone', 'xt')
|
||
call assert_equal('one two', getline(1))
|
||
"When cursor is at the end of a word 'ce' will change until the end of the
|
||
"next word, but 'cw' will change only one character
|
||
call setline(1, 'one two')
|
||
call feedkeys('0ecwce', 'xt')
|
||
call assert_equal('once two', getline(1))
|
||
call setline(1, 'one two')
|
||
call feedkeys('0ecely', 'xt')
|
||
call assert_equal('only', getline(1))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for CTRL-\ commands
|
||
func Test_normal40_ctrl_bsl()
|
||
new
|
||
call append(0, 'here are some words')
|
||
exe "norm! 1gg0a\<C-\>\<C-N>"
|
||
call assert_equal('n', mode())
|
||
call assert_equal(1, col('.'))
|
||
call assert_equal('', visualmode())
|
||
exe "norm! 1gg0viw\<C-\>\<C-N>"
|
||
call assert_equal('n', mode())
|
||
call assert_equal(4, col('.'))
|
||
exe "norm! 1gg0a\<C-\>\<C-G>"
|
||
call assert_equal('n', mode())
|
||
call assert_equal(1, col('.'))
|
||
"imap <buffer> , <c-\><c-n>
|
||
" set im
|
||
exe ":norm! \<c-\>\<c-n>dw"
|
||
" set noim
|
||
call assert_equal('are some words', getline(1))
|
||
call assert_false(&insertmode)
|
||
call assert_beeps("normal! \<C-\>\<C-A>")
|
||
|
||
" Using CTRL-\ CTRL-N in cmd window should close the window
|
||
call feedkeys("q:\<C-\>\<C-N>", 'xt')
|
||
call assert_equal('', getcmdwintype())
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for <c-r>=, <c-r><c-r>= and <c-r><c-o>= in insert mode
|
||
func Test_normal41_insert_reg()
|
||
new
|
||
set sts=2 sw=2 ts=8 tw=0
|
||
call append(0, ["aaa\tbbb\tccc", '', '', ''])
|
||
let a=getline(1)
|
||
norm! 2gg0
|
||
exe "norm! a\<c-r>=a\<cr>"
|
||
norm! 3gg0
|
||
exe "norm! a\<c-r>\<c-r>=a\<cr>"
|
||
norm! 4gg0
|
||
exe "norm! a\<c-r>\<c-o>=a\<cr>"
|
||
call assert_equal(['aaa bbb ccc', 'aaa bbb ccc', 'aaa bbb ccc', 'aaa bbb ccc', ''], getline(1, '$'))
|
||
|
||
" clean up
|
||
set sts=0 sw=8 ts=8
|
||
bw!
|
||
endfunc
|
||
|
||
" Test for Ctrl-D and Ctrl-U
|
||
func Test_normal42_halfpage()
|
||
call Setup_NewWindow()
|
||
call assert_equal(5, &scroll)
|
||
exe "norm! \<c-d>"
|
||
call assert_equal('6', getline('.'))
|
||
exe "norm! 2\<c-d>"
|
||
call assert_equal('8', getline('.'))
|
||
call assert_equal(2, &scroll)
|
||
set scroll=5
|
||
exe "norm! \<c-u>"
|
||
call assert_equal('3', getline('.'))
|
||
1
|
||
set scrolloff=5
|
||
exe "norm! \<c-d>"
|
||
call assert_equal('10', getline('.'))
|
||
exe "norm! \<c-u>"
|
||
call assert_equal('5', getline('.'))
|
||
1
|
||
set scrolloff=99
|
||
exe "norm! \<c-d>"
|
||
call assert_equal('10', getline('.'))
|
||
set scrolloff=0
|
||
100
|
||
exe "norm! $\<c-u>"
|
||
call assert_equal('95', getline('.'))
|
||
call assert_equal([0, 95, 1, 0, 1], getcurpos())
|
||
100
|
||
set nostartofline
|
||
exe "norm! $\<c-u>"
|
||
call assert_equal('95', getline('.'))
|
||
call assert_equal([0, 95, 2, 0, v:maxcol], getcurpos())
|
||
" cleanup
|
||
set startofline
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal45_drop()
|
||
if !has('dnd')
|
||
" The ~ register does not exist
|
||
call assert_beeps('norm! "~')
|
||
return
|
||
endif
|
||
|
||
" basic test for drag-n-drop
|
||
" unfortunately, without a gui, we can't really test much here,
|
||
" so simply test that ~p fails (which uses the drop register)
|
||
new
|
||
call assert_fails(':norm! "~p', 'E353')
|
||
call assert_equal([], getreg('~', 1, 1))
|
||
" the ~ register is read only
|
||
call assert_fails(':let @~="1"', 'E354')
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal46_ignore()
|
||
new
|
||
" How to test this?
|
||
" let's just for now test, that the buffer
|
||
" does not change
|
||
call feedkeys("\<c-s>", 't')
|
||
call assert_equal([''], getline(1,'$'))
|
||
|
||
" no valid commands
|
||
exe "norm! \<char-0x100>"
|
||
call assert_equal([''], getline(1,'$'))
|
||
|
||
exe "norm! ä"
|
||
call assert_equal([''], getline(1,'$'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal47_visual_buf_wipe()
|
||
" This was causing a crash or ml_get error.
|
||
enew!
|
||
call setline(1,'xxx')
|
||
normal $
|
||
new
|
||
call setline(1, range(1,2))
|
||
2
|
||
exe "norm \<C-V>$"
|
||
bw!
|
||
norm yp
|
||
set nomodified
|
||
endfunc
|
||
|
||
func Test_normal48_wincmd()
|
||
new
|
||
exe "norm! \<c-w>c"
|
||
call assert_equal(1, winnr('$'))
|
||
call assert_fails(":norm! \<c-w>c", "E444")
|
||
endfunc
|
||
|
||
func Test_normal49_counts()
|
||
new
|
||
call setline(1, 'one two three four five six seven eight nine ten')
|
||
1
|
||
norm! 3d2w
|
||
call assert_equal('seven eight nine ten', getline(1))
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal50_commandline()
|
||
CheckFeature timers
|
||
CheckFeature cmdline_hist
|
||
func! DoTimerWork(id)
|
||
call assert_equal('[Command Line]', bufname(''))
|
||
" should fail, with E11, but does fail with E23?
|
||
"call feedkeys("\<c-^>", 'tm')
|
||
|
||
" should also fail with E11
|
||
call assert_fails(":wincmd p", 'E11')
|
||
" return from commandline window
|
||
call feedkeys("\<cr>")
|
||
endfunc
|
||
|
||
let oldlang=v:lang
|
||
lang C
|
||
set updatetime=20
|
||
call timer_start(100, 'DoTimerWork')
|
||
try
|
||
" throws E23, for whatever reason...
|
||
call feedkeys('q:', 'x!')
|
||
catch /E23/
|
||
" no-op
|
||
endtry
|
||
" clean up
|
||
set updatetime=4000
|
||
exe "lang" oldlang
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal51_FileChangedRO()
|
||
CheckFeature autocmd
|
||
call writefile(['foo'], 'Xreadonly.log')
|
||
new Xreadonly.log
|
||
setl ro
|
||
au FileChangedRO <buffer> :call feedkeys("\<c-^>", 'tix')
|
||
call assert_fails(":norm! Af", 'E788')
|
||
call assert_equal(['foo'], getline(1,'$'))
|
||
call assert_equal('Xreadonly.log', bufname(''))
|
||
|
||
" cleanup
|
||
bw!
|
||
call delete("Xreadonly.log")
|
||
endfunc
|
||
|
||
func Test_normal52_rl()
|
||
CheckFeature rightleft
|
||
new
|
||
call setline(1, 'abcde fghij klmnopq')
|
||
norm! 1gg$
|
||
set rl
|
||
call assert_equal(19, col('.'))
|
||
call feedkeys('l', 'tx')
|
||
call assert_equal(18, col('.'))
|
||
call feedkeys('h', 'tx')
|
||
call assert_equal(19, col('.'))
|
||
call feedkeys("\<right>", 'tx')
|
||
call assert_equal(18, col('.'))
|
||
call feedkeys("\<left>", 'tx')
|
||
call assert_equal(19, col('.'))
|
||
call feedkeys("\<s-right>", 'tx')
|
||
call assert_equal(13, col('.'))
|
||
call feedkeys("\<c-right>", 'tx')
|
||
call assert_equal(7, col('.'))
|
||
call feedkeys("\<c-left>", 'tx')
|
||
call assert_equal(13, col('.'))
|
||
call feedkeys("\<s-left>", 'tx')
|
||
call assert_equal(19, col('.'))
|
||
call feedkeys("<<", 'tx')
|
||
call assert_equal(' abcde fghij klmnopq',getline(1))
|
||
call feedkeys(">>", 'tx')
|
||
call assert_equal('abcde fghij klmnopq',getline(1))
|
||
|
||
" cleanup
|
||
set norl
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal54_Ctrl_bsl()
|
||
new
|
||
call setline(1, 'abcdefghijklmn')
|
||
exe "norm! df\<c-\>\<c-n>"
|
||
call assert_equal(['abcdefghijklmn'], getline(1,'$'))
|
||
exe "norm! df\<c-\>\<c-g>"
|
||
call assert_equal(['abcdefghijklmn'], getline(1,'$'))
|
||
exe "norm! df\<c-\>m"
|
||
call assert_equal(['abcdefghijklmn'], getline(1,'$'))
|
||
|
||
call setline(2, 'abcdefghijklmnāf')
|
||
norm! 2gg0
|
||
exe "norm! df\<Char-0x101>"
|
||
call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$'))
|
||
norm! 1gg0
|
||
exe "norm! df\<esc>"
|
||
call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$'))
|
||
|
||
" clean up
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal_large_count()
|
||
" This may fail with 32bit long, how do we detect that?
|
||
new
|
||
normal o
|
||
normal 6666666666dL
|
||
bwipe!
|
||
endfunc
|
||
|
||
func Test_delete_until_paragraph()
|
||
new
|
||
normal grádv}
|
||
call assert_equal('á', getline(1))
|
||
normal grád}
|
||
call assert_equal('', getline(1))
|
||
bwipe!
|
||
endfunc
|
||
|
||
" Test for the gr (virtual replace) command
|
||
func Test_gr_command()
|
||
enew!
|
||
" Test for the bug fixed by 7.4.387
|
||
let save_cpo = &cpo
|
||
call append(0, ['First line', 'Second line', 'Third line'])
|
||
exe "normal i\<C-G>u"
|
||
call cursor(2, 1)
|
||
set cpo-=X
|
||
normal 4gro
|
||
call assert_equal('oooond line', getline(2))
|
||
undo
|
||
set cpo+=X
|
||
normal 4gro
|
||
call assert_equal('ooooecond line', getline(2))
|
||
let &cpo = save_cpo
|
||
|
||
normal! ggvegrx
|
||
call assert_equal('xxxxx line', getline(1))
|
||
exe "normal! gggr\<C-V>122"
|
||
call assert_equal('zxxxx line', getline(1))
|
||
|
||
set virtualedit=all
|
||
normal! 15|grl
|
||
call assert_equal('zxxxx line l', getline(1))
|
||
set virtualedit&
|
||
set nomodifiable
|
||
call assert_fails('normal! grx', 'E21:')
|
||
call assert_fails('normal! gRx', 'E21:')
|
||
call assert_nobeep("normal! gr\<Esc>")
|
||
set modifiable&
|
||
|
||
call assert_nobeep("normal! gr\<Esc>")
|
||
call assert_nobeep("normal! cgr\<Esc>")
|
||
call assert_beeps("normal! cgrx")
|
||
|
||
call assert_equal('zxxxx line l', getline(1))
|
||
exe "normal! 2|gr\<C-V>\<Esc>"
|
||
call assert_equal("z\<Esc>xx line l", getline(1))
|
||
|
||
call setline(1, 'abcdef')
|
||
exe "normal! 0gr\<C-O>lx"
|
||
call assert_equal("\<C-O>def", getline(1))
|
||
|
||
call setline(1, 'abcdef')
|
||
exe "normal! 0gr\<C-G>lx"
|
||
call assert_equal("\<C-G>def", getline(1))
|
||
|
||
bwipe!
|
||
endfunc
|
||
|
||
func Test_nv_hat_count()
|
||
%bwipeout!
|
||
let l:nr = bufnr('%') + 1
|
||
call assert_fails(':execute "normal! ' . l:nr . '\<C-^>"', 'E92:')
|
||
|
||
edit Xfoo
|
||
let l:foo_nr = bufnr('Xfoo')
|
||
|
||
edit Xbar
|
||
let l:bar_nr = bufnr('Xbar')
|
||
|
||
" Make sure we are not just using the alternate file.
|
||
edit Xbaz
|
||
|
||
call feedkeys(l:foo_nr . "\<C-^>", 'tx')
|
||
call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
|
||
|
||
call feedkeys(l:bar_nr . "\<C-^>", 'tx')
|
||
call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
|
||
|
||
%bwipeout!
|
||
endfunc
|
||
|
||
func Test_message_when_using_ctrl_c()
|
||
" Make sure no buffers are changed.
|
||
%bwipe!
|
||
|
||
exe "normal \<C-C>"
|
||
call assert_match("Type :qa and press <Enter> to exit Nvim", Screenline(&lines))
|
||
|
||
new
|
||
cal setline(1, 'hi!')
|
||
exe "normal \<C-C>"
|
||
call assert_match("Type :qa! and press <Enter> to abandon all changes and exit Nvim", Screenline(&lines))
|
||
|
||
bwipe!
|
||
endfunc
|
||
|
||
func Test_mode_updated_after_ctrl_c()
|
||
CheckScreendump
|
||
|
||
let buf = RunVimInTerminal('', {'rows': 5})
|
||
call term_sendkeys(buf, "i")
|
||
call term_sendkeys(buf, "\<C-O>")
|
||
" wait a moment so that the "-- (insert) --" message is displayed
|
||
call TermWait(buf, 50)
|
||
call term_sendkeys(buf, "\<C-C>")
|
||
call VerifyScreenDump(buf, 'Test_mode_updated_1', {})
|
||
|
||
call StopVimInTerminal(buf)
|
||
endfunc
|
||
|
||
" Test for '[m', ']m', '[M' and ']M'
|
||
" Jumping to beginning and end of methods in Java-like languages
|
||
func Test_java_motion()
|
||
new
|
||
call assert_beeps('normal! [m')
|
||
call assert_beeps('normal! ]m')
|
||
call assert_beeps('normal! [M')
|
||
call assert_beeps('normal! ]M')
|
||
let lines =<< trim [CODE]
|
||
Piece of Java
|
||
{
|
||
tt m1 {
|
||
t1;
|
||
} e1
|
||
|
||
tt m2 {
|
||
t2;
|
||
} e2
|
||
|
||
tt m3 {
|
||
if (x)
|
||
{
|
||
t3;
|
||
}
|
||
} e3
|
||
}
|
||
[CODE]
|
||
call setline(1, lines)
|
||
|
||
normal gg
|
||
|
||
normal 2]maA
|
||
call assert_equal("\ttt m1 {A", getline('.'))
|
||
call assert_equal([3, 9, 16], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal j]maB
|
||
call assert_equal("\ttt m2 {B", getline('.'))
|
||
call assert_equal([7, 9, 16], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal ]maC
|
||
call assert_equal("\ttt m3 {C", getline('.'))
|
||
call assert_equal([11, 9, 16], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal [maD
|
||
call assert_equal("\ttt m3 {DC", getline('.'))
|
||
call assert_equal([11, 9, 16], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal k2[maE
|
||
call assert_equal("\ttt m1 {EA", getline('.'))
|
||
call assert_equal([3, 9, 16], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal 3[maF
|
||
call assert_equal("{F", getline('.'))
|
||
call assert_equal([2, 2, 2], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal ]MaG
|
||
call assert_equal("\t}G e1", getline('.'))
|
||
call assert_equal([5, 3, 10], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal j2]MaH
|
||
call assert_equal("\t}H e3", getline('.'))
|
||
call assert_equal([16, 3, 10], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal ]M]M
|
||
normal aI
|
||
call assert_equal("}I", getline('.'))
|
||
call assert_equal([17, 2, 2], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal 2[MaJ
|
||
call assert_equal("\t}JH e3", getline('.'))
|
||
call assert_equal([16, 3, 10], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal k[MaK
|
||
call assert_equal("\t}K e2", getline('.'))
|
||
call assert_equal([9, 3, 10], [line('.'), col('.'), virtcol('.')])
|
||
|
||
normal 3[MaL
|
||
call assert_equal("{LF", getline('.'))
|
||
call assert_equal([2, 2, 2], [line('.'), col('.'), virtcol('.')])
|
||
|
||
call cursor(2, 1)
|
||
call assert_beeps('norm! 5]m')
|
||
|
||
" jumping to a method in a fold should open the fold
|
||
6,10fold
|
||
call feedkeys("gg3]m", 'xt')
|
||
call assert_equal([7, 8, 15], [line('.'), col('.'), virtcol('.')])
|
||
call assert_equal(-1, foldclosedend(7))
|
||
|
||
close!
|
||
endfunc
|
||
|
||
" Tests for g cmds
|
||
func Test_normal_gdollar_cmd()
|
||
CheckFeature jumplist
|
||
call Setup_NewWindow()
|
||
" Make long lines that will wrap
|
||
%s/$/\=repeat(' foobar', 10)/
|
||
20vsp
|
||
set wrap
|
||
" Test for g$ with count
|
||
norm! gg
|
||
norm! 0vg$y
|
||
call assert_equal(20, col("'>"))
|
||
call assert_equal('1 foobar foobar foob', getreg(0))
|
||
norm! gg
|
||
norm! 0v4g$y
|
||
call assert_equal(72, col("'>"))
|
||
call assert_equal('1 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.."\n", getreg(0))
|
||
norm! gg
|
||
norm! 0v6g$y
|
||
call assert_equal(40, col("'>"))
|
||
call assert_equal('1 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '2 foobar foobar foobar foobar foobar foo', getreg(0))
|
||
set nowrap
|
||
" clean up
|
||
norm! gg
|
||
norm! 0vg$y
|
||
call assert_equal(20, col("'>"))
|
||
call assert_equal('1 foobar foobar foob', getreg(0))
|
||
norm! gg
|
||
norm! 0v4g$y
|
||
call assert_equal(20, col("'>"))
|
||
call assert_equal('1 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '2 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '3 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '4 foobar foobar foob', getreg(0))
|
||
norm! gg
|
||
norm! 0v6g$y
|
||
call assert_equal(20, col("'>"))
|
||
call assert_equal('1 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '2 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '3 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '4 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '5 foobar foobar foobar foobar foobar foobar foobar foobar foobar foobar'.. "\n"..
|
||
\ '6 foobar foobar foob', getreg(0))
|
||
" Move to last line, also down movement is not possible, should still move
|
||
" the cursor to the last visible char
|
||
norm! G
|
||
norm! 0v6g$y
|
||
call assert_equal(20, col("'>"))
|
||
call assert_equal('100 foobar foobar fo', getreg(0))
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal_gk_gj()
|
||
" needs 80 column new window
|
||
new
|
||
vert 80new
|
||
call assert_beeps('normal gk')
|
||
put =[repeat('x',90)..' {{{1', 'x {{{1']
|
||
norm! gk
|
||
" In a 80 column wide terminal the window will be only 78 char
|
||
" (because Vim will leave space for the other window),
|
||
" but if the terminal is larger, it will be 80 chars, so verify the
|
||
" cursor column correctly.
|
||
call assert_equal(winwidth(0)+1, col('.'))
|
||
call assert_equal(winwidth(0)+1, virtcol('.'))
|
||
norm! j
|
||
call assert_equal(6, col('.'))
|
||
call assert_equal(6, virtcol('.'))
|
||
norm! gk
|
||
call assert_equal(95, col('.'))
|
||
call assert_equal(95, virtcol('.'))
|
||
%bw!
|
||
|
||
" needs 80 column new window
|
||
new
|
||
vert 80new
|
||
call assert_beeps('normal gj')
|
||
set number
|
||
set numberwidth=10
|
||
set cpoptions+=n
|
||
put =[repeat('0',90), repeat('1',90)]
|
||
norm! 075l
|
||
call assert_equal(76, col('.'))
|
||
norm! gk
|
||
call assert_equal(1, col('.'))
|
||
norm! gk
|
||
call assert_equal(76, col('.'))
|
||
norm! gk
|
||
call assert_equal(1, col('.'))
|
||
norm! gj
|
||
call assert_equal(76, col('.'))
|
||
norm! gj
|
||
call assert_equal(1, col('.'))
|
||
norm! gj
|
||
call assert_equal(76, col('.'))
|
||
" When 'nowrap' is set, gk and gj behave like k and j
|
||
set nowrap
|
||
normal! gk
|
||
call assert_equal([2, 76], [line('.'), col('.')])
|
||
normal! gj
|
||
call assert_equal([3, 76], [line('.'), col('.')])
|
||
%bw!
|
||
set cpoptions& number& numberwidth& wrap&
|
||
endfunc
|
||
|
||
" Test for using : to run a multi-line Ex command in operator pending mode
|
||
func Test_normal_yank_with_excmd()
|
||
new
|
||
call setline(1, ['foo', 'bar', 'baz'])
|
||
let @a = ''
|
||
call feedkeys("\"ay:if v:true\<CR>normal l\<CR>endif\<CR>", 'xt')
|
||
call assert_equal('f', @a)
|
||
close!
|
||
endfunc
|
||
|
||
" Test for supplying a count to a normal-mode command across a cursorhold call
|
||
func Test_normal_cursorhold_with_count()
|
||
throw 'Skipped: Nvim removed <CursorHold> key'
|
||
func s:cHold()
|
||
let g:cHold_Called += 1
|
||
endfunc
|
||
new
|
||
augroup normalcHoldTest
|
||
au!
|
||
au CursorHold <buffer> call s:cHold()
|
||
augroup END
|
||
let g:cHold_Called = 0
|
||
call feedkeys("3\<CursorHold>2ix", 'xt')
|
||
call assert_equal(1, g:cHold_Called)
|
||
call assert_equal(repeat('x', 32), getline(1))
|
||
augroup normalcHoldTest
|
||
au!
|
||
augroup END
|
||
au! normalcHoldTest
|
||
close!
|
||
delfunc s:cHold
|
||
endfunc
|
||
|
||
" Test for using a count and a command with CTRL-W
|
||
func Test_wincmd_with_count()
|
||
call feedkeys("\<C-W>12n", 'xt')
|
||
call assert_equal(12, winheight(0))
|
||
endfunc
|
||
|
||
" Test for 'b', 'B' 'ge' and 'gE' commands
|
||
func Test_horiz_motion()
|
||
new
|
||
normal! gg
|
||
call assert_beeps('normal! b')
|
||
call assert_beeps('normal! B')
|
||
call assert_beeps('normal! gE')
|
||
call assert_beeps('normal! ge')
|
||
" <S-Backspace> moves one word left and <C-Backspace> moves one WORD left
|
||
call setline(1, 'one ,two ,three')
|
||
exe "normal! $\<S-BS>"
|
||
call assert_equal(11, col('.'))
|
||
exe "normal! $\<C-BS>"
|
||
call assert_equal(10, col('.'))
|
||
close!
|
||
endfunc
|
||
|
||
" Test for using a : command in operator pending mode
|
||
func Test_normal_colon_op()
|
||
new
|
||
call setline(1, ['one', 'two'])
|
||
call assert_beeps("normal! Gc:d\<CR>")
|
||
close!
|
||
endfunc
|
||
|
||
" Test for d and D commands
|
||
func Test_normal_delete_cmd()
|
||
new
|
||
" D in an empty line
|
||
call setline(1, '')
|
||
normal D
|
||
call assert_equal('', getline(1))
|
||
" D in an empty line in virtualedit mode
|
||
set virtualedit=all
|
||
normal D
|
||
call assert_equal('', getline(1))
|
||
set virtualedit&
|
||
" delete to a readonly register
|
||
call setline(1, ['abcd'])
|
||
call assert_beeps('normal ":d2l')
|
||
|
||
" D and d with 'nomodifiable'
|
||
call setline(1, ['abcd'])
|
||
setlocal nomodifiable
|
||
call assert_fails('normal D', 'E21:')
|
||
call assert_fails('normal d$', 'E21:')
|
||
|
||
close!
|
||
endfunc
|
||
|
||
" Test for deleting or changing characters across lines with 'whichwrap'
|
||
" containing 's'. Should count <EOL> as one character.
|
||
func Test_normal_op_across_lines()
|
||
new
|
||
set whichwrap&
|
||
call setline(1, ['one two', 'three four'])
|
||
exe "norm! $3d\<Space>"
|
||
call assert_equal(['one twhree four'], getline(1, '$'))
|
||
|
||
call setline(1, ['one two', 'three four'])
|
||
exe "norm! $3c\<Space>x"
|
||
call assert_equal(['one twxhree four'], getline(1, '$'))
|
||
|
||
set whichwrap+=l
|
||
call setline(1, ['one two', 'three four'])
|
||
exe "norm! $3x"
|
||
call assert_equal(['one twhree four'], getline(1, '$'))
|
||
close!
|
||
set whichwrap&
|
||
endfunc
|
||
|
||
" Test for 'w' and 'b' commands
|
||
func Test_normal_word_move()
|
||
new
|
||
call setline(1, ['foo bar a', '', 'foo bar b'])
|
||
" copy a single character word at the end of a line
|
||
normal 1G$yw
|
||
call assert_equal('a', @")
|
||
" copy a single character word at the end of a file
|
||
normal G$yw
|
||
call assert_equal('b', @")
|
||
" check for a word movement handling an empty line properly
|
||
normal 1G$vwy
|
||
call assert_equal("a\n\n", @")
|
||
|
||
" copy using 'b' command
|
||
%d
|
||
" non-empty blank line at the start of file
|
||
call setline(1, [' ', 'foo bar'])
|
||
normal 2Gyb
|
||
call assert_equal(" \n", @")
|
||
" try to copy backwards from the start of the file
|
||
call setline(1, ['one two', 'foo bar'])
|
||
call assert_beeps('normal ggyb')
|
||
" 'b' command should stop at an empty line
|
||
call setline(1, ['one two', '', 'foo bar'])
|
||
normal 3Gyb
|
||
call assert_equal("\n", @")
|
||
normal 3Gy2b
|
||
call assert_equal("two\n", @")
|
||
" 'b' command should not stop at a non-empty blank line
|
||
call setline(1, ['one two', ' ', 'foo bar'])
|
||
normal 3Gyb
|
||
call assert_equal("two\n ", @")
|
||
|
||
close!
|
||
endfunc
|
||
|
||
" Test for 'scrolloff' with a long line that doesn't fit in the screen
|
||
func Test_normal_scroloff()
|
||
10new
|
||
80vnew
|
||
call setline(1, repeat('a', 1000))
|
||
set scrolloff=10
|
||
normal gg10gj
|
||
call assert_equal(8, winline())
|
||
normal 10gj
|
||
call assert_equal(10, winline())
|
||
normal 10gk
|
||
call assert_equal(3, winline())
|
||
set scrolloff&
|
||
close!
|
||
endfunc
|
||
|
||
" Test for vertical scrolling with CTRL-F and CTRL-B with a long line
|
||
func Test_normal_vert_scroll_longline()
|
||
10new
|
||
80vnew
|
||
call setline(1, range(1, 10))
|
||
call append(5, repeat('a', 1000))
|
||
exe "normal gg\<C-F>"
|
||
call assert_equal(6, line('.'))
|
||
exe "normal \<C-F>\<C-F>"
|
||
call assert_equal(11, line('.'))
|
||
call assert_equal(1, winline())
|
||
exe "normal \<C-B>"
|
||
call assert_equal(10, line('.'))
|
||
call assert_equal(3, winline())
|
||
exe "normal \<C-B>\<C-B>"
|
||
call assert_equal(5, line('.'))
|
||
call assert_equal(5, winline())
|
||
close!
|
||
endfunc
|
||
|
||
" Test for jumping in a file using %
|
||
func Test_normal_percent_jump()
|
||
new
|
||
call setline(1, range(1, 100))
|
||
|
||
" jumping to a folded line should open the fold
|
||
25,75fold
|
||
call feedkeys('50%', 'xt')
|
||
call assert_equal(50, line('.'))
|
||
call assert_equal(-1, foldclosedend(50))
|
||
close!
|
||
endfunc
|
||
|
||
" Test for << and >> commands to shift text by 'shiftwidth'
|
||
func Test_normal_shift_rightleft()
|
||
new
|
||
call setline(1, ['one', '', "\t", ' two', "\tthree", ' four'])
|
||
set shiftwidth=2 tabstop=8
|
||
normal gg6>>
|
||
call assert_equal([' one', '', "\t ", ' two', "\t three", "\tfour"],
|
||
\ getline(1, '$'))
|
||
normal ggVG2>>
|
||
call assert_equal([' one', '', "\t ", "\ttwo",
|
||
\ "\t three", "\t four"], getline(1, '$'))
|
||
normal gg6<<
|
||
call assert_equal([' one', '', "\t ", ' two', "\t three",
|
||
\ "\t four"], getline(1, '$'))
|
||
normal ggVG2<<
|
||
call assert_equal(['one', '', "\t", ' two', "\tthree", ' four'],
|
||
\ getline(1, '$'))
|
||
set shiftwidth& tabstop&
|
||
bw!
|
||
endfunc
|
||
|
||
" Some commands like yy, cc, dd, >>, << and !! accept a count after
|
||
" typing the first letter of the command.
|
||
func Test_normal_count_after_operator()
|
||
new
|
||
setlocal shiftwidth=4 tabstop=8 autoindent
|
||
call setline(1, ['one', 'two', 'three', 'four', 'five'])
|
||
let @a = ''
|
||
normal! j"ay4y
|
||
call assert_equal("two\nthree\nfour\nfive\n", @a)
|
||
normal! 3G>2>
|
||
call assert_equal(['one', 'two', ' three', ' four', 'five'],
|
||
\ getline(1, '$'))
|
||
exe "normal! 3G0c2cred\nblue"
|
||
call assert_equal(['one', 'two', ' red', ' blue', 'five'],
|
||
\ getline(1, '$'))
|
||
exe "normal! gg<8<"
|
||
call assert_equal(['one', 'two', 'red', 'blue', 'five'],
|
||
\ getline(1, '$'))
|
||
exe "normal! ggd3d"
|
||
call assert_equal(['blue', 'five'], getline(1, '$'))
|
||
call setline(1, range(1, 4))
|
||
call feedkeys("gg!3!\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal('".,.+2!', @:)
|
||
call feedkeys("gg!1!\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal('".!', @:)
|
||
call feedkeys("gg!9!\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal('".,$!', @:)
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal_gj_on_extra_wide_char()
|
||
new | 25vsp
|
||
let text='1 foooooooo ar e inszwe1 foooooooo inszwei' .
|
||
\ ' i drei vier fünf sechs sieben acht un zehn elf zwöfl' .
|
||
\ ' dreizehn v ierzehn fünfzehn'
|
||
put =text
|
||
call cursor(2,1)
|
||
norm! gj
|
||
call assert_equal([0,2,25,0], getpos('.'))
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_normal_count_out_of_range()
|
||
new
|
||
call setline(1, 'text')
|
||
normal 44444444444|
|
||
call assert_equal(999999999, v:count)
|
||
normal 444444444444|
|
||
call assert_equal(999999999, v:count)
|
||
normal 4444444444444|
|
||
call assert_equal(999999999, v:count)
|
||
normal 4444444444444444444|
|
||
call assert_equal(999999999, v:count)
|
||
|
||
normal 9y99999999|
|
||
call assert_equal(899999991, v:count)
|
||
normal 10y99999999|
|
||
call assert_equal(999999999, v:count)
|
||
normal 44444444444y44444444444|
|
||
call assert_equal(999999999, v:count)
|
||
bwipe!
|
||
endfunc
|
||
|
||
" Test that mouse shape is restored to Normal mode after failed "c" operation.
|
||
func Test_mouse_shape_after_failed_change()
|
||
CheckFeature mouseshape
|
||
CheckCanRunGui
|
||
|
||
let lines =<< trim END
|
||
set mouseshape+=o:busy
|
||
setlocal nomodifiable
|
||
let g:mouse_shapes = []
|
||
|
||
func SaveMouseShape(timer)
|
||
let g:mouse_shapes += [getmouseshape()]
|
||
endfunc
|
||
|
||
func SaveAndQuit(timer)
|
||
call writefile(g:mouse_shapes, 'Xmouseshapes')
|
||
quit
|
||
endfunc
|
||
|
||
call timer_start(50, {_ -> feedkeys('c')})
|
||
call timer_start(100, 'SaveMouseShape')
|
||
call timer_start(150, {_ -> feedkeys('c')})
|
||
call timer_start(200, 'SaveMouseShape')
|
||
call timer_start(250, 'SaveAndQuit')
|
||
END
|
||
call writefile(lines, 'Xmouseshape.vim', 'D')
|
||
call RunVim([], [], "-g -S Xmouseshape.vim")
|
||
sleep 300m
|
||
call assert_equal(['busy', 'arrow'], readfile('Xmouseshapes'))
|
||
|
||
call delete('Xmouseshapes')
|
||
endfunc
|
||
|
||
" Test that mouse shape is restored to Normal mode after cancelling "gr".
|
||
func Test_mouse_shape_after_cancelling_gr()
|
||
CheckFeature mouseshape
|
||
CheckCanRunGui
|
||
|
||
let lines =<< trim END
|
||
vim9script
|
||
var mouse_shapes = []
|
||
|
||
feedkeys('gr')
|
||
timer_start(50, (_) => {
|
||
mouse_shapes += [getmouseshape()]
|
||
timer_start(50, (_) => {
|
||
feedkeys("\<Esc>")
|
||
timer_start(50, (_) => {
|
||
mouse_shapes += [getmouseshape()]
|
||
timer_start(50, (_) => {
|
||
writefile(mouse_shapes, 'Xmouseshapes')
|
||
quit
|
||
})
|
||
})
|
||
})
|
||
})
|
||
END
|
||
call writefile(lines, 'Xmouseshape.vim', 'D')
|
||
call RunVim([], [], "-g -S Xmouseshape.vim")
|
||
sleep 300m
|
||
call assert_equal(['beam', 'arrow'], readfile('Xmouseshapes'))
|
||
|
||
call delete('Xmouseshapes')
|
||
endfunc
|
||
|
||
" vim: shiftwidth=2 sts=2 expandtab
|