Mercurial > vim

comparison src/testdir/test_textformat.vim @ 13146:d9a94be389b5 v8.0.1447

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.0.1447: still too many old style tests commit https://github.com/vim/vim/commit/cada78975eebc47f9b12de1a471639b5afd9ad2f Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jan 31 19:30:24 2018 +0100 patch 8.0.1447: still too many old style tests Problem: Still too many old style tests. Solution: Turn a few tests into new style. (Yegappan Lakshmanan, closes #2509)
author Christian Brabandt <cb@256bit.org>
date Wed, 31 Jan 2018 19:45:05 +0100
parents 90aaa974594e
children fe428bee74b3
comparison
equal deleted inserted replaced
13145:e85e221ef3ce 13146:d9a94be389b5
164 \ '# foobar'], getline(1, 2)) 164 \ '# foobar'], getline(1, 2))
165 165
166 setl ai& tw& fo& si& comments& 166 setl ai& tw& fo& si& comments&
167 enew! 167 enew!
168 endfunc 168 endfunc
169
170 " Tests for :right, :center and :left on text with embedded TAB.
171 func Test_format_align()
172 enew!
173 set tw=65
174
175 " :left alignment
176 call append(0, [
177 \ " test for :left",
178 \ " a a",
179 \ " fa a",
180 \ " dfa a",
181 \ " sdfa a",
182 \ " asdfa a",
183 \ " xasdfa a",
184 \ "asxxdfa a",
185 \ ])
186 %left
187 call assert_equal([
188 \ "test for :left",
189 \ "a a",
190 \ "fa a",
191 \ "dfa a",
192 \ "sdfa a",
193 \ "asdfa a",
194 \ "xasdfa a",
195 \ "asxxdfa a",
196 \ ""
197 \ ], getline(1, '$'))
198 enew!
199
200 " :center alignment
201 call append(0, [
202 \ " test for :center",
203 \ " a a",
204 \ " fa afd asdf",
205 \ " dfa a",
206 \ " sdfa afd asdf",
207 \ " asdfa a",
208 \ " xasdfa asdfasdfasdfasdfasdf",
209 \ "asxxdfa a"
210 \ ])
211 %center
212 call assert_equal([
213 \ " test for :center",
214 \ " a a",
215 \ " fa afd asdf",
216 \ " dfa a",
217 \ " sdfa afd asdf",
218 \ " asdfa a",
219 \ " xasdfa asdfasdfasdfasdfasdf",
220 \ " asxxdfa a",
221 \ ""
222 \ ], getline(1, '$'))
223 enew!
224
225 " :right alignment
226 call append(0, [
227 \ " test for :right",
228 \ " a a",
229 \ " fa a",
230 \ " dfa a",
231 \ " sdfa a",
232 \ " asdfa a",
233 \ " xasdfa a",
234 \ " asxxdfa a",
235 \ " asxa;ofa a",
236 \ " asdfaqwer a",
237 \ " a ax",
238 \ " fa ax",
239 \ " dfa ax",
240 \ " sdfa ax",
241 \ " asdfa ax",
242 \ " xasdfa ax",
243 \ " asxxdfa ax",
244 \ " asxa;ofa ax",
245 \ " asdfaqwer ax",
246 \ " a axx",
247 \ " fa axx",
248 \ " dfa axx",
249 \ " sdfa axx",
250 \ " asdfa axx",
251 \ " xasdfa axx",
252 \ " asxxdfa axx",
253 \ " asxa;ofa axx",
254 \ " asdfaqwer axx",
255 \ " a axxx",
256 \ " fa axxx",
257 \ " dfa axxx",
258 \ " sdfa axxx",
259 \ " asdfa axxx",
260 \ " xasdfa axxx",
261 \ " asxxdfa axxx",
262 \ " asxa;ofa axxx",
263 \ " asdfaqwer axxx",
264 \ " a axxxo",
265 \ " fa axxxo",
266 \ " dfa axxxo",
267 \ " sdfa axxxo",
268 \ " asdfa axxxo",
269 \ " xasdfa axxxo",
270 \ " asxxdfa axxxo",
271 \ " asxa;ofa axxxo",
272 \ " asdfaqwer axxxo",
273 \ " a axxxoi",
274 \ " fa axxxoi",
275 \ " dfa axxxoi",
276 \ " sdfa axxxoi",
277 \ " asdfa axxxoi",
278 \ " xasdfa axxxoi",
279 \ " asxxdfa axxxoi",
280 \ " asxa;ofa axxxoi",
281 \ " asdfaqwer axxxoi",
282 \ " a axxxoik",
283 \ " fa axxxoik",
284 \ " dfa axxxoik",
285 \ " sdfa axxxoik",
286 \ " asdfa axxxoik",
287 \ " xasdfa axxxoik",
288 \ " asxxdfa axxxoik",
289 \ " asxa;ofa axxxoik",
290 \ " asdfaqwer axxxoik",
291 \ " a axxxoike",
292 \ " fa axxxoike",
293 \ " dfa axxxoike",
294 \ " sdfa axxxoike",
295 \ " asdfa axxxoike",
296 \ " xasdfa axxxoike",
297 \ " asxxdfa axxxoike",
298 \ " asxa;ofa axxxoike",
299 \ " asdfaqwer axxxoike",
300 \ " a axxxoikey",
301 \ " fa axxxoikey",
302 \ " dfa axxxoikey",
303 \ " sdfa axxxoikey",
304 \ " asdfa axxxoikey",
305 \ " xasdfa axxxoikey",
306 \ " asxxdfa axxxoikey",
307 \ " asxa;ofa axxxoikey",
308 \ " asdfaqwer axxxoikey",
309 \ ])
310 %right
311 call assert_equal([
312 \ "\t\t\t\t test for :right",
313 \ "\t\t\t\t a a",
314 \ "\t\t\t\t fa a",
315 \ "\t\t\t\t dfa a",
316 \ "\t\t\t\t sdfa a",
317 \ "\t\t\t\t asdfa a",
318 \ "\t\t\t\t xasdfa a",
319 \ "\t\t\t\t asxxdfa a",
320 \ "\t\t\t\t asxa;ofa a",
321 \ "\t\t\t\t asdfaqwer a",
322 \ "\t\t\t\t a ax",
323 \ "\t\t\t\t fa ax",
324 \ "\t\t\t\t dfa ax",
325 \ "\t\t\t\t sdfa ax",
326 \ "\t\t\t\t asdfa ax",
327 \ "\t\t\t\t xasdfa ax",
328 \ "\t\t\t\t asxxdfa ax",
329 \ "\t\t\t\t asxa;ofa ax",
330 \ "\t\t\t\t asdfaqwer ax",
331 \ "\t\t\t\t a axx",
332 \ "\t\t\t\t fa axx",
333 \ "\t\t\t\t dfa axx",
334 \ "\t\t\t\t sdfa axx",
335 \ "\t\t\t\t asdfa axx",
336 \ "\t\t\t\t xasdfa axx",
337 \ "\t\t\t\t asxxdfa axx",
338 \ "\t\t\t\t asxa;ofa axx",
339 \ "\t\t\t\t asdfaqwer axx",
340 \ "\t\t\t\t a axxx",
341 \ "\t\t\t\t fa axxx",
342 \ "\t\t\t\t dfa axxx",
343 \ "\t\t\t\t sdfa axxx",
344 \ "\t\t\t\t asdfa axxx",
345 \ "\t\t\t\t xasdfa axxx",
346 \ "\t\t\t\t asxxdfa axxx",
347 \ "\t\t\t\t asxa;ofa axxx",
348 \ "\t\t\t\t asdfaqwer axxx",
349 \ "\t\t\t\t a axxxo",
350 \ "\t\t\t\t fa axxxo",
351 \ "\t\t\t\t dfa axxxo",
352 \ "\t\t\t\t sdfa axxxo",
353 \ "\t\t\t\t asdfa axxxo",
354 \ "\t\t\t\t xasdfa axxxo",
355 \ "\t\t\t\t asxxdfa axxxo",
356 \ "\t\t\t\t asxa;ofa axxxo",
357 \ "\t\t\t\t asdfaqwer axxxo",
358 \ "\t\t\t\t a axxxoi",
359 \ "\t\t\t\t fa axxxoi",
360 \ "\t\t\t\t dfa axxxoi",
361 \ "\t\t\t\t sdfa axxxoi",
362 \ "\t\t\t\t asdfa axxxoi",
363 \ "\t\t\t\t xasdfa axxxoi",
364 \ "\t\t\t\t asxxdfa axxxoi",
365 \ "\t\t\t\t asxa;ofa axxxoi",
366 \ "\t\t\t\t asdfaqwer axxxoi",
367 \ "\t\t\t\t a axxxoik",
368 \ "\t\t\t\t fa axxxoik",
369 \ "\t\t\t\t dfa axxxoik",
370 \ "\t\t\t\t sdfa axxxoik",
371 \ "\t\t\t\t asdfa axxxoik",
372 \ "\t\t\t\t xasdfa axxxoik",
373 \ "\t\t\t\t asxxdfa axxxoik",
374 \ "\t\t\t\t asxa;ofa axxxoik",
375 \ "\t\t\t\t asdfaqwer axxxoik",
376 \ "\t\t\t\t a axxxoike",
377 \ "\t\t\t\t fa axxxoike",
378 \ "\t\t\t\t dfa axxxoike",
379 \ "\t\t\t\t sdfa axxxoike",
380 \ "\t\t\t\t asdfa axxxoike",
381 \ "\t\t\t\t xasdfa axxxoike",
382 \ "\t\t\t\t asxxdfa axxxoike",
383 \ "\t\t\t\t asxa;ofa axxxoike",
384 \ "\t\t\t\t asdfaqwer axxxoike",
385 \ "\t\t\t\t a axxxoikey",
386 \ "\t\t\t\t fa axxxoikey",
387 \ "\t\t\t\t dfa axxxoikey",
388 \ "\t\t\t\t sdfa axxxoikey",
389 \ "\t\t\t\t asdfa axxxoikey",
390 \ "\t\t\t\t xasdfa axxxoikey",
391 \ "\t\t\t\t asxxdfa axxxoikey",
392 \ "\t\t\t\t asxa;ofa axxxoikey",
393 \ "\t\t\t\t asdfaqwer axxxoikey",
394 \ ""
395 \ ], getline(1, '$'))
396 enew!
397
398 set tw&
399 endfunc
400
401 " Test formatting a paragraph.
402 func Test_format_para()
403 enew!
404 set fo+=tcroql tw=72
405
406 call append(0, [
407 \ "xxxxx xx xxxxxx ",
408 \ "xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
409 \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx",
410 \ "xx xxxxxxx. xxxx xxxx.",
411 \ "",
412 \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx",
413 \ "> xxxxxx xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx"
414 \ ])
415 exe "normal /xxxxxxxx$\<CR>"
416 normal 0gq6kk
417 call assert_equal([
418 \ "xxxxx xx xxxxxx xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
419 \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx xx xxxxxxx.",
420 \ "xxxx xxxx.",
421 \ "",
422 \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx xxxxxx",
423 \ "> xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx",
424 \ ""
425 \ ], getline(1, '$'))
426
427 set fo& tw&
428 enew!
429 endfunc
430
431 " Test undo after ":%s" and formatting.
432 func Test_format_undo()
433 enew!
434 map gg :.,.+2s/^/x/<CR>kk:set tw=3<CR>gqq
435
436 call append(0, [
437 \ "aa aa aa aa",
438 \ "bb bb bb bb",
439 \ "cc cc cc cc"
440 \ ])
441 " undo/redo here to make the next undo only work on the following changes
442 exe "normal i\<C-G>u"
443 call cursor(1,1)
444 normal ggu
445 call assert_equal([
446 \ "aa aa aa aa",
447 \ "bb bb bb bb",
448 \ "cc cc cc cc",
449 \ ""
450 \ ], getline(1, '$'))
451
452 unmap gg
453 enew!
454 endfunc