Mercurial > vim
comparison src/testdir/test_textformat.vim @ 13146:d9a94be389b5 v8.0.1447
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 |