neovim/test/old/testdir/test_marks.vim

321 lines
7.9 KiB
VimL
Raw Normal View History

" Test that a deleted mark is restored after delete-undo-redo-undo.
func Test_Restore_DelMark()
enew!
call append(0, [" textline A", " textline B", " textline C"])
normal! 2gg
set nocp viminfo+=nviminfo
exe "normal! i\<C-G>u\<Esc>"
exe "normal! maddu\<C-R>u"
let pos = getpos("'a")
call assert_equal(2, pos[1])
call assert_equal(1, pos[2])
enew!
endfunc
" Test that CTRL-A and CTRL-X updates last changed mark '[, '].
func Test_Incr_Marks()
enew!
call append(0, ["123 123 123", "123 123 123", "123 123 123"])
normal! gg
execute "normal! \<C-A>`[v`]rAjwvjw\<C-X>`[v`]rX"
call assert_equal("AAA 123 123", getline(1))
call assert_equal("123 XXXXXXX", getline(2))
call assert_equal("XXX 123 123", getline(3))
enew!
endfunc
func Test_previous_jump_mark()
new
call setline(1, ['']->repeat(6))
normal Ggg
call assert_equal(6, getpos("''")[1])
normal jjjjj
call assert_equal(6, getpos("''")[1])
bwipe!
endfunc
func Test_setpos()
new Xone
let onebuf = bufnr('%')
let onewin = win_getid()
call setline(1, ['aaa', 'bbb', 'ccc'])
new Xtwo
let twobuf = bufnr('%')
let twowin = win_getid()
call setline(1, ['aaa', 'bbb', 'ccc'])
" for the cursor the buffer number is ignored
call setpos(".", [0, 2, 1, 0])
call assert_equal([0, 2, 1, 0], getpos("."))
call setpos(".", [onebuf, 3, 3, 0])
call assert_equal([0, 3, 3, 0], getpos("."))
call setpos("''", [0, 1, 3, 0])
call assert_equal([0, 1, 3, 0], getpos("''"))
call setpos("''", [onebuf, 2, 2, 0])
call assert_equal([0, 2, 2, 0], getpos("''"))
" buffer-local marks
for mark in ["'a", "'\"", "'[", "']", "'<", "'>"]
call win_gotoid(twowin)
call setpos(mark, [0, 2, 1, 0])
call assert_equal([0, 2, 1, 0], getpos(mark), "for mark " . mark)
call setpos(mark, [onebuf, 1, 3, 0])
call win_gotoid(onewin)
call assert_equal([0, 1, 3, 0], getpos(mark), "for mark " . mark)
endfor
" global marks
call win_gotoid(twowin)
call setpos("'N", [0, 2, 1, 0])
call assert_equal([twobuf, 2, 1, 0], getpos("'N"))
call setpos("'N", [onebuf, 1, 3, 0])
call assert_equal([onebuf, 1, 3, 0], getpos("'N"))
" try invalid column and check virtcol()
call win_gotoid(onewin)
call setpos("'a", [0, 1, 2, 0])
call assert_equal([0, 1, 2, 0], getpos("'a"))
call setpos("'a", [0, 1, -5, 0])
call assert_equal([0, 1, 2, 0], getpos("'a"))
call setpos("'a", [0, 1, 0, 0])
call assert_equal([0, 1, 1, 0], getpos("'a"))
call setpos("'a", [0, 1, 4, 0])
call assert_equal([0, 1, 4, 0], getpos("'a"))
call assert_equal(4, virtcol("'a"))
call setpos("'a", [0, 1, 5, 0])
call assert_equal([0, 1, 5, 0], getpos("'a"))
call assert_equal(4, virtcol("'a"))
call setpos("'a", [0, 1, 21341234, 0])
call assert_equal([0, 1, 21341234, 0], getpos("'a"))
call assert_equal(4, virtcol("'a"))
" Test with invalid buffer number, line number and column number
call cursor(2, 2)
call setpos('.', [-1, 1, 1, 0])
call assert_equal([2, 2], [line('.'), col('.')])
call setpos('.', [0, -1, 1, 0])
call assert_equal([2, 2], [line('.'), col('.')])
call setpos('.', [0, 1, -1, 0])
call assert_equal([2, 2], [line('.'), col('.')])
call assert_fails("call setpos('ab', [0, 1, 1, 0])", 'E474:')
bwipe!
call win_gotoid(twowin)
bwipe!
endfunc
func Test_marks_cmd()
new Xone
call setline(1, ['aaa', 'bbb'])
norm! maG$mB
w!
new Xtwo
call setline(1, ['ccc', 'ddd'])
norm! $mcGmD
exe "norm! GVgg\<Esc>G"
w!
b Xone
let a = split(execute('marks'), "\n")
call assert_equal(9, len(a))
call assert_equal(['mark line col file/text',
\ " ' 2 0 bbb",
\ ' a 1 0 aaa',
\ ' B 2 2 bbb',
\ ' D 2 0 Xtwo',
\ ' " 1 0 aaa',
\ ' [ 1 0 aaa',
\ ' ] 2 0 bbb',
\ ' . 2 0 bbb'], a)
b Xtwo
let a = split(execute('marks'), "\n")
call assert_equal(11, len(a))
call assert_equal(['mark line col file/text',
\ " ' 1 0 ccc",
\ ' c 1 2 ccc',
\ ' B 2 2 Xone',
\ ' D 2 0 ddd',
\ ' " 2 0 ddd',
\ ' [ 1 0 ccc',
\ ' ] 2 0 ddd',
\ ' . 2 0 ddd',
\ ' < 1 0 ccc',
\ ' > 2 0 ddd'], a)
norm! Gdd
w!
let a = split(execute('marks <>'), "\n")
call assert_equal(3, len(a))
call assert_equal(['mark line col file/text',
\ ' < 1 0 ccc',
\ ' > 2 0 -invalid-'], a)
b Xone
delmarks aB
let a = split(execute('marks aBcD'), "\n")
call assert_equal(2, len(a))
call assert_equal('mark line col file/text', a[0])
call assert_equal(' D 2 0 Xtwo', a[1])
b Xtwo
delmarks cD
call assert_fails('marks aBcD', 'E283:')
call delete('Xone')
call delete('Xtwo')
%bwipe
endfunc
func Test_marks_cmd_multibyte()
new Xone
call setline(1, [repeat('á', &columns)])
norm! ma
let a = split(execute('marks a'), "\n")
call assert_equal(2, len(a))
let expected = ' a 1 0 ' . repeat('á', &columns - 16)
call assert_equal(expected, a[1])
bwipe!
endfunc
func Test_delmarks()
new
norm mx
norm `x
delmarks x
call assert_fails('norm `x', 'E20:')
" Deleting an already deleted mark should not fail.
delmarks x
" getpos() should return all zeros after deleting a filemark.
norm mA
delmarks A
call assert_equal([0, 0, 0, 0], getpos("'A"))
" Test deleting a range of marks.
norm ma
norm mb
norm mc
norm mz
delmarks b-z
norm `a
call assert_fails('norm `b', 'E20:')
call assert_fails('norm `c', 'E20:')
call assert_fails('norm `z', 'E20:')
call assert_fails('delmarks z-b', 'E475:')
call assert_fails('delmarks', 'E471:')
call assert_fails('delmarks /', 'E475:')
" Test delmarks!
norm mx
norm `x
delmarks!
call assert_fails('norm `x', 'E20:')
call assert_fails('delmarks! x', 'E474:')
bwipe!
endfunc
func Test_mark_error()
call assert_fails('mark', 'E471:')
call assert_fails('mark xx', 'E488:')
call assert_fails('mark _', 'E191:')
call assert_beeps('normal! m~')
call setpos("'k", [0, 100, 1, 0])
call assert_fails("normal 'k", 'E19:')
endfunc
" Test for :lockmarks when pasting content
func Test_lockmarks_with_put()
new
call append(0, repeat(['sky is blue'], 4))
normal gg
1,2yank r
put r
normal G
lockmarks put r
call assert_equal(2, line("'["))
call assert_equal(3, line("']"))
bwipe!
endfunc
" Test for :k command to set a mark
func Test_marks_k_cmd()
new
call setline(1, ['foo', 'bar', 'baz', 'qux'])
1,3kr
call assert_equal([0, 3, 1, 0], getpos("'r"))
close!
endfunc
" Test for file marks (A-Z)
func Test_file_mark()
new Xone
call setline(1, ['aaa', 'bbb'])
norm! G$mB
w!
new Xtwo
call setline(1, ['ccc', 'ddd'])
norm! GmD
w!
enew
normal! `B
call assert_equal('Xone', bufname())
call assert_equal([2, 3], [line('.'), col('.')])
normal! 'D
call assert_equal('Xtwo', bufname())
call assert_equal([2, 1], [line('.'), col('.')])
call delete('Xone')
call delete('Xtwo')
endfunc
" Test for the getmarklist() function
func Test_getmarklist()
new
" global marks
delmarks A-Z 0-9 \" ^.[]
call assert_equal([], getmarklist())
call setline(1, ['one', 'two', 'three'])
mark A
call cursor(3, 5)
normal mN
call assert_equal([{'file' : '', 'mark' : "'A", 'pos' : [bufnr(), 1, 1, 0]},
\ {'file' : '', 'mark' : "'N", 'pos' : [bufnr(), 3, 5, 0]}],
\ getmarklist())
" buffer local marks
delmarks!
call assert_equal([{'mark' : "''", 'pos' : [bufnr(), 1, 1, 0]},
\ {'mark' : "'\"", 'pos' : [bufnr(), 1, 1, 0]}], getmarklist(bufnr()))
call cursor(2, 2)
normal mr
call assert_equal({'mark' : "'r", 'pos' : [bufnr(), 2, 2, 0]},
\ bufnr()->getmarklist()[0])
call assert_equal([], {}->getmarklist())
close!
endfunc
" This was using freed memory
func Test_jump_mark_autocmd()
next 00
edit 0
sargument
au BufEnter 0 all
sil norm 
au! BufEnter
bwipe!
endfunc
" vim: shiftwidth=2 sts=2 expandtab