| |
| " Test that a deleted mark is restored after delete-undo-redo-undo. |
| function! 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! |
| endfunction |
| |
| " Test that CTRL-A and CTRL-X updates last changed mark '[, ']. |
| function! 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! |
| endfunction |
| |
| func Test_setpos() |
| new one |
| let onebuf = bufnr('%') |
| let onewin = win_getid() |
| call setline(1, ['aaa', 'bbb', 'ccc']) |
| new two |
| 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")) |
| |
| call win_gotoid(onewin) |
| 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 |
| w! |
| |
| b Xone |
| let a = split(execute('marks'), "\n") |
| call assert_equal(9, len(a)) |
| call assert_equal('mark line col file/text', a[0]) |
| call assert_equal(" ' 2 0 bbb", a[1]) |
| call assert_equal(' a 1 0 aaa', a[2]) |
| call assert_equal(' B 2 2 bbb', a[3]) |
| call assert_equal(' D 2 0 Xtwo', a[4]) |
| call assert_equal(' " 1 0 aaa', a[5]) |
| call assert_equal(' [ 1 0 aaa', a[6]) |
| call assert_equal(' ] 2 0 bbb', a[7]) |
| call assert_equal(' . 2 0 bbb', a[8]) |
| |
| b Xtwo |
| let a = split(execute('marks'), "\n") |
| call assert_equal(9, len(a)) |
| call assert_equal('mark line col file/text', a[0]) |
| call assert_equal(" ' 1 0 ccc", a[1]) |
| call assert_equal(' c 1 2 ccc', a[2]) |
| call assert_equal(' B 2 2 Xone', a[3]) |
| call assert_equal(' D 2 0 ddd', a[4]) |
| call assert_equal(' " 2 0 ddd', a[5]) |
| call assert_equal(' [ 1 0 ccc', a[6]) |
| call assert_equal(' ] 2 0 ddd', a[7]) |
| call assert_equal(' . 2 0 ddd', a[8]) |
| |
| 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() |
| if !has('multi_byte') |
| return |
| endif |
| 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 |