2017-03-01 16:00:51 -07:00
|
|
|
" Test for folding
|
|
|
|
|
2017-02-27 02:46:50 -07:00
|
|
|
func! PrepIndent(arg)
|
|
|
|
return [a:arg] + repeat(["\t".a:arg], 5)
|
|
|
|
endfu
|
|
|
|
|
2017-03-01 16:00:51 -07:00
|
|
|
func! Test_address_fold()
|
|
|
|
new
|
|
|
|
call setline(1, ['int FuncName() {/*{{{*/', 1, 2, 3, 4, 5, '}/*}}}*/',
|
|
|
|
\ 'after fold 1', 'after fold 2', 'after fold 3'])
|
|
|
|
setl fen fdm=marker
|
|
|
|
" The next ccommands should all copy the same part of the buffer,
|
|
|
|
" regardless of the adressing type, since the part to be copied
|
|
|
|
" is folded away
|
|
|
|
:1y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:.+y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:.,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:sil .1,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
" use silent to make E493 go away
|
|
|
|
:sil .+,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:,y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
:,+y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/','after fold 1'], getreg(0,1,1))
|
|
|
|
" using .+3 as second address should copy the whole folded line + the next 3
|
|
|
|
" lines
|
|
|
|
:.,+3y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/',
|
|
|
|
\ 'after fold 1', 'after fold 2', 'after fold 3'], getreg(0,1,1))
|
|
|
|
:sil .,-2y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3', '4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
|
|
|
|
" now test again with folding disabled
|
|
|
|
set nofoldenable
|
|
|
|
:1y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/'], getreg(0,1,1))
|
|
|
|
:.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/'], getreg(0,1,1))
|
|
|
|
:.+y
|
|
|
|
call assert_equal(['1'], getreg(0,1,1))
|
|
|
|
:.,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/'], getreg(0,1,1))
|
|
|
|
" use silent to make E493 go away
|
|
|
|
:sil .1,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1'], getreg(0,1,1))
|
|
|
|
" use silent to make E493 go away
|
|
|
|
:sil .+,.y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1'], getreg(0,1,1))
|
|
|
|
:,y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/'], getreg(0,1,1))
|
|
|
|
:,+y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1'], getreg(0,1,1))
|
|
|
|
" using .+3 as second address should copy the whole folded line + the next 3
|
|
|
|
" lines
|
|
|
|
:.,+3y
|
|
|
|
call assert_equal(['int FuncName() {/*{{{*/', '1', '2', '3'], getreg(0,1,1))
|
|
|
|
:7
|
|
|
|
:sil .,-2y
|
|
|
|
call assert_equal(['4', '5', '}/*}}}*/'], getreg(0,1,1))
|
|
|
|
|
|
|
|
quit!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func! Test_indent_fold()
|
|
|
|
new
|
|
|
|
call setline(1, ['', 'a', ' b', ' c'])
|
|
|
|
setl fen fdm=indent
|
|
|
|
2
|
|
|
|
norm! >>
|
|
|
|
let a=map(range(1,4), 'foldclosed(v:val)')
|
|
|
|
call assert_equal([-1,-1,-1,-1], a)
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func! Test_indent_fold()
|
|
|
|
new
|
|
|
|
call setline(1, ['', 'a', ' b', ' c'])
|
|
|
|
setl fen fdm=indent
|
|
|
|
2
|
|
|
|
norm! >>
|
|
|
|
let a=map(range(1,4), 'foldclosed(v:val)')
|
|
|
|
call assert_equal([-1,-1,-1,-1], a)
|
|
|
|
bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func! Test_indent_fold2()
|
|
|
|
new
|
|
|
|
call setline(1, ['', '{{{', '}}}', '{{{', '}}}'])
|
|
|
|
setl fen fdm=marker
|
|
|
|
2
|
|
|
|
norm! >>
|
|
|
|
let a=map(range(1,5), 'foldclosed(v:val)')
|
|
|
|
call assert_equal([-1,-1,-1,4,4], a)
|
|
|
|
bw!
|
|
|
|
endfunc
|
|
|
|
|
2017-03-12 17:54:35 -07:00
|
|
|
func Test_folds_marker_in_comment()
|
|
|
|
new
|
|
|
|
call setline(1, ['" foo', 'bar', 'baz'])
|
|
|
|
setl fen fdm=marker
|
|
|
|
setl com=sO:\"\ -,mO:\"\ \ ,eO:\"\",:\" cms=\"%s
|
|
|
|
norm! zf2j
|
|
|
|
setl nofen
|
|
|
|
:1y
|
|
|
|
call assert_equal(['" foo{{{'], getreg(0,1,1))
|
|
|
|
:+2y
|
|
|
|
call assert_equal(['baz"}}}'], getreg(0,1,1))
|
|
|
|
|
|
|
|
set foldmethod&
|
|
|
|
bwipe!
|
|
|
|
endfunc
|
|
|
|
|
2017-03-01 16:00:51 -07:00
|
|
|
func Test_manual_fold_with_filter()
|
|
|
|
if !executable('cat')
|
|
|
|
return
|
|
|
|
endif
|
2017-03-23 07:16:21 -07:00
|
|
|
for type in ['manual', 'marker']
|
|
|
|
exe 'set foldmethod=' . type
|
|
|
|
new
|
|
|
|
call setline(1, range(1, 20))
|
|
|
|
4,$fold
|
|
|
|
%foldopen
|
|
|
|
10,$fold
|
|
|
|
%foldopen
|
|
|
|
" This filter command should not have an effect
|
|
|
|
1,8! cat
|
|
|
|
call feedkeys('5ggzdzMGdd', 'xt')
|
|
|
|
call assert_equal(['1', '2', '3', '4', '5', '6', '7', '8', '9'], getline(1, '$'))
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
set foldmethod&
|
|
|
|
endfor
|
2017-03-01 16:00:51 -07:00
|
|
|
endfunc
|
2017-02-27 02:46:50 -07:00
|
|
|
|
|
|
|
func! Test_move_folds_around_manual()
|
|
|
|
new
|
|
|
|
let input = PrepIndent("a") + PrepIndent("b") + PrepIndent("c")
|
|
|
|
call setline(1, PrepIndent("a") + PrepIndent("b") + PrepIndent("c"))
|
|
|
|
let folds=[-1, 2, 2, 2, 2, 2, -1, 8, 8, 8, 8, 8, -1, 14, 14, 14, 14, 14]
|
|
|
|
" all folds closed
|
|
|
|
set foldenable foldlevel=0 fdm=indent
|
|
|
|
" needs a forced redraw
|
|
|
|
redraw!
|
|
|
|
set fdm=manual
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
call assert_equal(input, getline(1, '$'))
|
|
|
|
7,12m0
|
|
|
|
call assert_equal(PrepIndent("b") + PrepIndent("a") + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
10,12m0
|
|
|
|
call assert_equal(PrepIndent("a")[1:] + PrepIndent("b") + ["a"] + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal([1, 1, 1, 1, 1, -1, 7, 7, 7, 7, 7, -1, -1, 14, 14, 14, 14, 14], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
" moving should not close the folds
|
|
|
|
%d
|
|
|
|
call setline(1, PrepIndent("a") + PrepIndent("b") + PrepIndent("c"))
|
|
|
|
set fdm=indent
|
|
|
|
redraw!
|
|
|
|
set fdm=manual
|
|
|
|
call cursor(2, 1)
|
|
|
|
%foldopen
|
|
|
|
7,12m0
|
|
|
|
let folds=repeat([-1], 18)
|
|
|
|
call assert_equal(PrepIndent("b") + PrepIndent("a") + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
norm! zM
|
|
|
|
" folds are not corrupted and all have been closed
|
|
|
|
call assert_equal([-1, 2, 2, 2, 2, 2, -1, 8, 8, 8, 8, 8, -1, 14, 14, 14, 14, 14], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
%d
|
|
|
|
call setline(1, ["a", "\tb", "\tc", "\td", "\te"])
|
|
|
|
set fdm=indent
|
|
|
|
redraw!
|
|
|
|
set fdm=manual
|
|
|
|
%foldopen
|
|
|
|
3m4
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(["a", "\tb", "\td", "\tc", "\te"], getline(1, '$'))
|
|
|
|
call assert_equal([-1, 5, 5, 5, 5], map(range(1, line('$')), 'foldclosedend(v:val)'))
|
|
|
|
%d
|
|
|
|
call setline(1, ["a", "\tb", "\tc", "\td", "\te", "z", "\ty", "\tx", "\tw", "\tv"])
|
|
|
|
set fdm=indent foldlevel=0
|
|
|
|
set fdm=manual
|
|
|
|
%foldopen
|
|
|
|
3m1
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(["a", "\tc", "\tb", "\td", "\te", "z", "\ty", "\tx", "\tw", "\tv"], getline(1, '$'))
|
|
|
|
call assert_equal(0, foldlevel(2))
|
|
|
|
call assert_equal(5, foldclosedend(3))
|
|
|
|
call assert_equal([-1, -1, 3, 3, 3, -1, 7, 7, 7, 7], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
2,6m$
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(5, foldclosedend(2))
|
|
|
|
call assert_equal(0, foldlevel(6))
|
|
|
|
call assert_equal(9, foldclosedend(7))
|
|
|
|
call assert_equal([-1, 2, 2, 2, 2, -1, 7, 7, 7, -1], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
%d
|
|
|
|
" Ensure moving around the edges still works.
|
|
|
|
call setline(1, PrepIndent("a") + repeat(["a"], 3) + ["\ta"])
|
|
|
|
set fdm=indent foldlevel=0
|
|
|
|
set fdm=manual
|
|
|
|
%foldopen
|
|
|
|
6m$
|
|
|
|
" The first fold has been truncated to the 5'th line.
|
|
|
|
" Second fold has been moved up because the moved line is now below it.
|
|
|
|
call assert_equal([0, 1, 1, 1, 1, 0, 0, 0, 1, 0], map(range(1, line('$')), 'foldlevel(v:val)'))
|
|
|
|
bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func! Test_move_folds_around_indent()
|
|
|
|
new
|
|
|
|
let input = PrepIndent("a") + PrepIndent("b") + PrepIndent("c")
|
|
|
|
call setline(1, PrepIndent("a") + PrepIndent("b") + PrepIndent("c"))
|
|
|
|
let folds=[-1, 2, 2, 2, 2, 2, -1, 8, 8, 8, 8, 8, -1, 14, 14, 14, 14, 14]
|
|
|
|
" all folds closed
|
|
|
|
set fdm=indent
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
call assert_equal(input, getline(1, '$'))
|
|
|
|
7,12m0
|
|
|
|
call assert_equal(PrepIndent("b") + PrepIndent("a") + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
10,12m0
|
|
|
|
call assert_equal(PrepIndent("a")[1:] + PrepIndent("b") + ["a"] + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal([1, 1, 1, 1, 1, -1, 7, 7, 7, 7, 7, -1, -1, 14, 14, 14, 14, 14], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
" moving should not close the folds
|
|
|
|
%d
|
|
|
|
call setline(1, PrepIndent("a") + PrepIndent("b") + PrepIndent("c"))
|
|
|
|
set fdm=indent
|
|
|
|
call cursor(2, 1)
|
|
|
|
%foldopen
|
|
|
|
7,12m0
|
|
|
|
let folds=repeat([-1], 18)
|
|
|
|
call assert_equal(PrepIndent("b") + PrepIndent("a") + PrepIndent("c"), getline(1, '$'))
|
|
|
|
call assert_equal(folds, map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
norm! zM
|
|
|
|
" folds are not corrupted and all have been closed
|
|
|
|
call assert_equal([-1, 2, 2, 2, 2, 2, -1, 8, 8, 8, 8, 8, -1, 14, 14, 14, 14, 14], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
%d
|
|
|
|
call setline(1, ["a", "\tb", "\tc", "\td", "\te"])
|
|
|
|
set fdm=indent
|
|
|
|
%foldopen
|
|
|
|
3m4
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(["a", "\tb", "\td", "\tc", "\te"], getline(1, '$'))
|
|
|
|
call assert_equal([-1, 5, 5, 5, 5], map(range(1, line('$')), 'foldclosedend(v:val)'))
|
|
|
|
%d
|
|
|
|
call setline(1, ["a", "\tb", "\tc", "\td", "\te", "z", "\ty", "\tx", "\tw", "\tv"])
|
|
|
|
set fdm=indent foldlevel=0
|
|
|
|
%foldopen
|
|
|
|
3m1
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(["a", "\tc", "\tb", "\td", "\te", "z", "\ty", "\tx", "\tw", "\tv"], getline(1, '$'))
|
|
|
|
call assert_equal(1, foldlevel(2))
|
|
|
|
call assert_equal(5, foldclosedend(3))
|
|
|
|
call assert_equal([-1, 2, 2, 2, 2, -1, 7, 7, 7, 7], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
2,6m$
|
|
|
|
%foldclose
|
|
|
|
call assert_equal(9, foldclosedend(2))
|
|
|
|
call assert_equal(1, foldlevel(6))
|
|
|
|
call assert_equal(9, foldclosedend(7))
|
|
|
|
call assert_equal([-1, 2, 2, 2, 2, 2, 2, 2, 2, -1], map(range(1, line('$')), 'foldclosed(v:val)'))
|
|
|
|
" Ensure moving around the edges still works.
|
|
|
|
%d
|
|
|
|
call setline(1, PrepIndent("a") + repeat(["a"], 3) + ["\ta"])
|
|
|
|
set fdm=indent foldlevel=0
|
|
|
|
%foldopen
|
|
|
|
6m$
|
|
|
|
" The first fold has been truncated to the 5'th line.
|
|
|
|
" Second fold has been moved up because the moved line is now below it.
|
|
|
|
call assert_equal([0, 1, 1, 1, 1, 0, 0, 0, 1, 1], map(range(1, line('$')), 'foldlevel(v:val)'))
|
|
|
|
bw!
|
|
|
|
endfunc
|