1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
" 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, ['ááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá'])
norm! ma
let a = split(execute('marks a'), "\n")
call assert_equal(2, len(a))
let expected = ' a 1 0 '
while strwidth(expected) < &columns - 1
let expected .= 'á'
endwhile
call assert_equal(expected, a[1])
bwipe!
endfunc
|
