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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
" Test for various indent options
func Test_preserveindent()
new
" Test for autoindent copying indent from the previous line
setlocal autoindent
call setline(1, [repeat(' ', 16) .. 'line1'])
call feedkeys("A\nline2", 'xt')
call assert_equal("\t\tline2", getline(2))
setlocal autoindent&
" Test for using CTRL-T with and without 'preserveindent'
set shiftwidth=4
call cursor(1, 1)
call setline(1, " \t ")
call feedkeys("Al\<C-T>", 'xt')
call assert_equal("\t\tl", getline(1))
set preserveindent
call setline(1, " \t ")
call feedkeys("Al\<C-T>", 'xt')
call assert_equal(" \t \tl", getline(1))
set pi& sw&
" Test for using CTRL-T with 'expandtab' and 'preserveindent'
call cursor(1, 1)
call setline(1, "\t \t")
set shiftwidth=4 expandtab preserveindent
call feedkeys("Al\<C-T>", 'xt')
call assert_equal("\t \t l", getline(1))
set sw& et& pi&
close!
endfunc
" Test for indent()
func Test_indent_func()
call assert_equal(-1, indent(-1))
new
call setline(1, "\tabc")
call assert_equal(8, indent(1))
call setline(1, " abc")
call assert_equal(4, indent(1))
call setline(1, " \t abc")
call assert_equal(12, indent(1))
close!
endfunc
" Test for reindenting a line using the '=' operator
func Test_reindent()
new
call setline(1, 'abc')
set nomodifiable
call assert_fails('normal ==', 'E21:')
set modifiable
call setline(1, ['foo', 'bar'])
call feedkeys('ggVG=', 'xt')
call assert_equal(['foo', 'bar'], getline(1, 2))
close!
endfunc
" Test indent operator creating one undo entry
func Test_indent_operator_undo()
enew
call setline(1, range(12)->map('"\t" .. v:val'))
func FoldExpr()
let g:foldcount += 1
return '='
endfunc
set foldmethod=expr foldexpr=FoldExpr()
let g:foldcount = 0
redraw
call assert_equal(12, g:foldcount)
normal gg=G
call assert_equal(24, g:foldcount)
undo
call assert_equal(38, g:foldcount)
bwipe!
set foldmethod& foldexpr=
delfunc FoldExpr
unlet g:foldcount
endfunc
" Test for shifting a line with a preprocessor directive ('#')
func Test_preproc_indent()
new
set sw=4
call setline(1, '#define FOO 1')
normal >>
call assert_equal(' #define FOO 1', getline(1))
" with 'smartindent'
call setline(1, '#define FOO 1')
set smartindent
normal >>
call assert_equal('#define FOO 1', getline(1))
set smartindent&
" with 'cindent'
set cindent
normal >>
call assert_equal('#define FOO 1', getline(1))
set cindent&
close!
endfunc
" Test for 'copyindent'
func Test_copyindent()
new
set shiftwidth=4 autoindent expandtab copyindent
call setline(1, " \t abc")
call feedkeys("ol", 'xt')
call assert_equal(" \t l", getline(2))
set noexpandtab
call setline(1, " \t abc")
call feedkeys("ol", 'xt')
call assert_equal(" \t l", getline(2))
set sw& ai& et& ci&
close!
endfunc
" Test for changing multiple lines with lisp indent
func Test_lisp_indent_change_multiline()
new
setlocal lisp autoindent
call setline(1, ['(if a', ' (if b', ' (return 5)))'])
normal! jc2j(return 4))
call assert_equal(' (return 4))', getline(2))
close!
endfunc
func Test_lisp_indent()
new
setlocal lisp autoindent
call setline(1, ['(if a', ' ;; comment', ' \ abc', '', ' " str1\', ' " st\b', ' (return 5)'])
normal! jo;; comment
normal! jo\ abc
normal! jo;; ret
normal! jostr1"
normal! jostr2"
call assert_equal([' ;; comment', ' ;; comment', ' \ abc', ' \ abc', '', ' ;; ret', ' " str1\', ' str1"', ' " st\b', ' str2"'], getline(2, 11))
close!
endfunc
func Test_lisp_indent_quoted()
" This was going past the end of the line
new
setlocal lisp autoindent
call setline(1, ['"[', '='])
normal Gvk=
bwipe!
endfunc
" Test for setting the 'indentexpr' from a modeline
func Test_modeline_indent_expr()
let modeline = &modeline
set modeline
func GetIndent()
return line('.') * 2
endfunc
call writefile(['# vim: indentexpr=GetIndent()'], 'Xmlfile.txt', 'D')
set modelineexpr
new Xmlfile.txt
call assert_equal('GetIndent()', &indentexpr)
exe "normal Oa\nb\n"
call assert_equal([' a', ' b'], getline(1, 2))
set modelineexpr&
delfunc GetIndent
let &modeline = modeline
close!
endfunc
func Test_indent_func_with_gq()
function GetTeXIndent()
" Sample indent expression for TeX files
let lnum = prevnonblank(v:lnum - 1)
" At the start of the file use zero indent.
if lnum == 0
return 0
endif
let line = getline(lnum)
let ind = indent(lnum)
" Add a 'shiftwidth' after beginning of environments.
if line =~ '\\begin{center}'
let ind = ind + shiftwidth()
endif
return ind
endfunction
new
setl et sw=2 sts=2 ts=2 tw=50 indentexpr=GetTeXIndent()
put =[ '\documentclass{article}', '', '\begin{document}', '',
\ 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce ut enim non',
\ 'libero efficitur aliquet. Maecenas metus justo, facilisis convallis blandit',
\ 'non, semper eu urna. Suspendisse diam diam, iaculis faucibus lorem eu,',
\ 'fringilla condimentum lectus. Quisque euismod diam at convallis vulputate.',
\ 'Pellentesque laoreet tortor sit amet mauris euismod ornare. Sed varius',
\ 'bibendum orci vel vehicula. Pellentesque tempor, ipsum et auctor accumsan,',
\ 'metus lectus ultrices odio, sed elementum mi ante at arcu.', '', '\begin{center}', '',
\ 'Proin nec risus consequat nunc dapibus consectetur. Mauris lacinia est a augue',
\ 'tristique accumsan. Morbi pretium, felis molestie eleifend condimentum, arcu',
\ 'ipsum congue nisl, quis euismod purus libero in ante.', '',
\ 'Donec id semper purus.',
\ 'Suspendisse eget aliquam nunc. Maecenas fringilla mauris vitae maximus',
\ 'condimentum. Cras a quam in mi dictum eleifend at a lorem. Sed convallis',
\ 'ante a commodo facilisis. Nam suscipit vulputate odio, vel dapibus nisl',
\ 'dignissim facilisis. Vestibulum ante ipsum primis in faucibus orci luctus et',
\ 'ultrices posuere cubilia curae;', '', '']
1d_
call cursor(5, 1)
ka
call cursor(14, 1)
kb
norm! 'agqap
norm! 'bgqG
let expected = [ '\documentclass{article}', '', '\begin{document}', '',
\ 'Lorem ipsum dolor sit amet, consectetur adipiscing',
\ 'elit. Fusce ut enim non libero efficitur aliquet.',
\ 'Maecenas metus justo, facilisis convallis blandit',
\ 'non, semper eu urna. Suspendisse diam diam,',
\ 'iaculis faucibus lorem eu, fringilla condimentum',
\ 'lectus. Quisque euismod diam at convallis',
\ 'vulputate. Pellentesque laoreet tortor sit amet',
\ 'mauris euismod ornare. Sed varius bibendum orci',
\ 'vel vehicula. Pellentesque tempor, ipsum et auctor',
\ 'accumsan, metus lectus ultrices odio, sed',
\ 'elementum mi ante at arcu.', '', '\begin{center}', '',
\ ' Proin nec risus consequat nunc dapibus',
\ ' consectetur. Mauris lacinia est a augue',
\ ' tristique accumsan. Morbi pretium, felis',
\ ' molestie eleifend condimentum, arcu ipsum congue',
\ ' nisl, quis euismod purus libero in ante.',
\ '',
\ ' Donec id semper purus. Suspendisse eget aliquam',
\ ' nunc. Maecenas fringilla mauris vitae maximus',
\ ' condimentum. Cras a quam in mi dictum eleifend',
\ ' at a lorem. Sed convallis ante a commodo',
\ ' facilisis. Nam suscipit vulputate odio, vel',
\ ' dapibus nisl dignissim facilisis. Vestibulum',
\ ' ante ipsum primis in faucibus orci luctus et',
\ ' ultrices posuere cubilia curae;', '', '']
call assert_equal(expected, getline(1, '$'))
bwipe!
delmark ab
delfunction GetTeXIndent
endfu
func Test_formatting_keeps_first_line_indent()
let lines =<< trim END
foo()
{
int x; // manually positioned
// more text that will be formatted
// but not reindented
END
new
call setline(1, lines)
setlocal sw=4 cindent tw=45 et
normal! 4Ggqj
let expected =<< trim END
foo()
{
int x; // manually positioned
// more text that will be
// formatted but not
// reindented
END
call assert_equal(expected, getline(1, '$'))
bwipe!
endfunc
" Test for indenting with large amount, causes overflow
func Test_indent_overflow_count()
new
setl sw=8
call setline(1, "abc")
norm! V2147483647>
" indents by INT_MAX
call assert_equal(2147483647, indent(1))
close!
endfunc
func Test_indent_overflow_count2()
new
" this only works, when long is 64bits
try
setl sw=0x180000000
catch /^Vim\%((\a\+)\)\=:E487:/
throw 'Skipped: value negative on this platform'
endtry
call setline(1, "\tabc")
norm! <<
call assert_equal(0, indent(1))
close!
endfunc
" vim: shiftwidth=2 sts=2 expandtab
|
