mirror of
https://github.com/macvim-dev/macvim.git
synced 2026-02-09 20:26:37 +01:00
b0905e269d
Problem: tests: too many imports in the test suite Solution: Clean up the imported scripts Most tests make use of check.vim, so let's just source it once in runtest.vim instead of having each test manually source it. runtest.vim already sources shared.vim, which again sources view_util.vim, so we don't need to source those two common dependencies in all the other tests And then check.vim sources term_util.vim already, so we can in addition drop sourcing it explicitly in each single test script. Note: test_expand_func.vim had to be updated to account for the changed number of sourced files. And finally check.vim uses line-continuation so let's also explicitly enable line continuation via the 'cpo' option value. related: #17677 Signed-off-by: Christian Brabandt <cb@256bit.org>
915 lines
24 KiB
VimL
915 lines
24 KiB
VimL
" Test shifting lines with :> and :<
|
|
|
|
func Test_ex_shift_right()
|
|
set shiftwidth=2
|
|
|
|
" shift right current line.
|
|
call setline(1, range(1, 5))
|
|
2
|
|
>
|
|
3
|
|
>>
|
|
call assert_equal(['1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ '4',
|
|
\ '5'], getline(1, '$'))
|
|
|
|
" shift right with range.
|
|
call setline(1, range(1, 4))
|
|
2,3>>
|
|
call assert_equal(['1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ '4',
|
|
\ '5'], getline(1, '$'))
|
|
|
|
" shift right with range and count.
|
|
call setline(1, range(1, 4))
|
|
2>3
|
|
call assert_equal(['1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ ' 4',
|
|
\ '5'], getline(1, '$'))
|
|
|
|
bw!
|
|
set shiftwidth&
|
|
endfunc
|
|
|
|
func Test_ex_shift_left()
|
|
set shiftwidth=2
|
|
|
|
call setline(1, range(1, 5))
|
|
%>>>
|
|
|
|
" left shift current line.
|
|
2<
|
|
3<<
|
|
4<<<<<
|
|
call assert_equal([' 1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ '4',
|
|
\ ' 5'], getline(1, '$'))
|
|
|
|
" shift right with range.
|
|
call setline(1, range(1, 5))
|
|
%>>>
|
|
2,3<<
|
|
call assert_equal([' 1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ ' 4',
|
|
\ ' 5'], getline(1, '$'))
|
|
|
|
" shift right with range and count.
|
|
call setline(1, range(1, 5))
|
|
%>>>
|
|
2<<3
|
|
call assert_equal([' 1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ ' 4',
|
|
\ ' 5'], getline(1, '$'))
|
|
|
|
bw!
|
|
set shiftwidth&
|
|
endfunc
|
|
|
|
func Test_ex_shift_rightleft()
|
|
CheckFeature rightleft
|
|
|
|
set shiftwidth=2 rightleft
|
|
|
|
call setline(1, range(1, 4))
|
|
2,3<<
|
|
call assert_equal(['1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ '4'], getline(1, '$'))
|
|
|
|
3,4>
|
|
call assert_equal(['1',
|
|
\ ' 2',
|
|
\ ' 3',
|
|
\ '4'], getline(1, '$'))
|
|
|
|
bw!
|
|
set rightleft& shiftwidth&
|
|
endfunc
|
|
|
|
func Test_ex_shift_errors()
|
|
call assert_fails('><', 'E488:')
|
|
call assert_fails('<>', 'E488:')
|
|
|
|
call assert_fails('>!', 'E477:')
|
|
call assert_fails('<!', 'E477:')
|
|
|
|
call assert_fails('2,1>', 'E493:')
|
|
call assert_fails('2,1<', 'E493:')
|
|
endfunc
|
|
|
|
" Test inserting a backspace at the start of a line.
|
|
"
|
|
" This is to verify the proper behavior of tabstop_start() as called from
|
|
" ins_bs().
|
|
"
|
|
func Test_shift_ins_bs()
|
|
set backspace=indent,start
|
|
set softtabstop=11
|
|
|
|
call setline(1, repeat(" ", 33) . "word")
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 22) . "word", getline(1))
|
|
call setline(1, repeat(" ", 23) . "word")
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 22) . "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 11) . "word", getline(1))
|
|
|
|
set backspace& softtabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test inserting a backspace at the start of a line, with 'varsofttabstop'.
|
|
"
|
|
func Test_shift_ins_bs_vartabs()
|
|
CheckFeature vartabs
|
|
set backspace=indent,start
|
|
set varsofttabstop=13,11,7
|
|
|
|
call setline(1, repeat(" ", 44) . "word")
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 38) . "word", getline(1))
|
|
call setline(1, repeat(" ", 39) . "word")
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 38) . "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 31) . "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 24) . "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal(repeat(" ", 13) . "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal( "word", getline(1))
|
|
exe "norm! I\<BS>"
|
|
call assert_equal( "word", getline(1))
|
|
|
|
set backspace& varsofttabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the >> and << normal-mode commands.
|
|
"
|
|
func Test_shift_norm()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, " word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 12) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 17) . "word", getline(1))
|
|
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 12) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, " word")
|
|
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 9) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 16) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 23) . "word", getline(1))
|
|
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 16) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 9) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the >> and << normal-mode commands, with 'vartabstop'.
|
|
"
|
|
func Test_shift_norm_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, " word")
|
|
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 38) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 49) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 60) . "word", getline(1))
|
|
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 49) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 38) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the >> and << normal-mode commands with 'shiftround'.
|
|
"
|
|
func Test_shift_norm_round()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, "word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 5) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 20) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 25) . "word", getline(1))
|
|
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 20) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
|
|
call setline(1, repeat(" ", 7) . "word")
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 5) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
call setline(1, repeat(" ", 2) . "word")
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 28) . "word", getline(1))
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 35) . "word", getline(1))
|
|
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 28) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
|
|
call setline(1, repeat(" ", 9) . "word")
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
call setline(1, repeat(" ", 2) . "word")
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftround& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the >> and << normal-mode commands with 'shiftround' and 'vartabstop'.
|
|
"
|
|
func Test_shift_norm_round_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 36) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! >>
|
|
call assert_equal(repeat(" ", 58) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 58) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 36) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
exe "norm! I "
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! <<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftround& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the V> and V< visual-mode commands.
|
|
"
|
|
" See ":help v_<" and ":help v_>". See also the last paragraph of "3. Simple
|
|
" changes", ":help simple-change", immediately above "4. Complex changes",
|
|
" ":help complex-change".
|
|
"
|
|
func Test_shift_vis()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, " word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
norm! V2>
|
|
call assert_equal(repeat(" ", 17) . "word", getline(1))
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 32) . "word", getline(1))
|
|
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 27) . "word", getline(1))
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 17) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, " word")
|
|
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 9) . "word", getline(1))
|
|
norm! V2>
|
|
call assert_equal(repeat(" ", 23) . "word", getline(1))
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 44) . "word", getline(1))
|
|
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 37) . "word", getline(1))
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 23) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the V> and V< visual-mode commands, with 'vartabstop'.
|
|
"
|
|
" See ":help v_<" and ":help v_>". See also the last paragraph of "3. Simple
|
|
" changes", ":help simple-change", immediately above "4. Complex changes",
|
|
" ":help complex-change".
|
|
"
|
|
func Test_shift_vis_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, " word")
|
|
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! V2>
|
|
call assert_equal(repeat(" ", 49) . "word", getline(1))
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 82) . "word", getline(1))
|
|
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 71) . "word", getline(1))
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 49) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the V> and V< visual-mode commands with 'shiftround'.
|
|
"
|
|
func Test_shift_vis_round()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, "word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
exe "norm! I "
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 5) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V2>
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 30) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 25) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 5) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V2>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 42) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 42) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 35) . "word", getline(1))
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
call setline(1, " word")
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
|
|
set expandtab& shiftround& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the V> and V< visual-mode commands with 'shiftround' and 'vartabstop'.
|
|
"
|
|
func Test_shift_vis_round_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
norm! V>
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V3>
|
|
call assert_equal(repeat(" ", 58) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
norm! V2<
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V3<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
exe "norm! I "
|
|
norm! V<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftround& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the :> and :< ex-mode commands.
|
|
"
|
|
func Test_shift_ex()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, " word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
>>
|
|
call assert_equal(repeat(" ", 17) . "word", getline(1))
|
|
>>>
|
|
call assert_equal(repeat(" ", 32) . "word", getline(1))
|
|
|
|
<<<<
|
|
call assert_equal(repeat(" ", 12) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, " word")
|
|
|
|
>
|
|
call assert_equal(repeat(" ", 9) . "word", getline(1))
|
|
>>
|
|
call assert_equal(repeat(" ", 23) . "word", getline(1))
|
|
>>>
|
|
call assert_equal(repeat(" ", 44) . "word", getline(1))
|
|
|
|
<<<<
|
|
call assert_equal(repeat(" ", 16) . "word", getline(1))
|
|
<<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the :> and :< ex-mode commands, with vartabstop.
|
|
"
|
|
func Test_shift_ex_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, " word")
|
|
|
|
>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
>>
|
|
call assert_equal(repeat(" ", 49) . "word", getline(1))
|
|
>>>
|
|
call assert_equal(repeat(" ", 82) . "word", getline(1))
|
|
|
|
<<<<
|
|
call assert_equal(repeat(" ", 38) . "word", getline(1))
|
|
<<
|
|
call assert_equal(repeat(" ", 2) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the :> and :< ex-mode commands with 'shiftround'.
|
|
"
|
|
func Test_shift_ex_round()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
call setline(1, "word")
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
exe "norm! I "
|
|
>
|
|
call assert_equal(repeat(" ", 5) . "word", getline(1))
|
|
exe "norm! I "
|
|
>>
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
exe "norm! I "
|
|
>>>
|
|
call assert_equal(repeat(" ", 30) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
<<<<
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
exe "norm! I "
|
|
<<
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
<<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
>>
|
|
<<<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
>
|
|
call assert_equal(repeat(" ", 7) . "word", getline(1))
|
|
exe "norm! I "
|
|
>>
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
exe "norm! I "
|
|
>>>
|
|
call assert_equal(repeat(" ", 42) . "word", getline(1))
|
|
|
|
exe "norm! I "
|
|
<<<<
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
exe "norm! I "
|
|
<<
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
exe "norm! I "
|
|
<<<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
>>
|
|
<<<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftround& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test the :> and :< ex-mode commands with 'shiftround' and 'vartabstop'.
|
|
"
|
|
func Test_shift_ex_round_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftround
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, "word")
|
|
|
|
exe "norm! I "
|
|
>
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
>>
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
>>>
|
|
call assert_equal(repeat(" ", 80) . "word", getline(1))
|
|
|
|
<<<<
|
|
call assert_equal(repeat(" ", 36) . "word", getline(1))
|
|
exe "norm! I "
|
|
<<
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I "
|
|
<<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
<
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftround& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test shifting lines with <C-T> and <C-D>.
|
|
"
|
|
func Test_shift_ins()
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=5
|
|
set tabstop=7
|
|
|
|
" Shift by 'shiftwidth' right and left.
|
|
|
|
call setline(1, repeat(" ", 7) . "word")
|
|
exe "norm! 9|i\<C-T>"
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
exe "norm! A\<C-T>"
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
exe "norm! I \<C-T>"
|
|
call assert_equal(repeat(" ", 20) . "word", getline(1))
|
|
|
|
exe "norm! I \<C-D>"
|
|
call assert_equal(repeat(" ", 20) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! 24|i\<C-D>"
|
|
call assert_equal(repeat(" ", 20) . "word", getline(1))
|
|
exe "norm! A\<C-D>"
|
|
call assert_equal(repeat(" ", 15) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! A\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 10) . "word", getline(1))
|
|
exe "norm! I\<C-D>\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
exe "norm! I\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
" Shift by 'tabstop' right and left.
|
|
|
|
set shiftwidth=0
|
|
call setline(1, "word")
|
|
|
|
call setline(1, repeat(" ", 9) . "word")
|
|
exe "norm! 11|i\<C-T>"
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
exe "norm! A\<C-T>"
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
exe "norm! I \<C-T>"
|
|
call assert_equal(repeat(" ", 28) . "word", getline(1))
|
|
|
|
exe "norm! I \<C-D>"
|
|
call assert_equal(repeat(" ", 28) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! 32|i\<C-D>"
|
|
call assert_equal(repeat(" ", 28) . "word", getline(1))
|
|
exe "norm! A\<C-D>"
|
|
call assert_equal(repeat(" ", 21) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! A\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 14) . "word", getline(1))
|
|
exe "norm! I\<C-D>\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
exe "norm! I\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& tabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" Test shifting lines with <C-T> and <C-D>, with 'vartabstop'.
|
|
"
|
|
func Test_shift_ins_vartabs()
|
|
CheckFeature vartabs
|
|
set expandtab " Don't want to worry about tabs vs. spaces in
|
|
" results.
|
|
|
|
set shiftwidth=0
|
|
set vartabstop=19,17,11
|
|
|
|
" Shift by 'vartabstop' right and left.
|
|
|
|
call setline(1, "word")
|
|
|
|
call setline(1, repeat(" ", 9) . "word")
|
|
exe "norm! 11|i\<C-T>"
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! A\<C-T>"
|
|
call assert_equal(repeat(" ", 36) . "word", getline(1))
|
|
exe "norm! I \<C-T>"
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
|
|
exe "norm! I \<C-D>"
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! 51|i\<C-D>"
|
|
call assert_equal(repeat(" ", 47) . "word", getline(1))
|
|
exe "norm! A\<C-D>"
|
|
call assert_equal(repeat(" ", 36) . "word", getline(1))
|
|
exe "norm! I "
|
|
exe "norm! A\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 19) . "word", getline(1))
|
|
exe "norm! I\<C-D>\<C-D>\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
exe "norm! I\<C-D>"
|
|
call assert_equal(repeat(" ", 0) . "word", getline(1))
|
|
|
|
set expandtab& shiftwidth& vartabstop&
|
|
bw!
|
|
endfunc
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|