Mercurial > vim

comparison src/testdir/test_eval_stuff.vim @ 20211:3a94b984c9f9 v8.2.0661

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.0661: eval test is still old style Commit: https://github.com/vim/vim/commit/339d60c89bef0315343a6128a1b4826510b0efe4 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Apr 29 22:01:21 2020 +0200 patch 8.2.0661: eval test is still old style Problem: Eval test is still old style. Solution: Change into new style tests. (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/6009)
author Bram Moolenaar <Bram@vim.org>
date Wed, 29 Apr 2020 22:15:04 +0200
parents 94f05de75e9f
children 6ff992bf4c82
comparison
equal deleted inserted replaced
20210:94eacaea0709 20211:3a94b984c9f9
352 352
353 call setreg('I', 'abcI') 353 call setreg('I', 'abcI')
354 call Assert_reg('I', "v", "abcI", "['abcI']", "abcI", "['abcI']") 354 call Assert_reg('I', "v", "abcI", "['abcI']", "abcI", "['abcI']")
355 call Assert_regput('I', ['==', '=abcI=']) 355 call Assert_regput('I', ['==', '=abcI='])
356 356
357 " Appending NL with setreg()
358 call setreg('a', 'abcA2', 'c')
359 call setreg('b', 'abcB2', 'v')
360 call setreg('c', 'abcC2', 'l')
361 call setreg('d', 'abcD2', 'V')
362 call setreg('e', 'abcE2', 'b')
363 call setreg('f', 'abcF2', "\<C-v>")
364 call setreg('g', 'abcG2', 'b10')
365 call setreg('h', 'abcH2', "\<C-v>10")
366 call setreg('I', 'abcI2')
367
368 call setreg('A', "\n")
369 call Assert_reg('A', 'V', "abcA2\n", "['abcA2']", "abcA2\n", "['abcA2']")
370 call Assert_regput('A', ['==', 'abcA2', '=='])
371
372 call setreg('B', "\n", 'c')
373 call Assert_reg('B', 'v', "abcB2\n", "['abcB2', '']", "abcB2\n", "['abcB2', '']")
374 call Assert_regput('B', ['==', '=abcB2', '='])
375
376 call setreg('C', "\n")
377 call Assert_reg('C', 'V', "abcC2\n\n", "['abcC2', '']", "abcC2\n\n", "['abcC2', '']")
378 call Assert_regput('C', ['==', 'abcC2', '', '=='])
379
380 call setreg('D', "\n", 'l')
381 call Assert_reg('D', 'V', "abcD2\n\n", "['abcD2', '']", "abcD2\n\n", "['abcD2', '']")
382 call Assert_regput('D', ['==', 'abcD2', '', '=='])
383
384 call setreg('E', "\n")
385 call Assert_reg('E', 'V', "abcE2\n\n", "['abcE2', '']", "abcE2\n\n", "['abcE2', '']")
386 call Assert_regput('E', ['==', 'abcE2', '', '=='])
387
388 call setreg('F', "\n", 'b')
389 call Assert_reg('F', "\<C-V>0", "abcF2\n", "['abcF2', '']", "abcF2\n", "['abcF2', '']")
390 call Assert_regput('F', ['==', '=abcF2=', ' '])
391
392 " Setting lists with setreg()
393 call setreg('a', ['abcA3'], 'c')
394 call Assert_reg('a', 'v', "abcA3", "['abcA3']", "abcA3", "['abcA3']")
395 call Assert_regput('a', ['==', '=abcA3='])
396
397 call setreg('b', ['abcB3'], 'l')
398 call Assert_reg('b', 'V', "abcB3\n", "['abcB3']", "abcB3\n", "['abcB3']")
399 call Assert_regput('b', ['==', 'abcB3', '=='])
400
401 call setreg('c', ['abcC3'], 'b')
402 call Assert_reg('c', "\<C-V>5", "abcC3", "['abcC3']", "abcC3", "['abcC3']")
403 call Assert_regput('c', ['==', '=abcC3='])
404
405 call setreg('d', ['abcD3'])
406 call Assert_reg('d', 'V', "abcD3\n", "['abcD3']", "abcD3\n", "['abcD3']")
407 call Assert_regput('d', ['==', 'abcD3', '=='])
408
409 call setreg('e', [1, 2, 'abc', 3])
410 call Assert_reg('e', 'V', "1\n2\nabc\n3\n", "['1', '2', 'abc', '3']", "1\n2\nabc\n3\n", "['1', '2', 'abc', '3']")
411 call Assert_regput('e', ['==', '1', '2', 'abc', '3', '=='])
412
413 call setreg('f', [1, 2, 3])
414 call Assert_reg('f', 'V', "1\n2\n3\n", "['1', '2', '3']", "1\n2\n3\n", "['1', '2', '3']")
415 call Assert_regput('f', ['==', '1', '2', '3', '=='])
416
417 " Appending lists with setreg()
418 call setreg('A', ['abcA3c'], 'c')
419 call Assert_reg('A', 'v', "abcA3\nabcA3c", "['abcA3', 'abcA3c']", "abcA3\nabcA3c", "['abcA3', 'abcA3c']")
420 call Assert_regput('A', ['==', '=abcA3', 'abcA3c='])
421
422 call setreg('b', ['abcB3l'], 'la')
423 call Assert_reg('b', 'V', "abcB3\nabcB3l\n", "['abcB3', 'abcB3l']", "abcB3\nabcB3l\n", "['abcB3', 'abcB3l']")
424 call Assert_regput('b', ['==', 'abcB3', 'abcB3l', '=='])
425
426 call setreg('C', ['abcC3b'], 'lb')
427 call Assert_reg('C', "\<C-V>6", "abcC3\nabcC3b", "['abcC3', 'abcC3b']", "abcC3\nabcC3b", "['abcC3', 'abcC3b']")
428 call Assert_regput('C', ['==', '=abcC3 =', ' abcC3b'])
429
430 call setreg('D', ['abcD32'])
431 call Assert_reg('D', 'V', "abcD3\nabcD32\n", "['abcD3', 'abcD32']", "abcD3\nabcD32\n", "['abcD3', 'abcD32']")
432 call Assert_regput('D', ['==', 'abcD3', 'abcD32', '=='])
433
434 call setreg('A', ['abcA32'])
435 call Assert_reg('A', 'V', "abcA3\nabcA3c\nabcA32\n", "['abcA3', 'abcA3c', 'abcA32']", "abcA3\nabcA3c\nabcA32\n", "['abcA3', 'abcA3c', 'abcA32']")
436 call Assert_regput('A', ['==', 'abcA3', 'abcA3c', 'abcA32', '=='])
437
438 call setreg('B', ['abcB3c'], 'c')
439 call Assert_reg('B', 'v', "abcB3\nabcB3l\nabcB3c", "['abcB3', 'abcB3l', 'abcB3c']", "abcB3\nabcB3l\nabcB3c", "['abcB3', 'abcB3l', 'abcB3c']")
440 call Assert_regput('B', ['==', '=abcB3', 'abcB3l', 'abcB3c='])
441
442 call setreg('C', ['abcC3l'], 'l')
443 call Assert_reg('C', 'V', "abcC3\nabcC3b\nabcC3l\n", "['abcC3', 'abcC3b', 'abcC3l']", "abcC3\nabcC3b\nabcC3l\n", "['abcC3', 'abcC3b', 'abcC3l']")
444 call Assert_regput('C', ['==', 'abcC3', 'abcC3b', 'abcC3l', '=='])
445
446 call setreg('D', ['abcD3b'], 'b')
447 call Assert_reg('D', "\<C-V>6", "abcD3\nabcD32\nabcD3b", "['abcD3', 'abcD32', 'abcD3b']", "abcD3\nabcD32\nabcD3b", "['abcD3', 'abcD32', 'abcD3b']")
448 call Assert_regput('D', ['==', '=abcD3 =', ' abcD32', ' abcD3b'])
449
450 " Appending lists with NL with setreg()
451 call setreg('A', ["\n", 'abcA3l2'], 'l')
452 call Assert_reg('A', "V", "abcA3\nabcA3c\nabcA32\n\n\nabcA3l2\n", "['abcA3', 'abcA3c', 'abcA32', '\n', 'abcA3l2']", "abcA3\nabcA3c\nabcA32\n\n\nabcA3l2\n", "['abcA3', 'abcA3c', 'abcA32', '\n', 'abcA3l2']")
453 call Assert_regput('A', ['==', 'abcA3', 'abcA3c', 'abcA32', "\n", 'abcA3l2', '=='])
454
455 call setreg('B', ["\n", 'abcB3c2'], 'c')
456 call Assert_reg('B', "v", "abcB3\nabcB3l\nabcB3c\n\n\nabcB3c2", "['abcB3', 'abcB3l', 'abcB3c', '\n', 'abcB3c2']", "abcB3\nabcB3l\nabcB3c\n\n\nabcB3c2", "['abcB3', 'abcB3l', 'abcB3c', '\n', 'abcB3c2']")
457 call Assert_regput('B', ['==', '=abcB3', 'abcB3l', 'abcB3c', "\n", 'abcB3c2='])
458
459 call setreg('C', ["\n", 'abcC3b2'], 'b')
460 call Assert_reg('C', "7", "abcC3\nabcC3b\nabcC3l\n\n\nabcC3b2", "['abcC3', 'abcC3b', 'abcC3l', '\n', 'abcC3b2']", "abcC3\nabcC3b\nabcC3l\n\n\nabcC3b2", "['abcC3', 'abcC3b', 'abcC3l', '\n', 'abcC3b2']")
461 call Assert_regput('C', ['==', '=abcC3 =', ' abcC3b', ' abcC3l', " \n", ' abcC3b2'])
462
463 call setreg('D', ["\n", 'abcD3b50'],'b50')
464 call Assert_reg('D', "50", "abcD3\nabcD32\nabcD3b\n\n\nabcD3b50", "['abcD3', 'abcD32', 'abcD3b', '\n', 'abcD3b50']", "abcD3\nabcD32\nabcD3b\n\n\nabcD3b50", "['abcD3', 'abcD32', 'abcD3b', '\n', 'abcD3b50']")
465 call Assert_regput('D', ['==', '=abcD3 =', ' abcD32', ' abcD3b', " \n", ' abcD3b50'])
466
467 " Setting lists with NLs with setreg()
468 call setreg('a', ['abcA4-0', "\n", "abcA4-2\n", "\nabcA4-3", "abcA4-4\nabcA4-4-2"])
469 call Assert_reg('a', "V", "abcA4-0\n\n\nabcA4-2\n\n\nabcA4-3\nabcA4-4\nabcA4-4-2\n", "['abcA4-0', '\n', 'abcA4-2\n', '\nabcA4-3', 'abcA4-4\nabcA4-4-2']", "abcA4-0\n\n\nabcA4-2\n\n\nabcA4-3\nabcA4-4\nabcA4-4-2\n", "['abcA4-0', '\n', 'abcA4-2\n', '\nabcA4-3', 'abcA4-4\nabcA4-4-2']")
470 call Assert_regput('a', ['==', 'abcA4-0', "\n", "abcA4-2\n", "\nabcA4-3", "abcA4-4\nabcA4-4-2", '=='])
471
472 call setreg('b', ['abcB4c-0', "\n", "abcB4c-2\n", "\nabcB4c-3", "abcB4c-4\nabcB4c-4-2"], 'c')
473 call Assert_reg('b', "v", "abcB4c-0\n\n\nabcB4c-2\n\n\nabcB4c-3\nabcB4c-4\nabcB4c-4-2", "['abcB4c-0', '\n', 'abcB4c-2\n', '\nabcB4c-3', 'abcB4c-4\nabcB4c-4-2']", "abcB4c-0\n\n\nabcB4c-2\n\n\nabcB4c-3\nabcB4c-4\nabcB4c-4-2", "['abcB4c-0', '\n', 'abcB4c-2\n', '\nabcB4c-3', 'abcB4c-4\nabcB4c-4-2']")
474 call Assert_regput('b', ['==', '=abcB4c-0', "\n", "abcB4c-2\n", "\nabcB4c-3", "abcB4c-4\nabcB4c-4-2="])
475
476 call setreg('c', ['abcC4l-0', "\n", "abcC4l-2\n", "\nabcC4l-3", "abcC4l-4\nabcC4l-4-2"], 'l')
477 call Assert_reg('c', "V", "abcC4l-0\n\n\nabcC4l-2\n\n\nabcC4l-3\nabcC4l-4\nabcC4l-4-2\n", "['abcC4l-0', '\n', 'abcC4l-2\n', '\nabcC4l-3', 'abcC4l-4\nabcC4l-4-2']", "abcC4l-0\n\n\nabcC4l-2\n\n\nabcC4l-3\nabcC4l-4\nabcC4l-4-2\n", "['abcC4l-0', '\n', 'abcC4l-2\n', '\nabcC4l-3', 'abcC4l-4\nabcC4l-4-2']")
478 call Assert_regput('c', ['==', 'abcC4l-0', "\n", "abcC4l-2\n", "\nabcC4l-3", "abcC4l-4\nabcC4l-4-2", '=='])
479
480 call setreg('d', ['abcD4b-0', "\n", "abcD4b-2\n", "\nabcD4b-3", "abcD4b-4\nabcD4b-4-2"], 'b')
481 call Assert_reg('d', "19", "abcD4b-0\n\n\nabcD4b-2\n\n\nabcD4b-3\nabcD4b-4\nabcD4b-4-2", "['abcD4b-0', '\n', 'abcD4b-2\n', '\nabcD4b-3', 'abcD4b-4\nabcD4b-4-2']", "abcD4b-0\n\n\nabcD4b-2\n\n\nabcD4b-3\nabcD4b-4\nabcD4b-4-2", "['abcD4b-0', '\n', 'abcD4b-2\n', '\nabcD4b-3', 'abcD4b-4\nabcD4b-4-2']")
482 call Assert_regput('d', ['==', '=abcD4b-0 =', " \n", " abcD4b-2\n", " \nabcD4b-3", " abcD4b-4\nabcD4b-4-2"])
483
484 call setreg('e', ['abcE4b10-0', "\n", "abcE4b10-2\n", "\nabcE4b10-3", "abcE4b10-4\nabcE4b10-4-2"], 'b10')
485 call Assert_reg('e', "10", "abcE4b10-0\n\n\nabcE4b10-2\n\n\nabcE4b10-3\nabcE4b10-4\nabcE4b10-4-2", "['abcE4b10-0', '\n', 'abcE4b10-2\n', '\nabcE4b10-3', 'abcE4b10-4\nabcE4b10-4-2']", "abcE4b10-0\n\n\nabcE4b10-2\n\n\nabcE4b10-3\nabcE4b10-4\nabcE4b10-4-2", "['abcE4b10-0', '\n', 'abcE4b10-2\n', '\nabcE4b10-3', 'abcE4b10-4\nabcE4b10-4-2']")
486 call Assert_regput('e', ['==', '=abcE4b10-0=', " \n", " abcE4b10-2\n", " \nabcE4b10-3", " abcE4b10-4\nabcE4b10-4-2"])
487
488 " Search and expressions
489 call setreg('/', ['abc/'])
490 call Assert_reg('/', 'v', "abc/", "['abc/']", "abc/", "['abc/']")
491 call Assert_regput('/', ['==', '=abc/='])
492
493 call setreg('/', ["abc/\n"])
494 call Assert_reg('/', 'v', "abc/\n", "['abc/\n']", "abc/\n", "['abc/\n']")
495 call Assert_regput('/', ['==', "=abc/\n="])
496
497 call setreg('=', ['"abc/"'])
498 call Assert_reg('=', 'v', "abc/", "['abc/']", '"abc/"', "['\"abc/\"']")
499
500 call setreg('=', ["\"abc/\n\""])
501 call Assert_reg('=', 'v', "abc/\n", "['abc/\n']", "\"abc/\n\"", "['\"abc/\n\"']")
502
503 " System clipboard
504 if has('clipboard')
505 new | only!
506 call setline(1, ['clipboard contents', 'something else'])
507 " Save and restore system clipboard.
508 " If no connection to X-Server is possible, test should succeed.
509 let _clipreg = ['*', getreg('*'), getregtype('*')]
510 let _clipopt = &cb
511 let &cb='unnamed'
512 1y
513 call Assert_reg('*', 'V', "clipboard contents\n", "['clipboard contents']", "clipboard contents\n", "['clipboard contents']")
514 tabdo :windo :echo "hi"
515 2y
516 call Assert_reg('*', 'V', "something else\n", "['something else']", "something else\n", "['something else']")
517 let &cb=_clipopt
518 call call('setreg', _clipreg)
519 enew!
520 endif
521
357 " Error cases 522 " Error cases
358 call assert_fails('call setreg()', 'E119:') 523 call assert_fails('call setreg()', 'E119:')
359 call assert_fails('call setreg(1)', 'E119:') 524 call assert_fails('call setreg(1)', 'E119:')
360 call assert_fails('call setreg(1, 2, 3, 4)', 'E118:') 525 call assert_fails('call setreg(1, 2, 3, 4)', 'E118:')
361 call assert_fails('call setreg([], 2)', 'E730:') 526 call assert_fails('call setreg([], 2)', 'E730:')