blob: 3d04c70aa6d32a8e35d861ef0badcf08bc4fc3c7 [file] [log] [blame]
Bram Moolenaar19a16692016-09-01 22:19:47 +02001
2" Test that a deleted mark is restored after delete-undo-redo-undo.
Bram Moolenaar1e115362019-01-09 23:01:02 +01003func Test_Restore_DelMark()
Bram Moolenaar19a16692016-09-01 22:19:47 +02004 enew!
5 call append(0, [" textline A", " textline B", " textline C"])
6 normal! 2gg
7 set nocp viminfo+=nviminfo
8 exe "normal! i\<C-G>u\<Esc>"
9 exe "normal! maddu\<C-R>u"
10 let pos = getpos("'a")
11 call assert_equal(2, pos[1])
12 call assert_equal(1, pos[2])
13 enew!
Bram Moolenaar1e115362019-01-09 23:01:02 +010014endfunc
Bram Moolenaar19a16692016-09-01 22:19:47 +020015
16" Test that CTRL-A and CTRL-X updates last changed mark '[, '].
Bram Moolenaar1e115362019-01-09 23:01:02 +010017func Test_Incr_Marks()
Bram Moolenaar19a16692016-09-01 22:19:47 +020018 enew!
19 call append(0, ["123 123 123", "123 123 123", "123 123 123"])
20 normal! gg
21 execute "normal! \<C-A>`[v`]rAjwvjw\<C-X>`[v`]rX"
22 call assert_equal("AAA 123 123", getline(1))
23 call assert_equal("123 XXXXXXX", getline(2))
24 call assert_equal("XXX 123 123", getline(3))
25 enew!
Bram Moolenaar1e115362019-01-09 23:01:02 +010026endfunc
Bram Moolenaarf13e00b2017-01-28 18:23:54 +010027
28func Test_setpos()
29 new one
30 let onebuf = bufnr('%')
31 let onewin = win_getid()
32 call setline(1, ['aaa', 'bbb', 'ccc'])
33 new two
34 let twobuf = bufnr('%')
35 let twowin = win_getid()
36 call setline(1, ['aaa', 'bbb', 'ccc'])
37
38 " for the cursor the buffer number is ignored
39 call setpos(".", [0, 2, 1, 0])
40 call assert_equal([0, 2, 1, 0], getpos("."))
41 call setpos(".", [onebuf, 3, 3, 0])
42 call assert_equal([0, 3, 3, 0], getpos("."))
43
44 call setpos("''", [0, 1, 3, 0])
45 call assert_equal([0, 1, 3, 0], getpos("''"))
46 call setpos("''", [onebuf, 2, 2, 0])
47 call assert_equal([0, 2, 2, 0], getpos("''"))
48
49 " buffer-local marks
50 for mark in ["'a", "'\"", "'[", "']", "'<", "'>"]
51 call win_gotoid(twowin)
52 call setpos(mark, [0, 2, 1, 0])
53 call assert_equal([0, 2, 1, 0], getpos(mark), "for mark " . mark)
54 call setpos(mark, [onebuf, 1, 3, 0])
55 call win_gotoid(onewin)
56 call assert_equal([0, 1, 3, 0], getpos(mark), "for mark " . mark)
57 endfor
58
59 " global marks
60 call win_gotoid(twowin)
61 call setpos("'N", [0, 2, 1, 0])
62 call assert_equal([twobuf, 2, 1, 0], getpos("'N"))
63 call setpos("'N", [onebuf, 1, 3, 0])
64 call assert_equal([onebuf, 1, 3, 0], getpos("'N"))
65
66 call win_gotoid(onewin)
67 bwipe!
68 call win_gotoid(twowin)
69 bwipe!
70endfunc
Bram Moolenaar9b69f222017-10-08 21:53:15 +020071
72func Test_marks_cmd()
73 new Xone
74 call setline(1, ['aaa', 'bbb'])
75 norm! maG$mB
76 w!
77 new Xtwo
78 call setline(1, ['ccc', 'ddd'])
79 norm! $mcGmD
80 w!
81
82 b Xone
Bram Moolenaar9d5185b2018-07-08 17:57:34 +020083 let a = split(execute('marks'), "\n")
Bram Moolenaar9b69f222017-10-08 21:53:15 +020084 call assert_equal(9, len(a))
85 call assert_equal('mark line col file/text', a[0])
86 call assert_equal(" ' 2 0 bbb", a[1])
87 call assert_equal(' a 1 0 aaa', a[2])
88 call assert_equal(' B 2 2 bbb', a[3])
89 call assert_equal(' D 2 0 Xtwo', a[4])
90 call assert_equal(' " 1 0 aaa', a[5])
91 call assert_equal(' [ 1 0 aaa', a[6])
92 call assert_equal(' ] 2 0 bbb', a[7])
93 call assert_equal(' . 2 0 bbb', a[8])
94
95 b Xtwo
Bram Moolenaar9d5185b2018-07-08 17:57:34 +020096 let a = split(execute('marks'), "\n")
Bram Moolenaar9b69f222017-10-08 21:53:15 +020097 call assert_equal(9, len(a))
98 call assert_equal('mark line col file/text', a[0])
99 call assert_equal(" ' 1 0 ccc", a[1])
100 call assert_equal(' c 1 2 ccc', a[2])
101 call assert_equal(' B 2 2 Xone', a[3])
102 call assert_equal(' D 2 0 ddd', a[4])
103 call assert_equal(' " 2 0 ddd', a[5])
104 call assert_equal(' [ 1 0 ccc', a[6])
105 call assert_equal(' ] 2 0 ddd', a[7])
106 call assert_equal(' . 2 0 ddd', a[8])
107
108 b Xone
109 delmarks aB
Bram Moolenaar9d5185b2018-07-08 17:57:34 +0200110 let a = split(execute('marks aBcD'), "\n")
Bram Moolenaar9b69f222017-10-08 21:53:15 +0200111 call assert_equal(2, len(a))
112 call assert_equal('mark line col file/text', a[0])
113 call assert_equal(' D 2 0 Xtwo', a[1])
114
115 b Xtwo
116 delmarks cD
117 call assert_fails('marks aBcD', 'E283:')
118
119 call delete('Xone')
120 call delete('Xtwo')
121 %bwipe
122endfunc
Bram Moolenaar9d5185b2018-07-08 17:57:34 +0200123
124func Test_marks_cmd_multibyte()
Bram Moolenaar9d5185b2018-07-08 17:57:34 +0200125 new Xone
Bram Moolenaarbde14d82018-07-10 15:22:32 +0200126 call setline(1, [repeat('á', &columns)])
Bram Moolenaar9d5185b2018-07-08 17:57:34 +0200127 norm! ma
128
129 let a = split(execute('marks a'), "\n")
130 call assert_equal(2, len(a))
Bram Moolenaarbde14d82018-07-10 15:22:32 +0200131 let expected = ' a 1 0 ' . repeat('á', &columns - 16)
Bram Moolenaar9d5185b2018-07-08 17:57:34 +0200132 call assert_equal(expected, a[1])
133
134 bwipe!
135endfunc
Bram Moolenaar71b13e92019-02-04 21:14:45 +0100136
137func Test_delmarks()
138 new
139 norm mx
140 norm `x
141 delmarks x
142 call assert_fails('norm `x', 'E20:')
143
144 " Deleting an already deleted mark should not fail.
145 delmarks x
146
Bram Moolenaar8cd6cd82019-12-27 17:33:26 +0100147 " getpos() should return all zeros after deleting a filemark.
148 norm mA
149 delmarks A
150 call assert_equal([0, 0, 0, 0], getpos("'A"))
151
Bram Moolenaar71b13e92019-02-04 21:14:45 +0100152 " Test deleting a range of marks.
153 norm ma
154 norm mb
155 norm mc
156 norm mz
157 delmarks b-z
158 norm `a
159 call assert_fails('norm `b', 'E20:')
160 call assert_fails('norm `c', 'E20:')
161 call assert_fails('norm `z', 'E20:')
162 call assert_fails('delmarks z-b', 'E475:')
163
164 call assert_fails('delmarks', 'E471:')
165 call assert_fails('delmarks /', 'E475:')
166
167 " Test delmarks!
168 norm mx
169 norm `x
170 delmarks!
171 call assert_fails('norm `x', 'E20:')
172 call assert_fails('delmarks! x', 'E474:')
173
174 bwipe!
175endfunc
176
177func Test_mark_error()
178 call assert_fails('mark', 'E471:')
179 call assert_fails('mark xx', 'E488:')
180 call assert_fails('mark _', 'E191:')
181endfunc
Bram Moolenaar54c8d222019-12-02 20:41:39 +0100182
183" Test for :lockmarks when pasting content
184func Test_lockmarks_with_put()
185 new
186 call append(0, repeat(['sky is blue'], 4))
187 normal gg
188 1,2yank r
189 put r
190 normal G
191 lockmarks put r
192 call assert_equal(2, line("'["))
193 call assert_equal(3, line("']"))
194
195 bwipe!
196endfunc
197
198" vim: shiftwidth=2 sts=2 expandtab