vim: src/testdir/test_registers.vim annotate

annotate src/testdir/test_registers.vim @ 20968:1c36b96522ae v8.2.1035

patch 8.2.1035: setreg() does not always clear the register Commit: https://github.com/vim/vim/commit/7633fe595e6a27d6bb376548ff89f0dcce481600 Author: Bram Moolenaar <Bram@vim.org> Date: Mon Jun 22 19:10:56 2020 +0200 patch 8.2.1035: setreg() does not always clear the register Problem: setreg() does not always clear the register. Solution: Clear the register if the dict argument is empty. (Andy Massimino, closes #3370)

author	Bram Moolenaar <Bram@vim.org>
date	Mon, 22 Jun 2020 19:15:06 +0200
parents	4bdc07beeadb
children	599b29b6e540

rev	line source
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	1 "
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	2 " Tests for register operations
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	3 "
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	4
18784 7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	5 source check.vim
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	6
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	7 " This test must be executed first to check for empty and unset registers.
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	8 func Test_aaa_empty_reg_test()
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	9 call assert_fails('normal @@', 'E748:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	10 call assert_fails('normal @%', 'E354:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	11 call assert_fails('normal @#', 'E354:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	12 call assert_fails('normal @!', 'E354:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	13 call assert_fails('normal @:', 'E30:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	14 call assert_fails('normal @.', 'E29:')
18771 50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	15 call assert_fails('put /', 'E35:')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	16 call assert_fails('put .', 'E29:')
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	17 endfunc
11682 b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	18
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	19 func Test_yank_shows_register()
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	20 enew
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	21 set report=0
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	22 call setline(1, ['foo', 'bar'])
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	23 " Line-wise
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	24 exe 'norm! yy'
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	25 call assert_equal('1 line yanked', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	26 exe 'norm! "zyy'
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	27 call assert_equal('1 line yanked into "z', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	28 exe 'norm! yj'
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	29 call assert_equal('2 lines yanked', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	30 exe 'norm! "zyj'
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	31 call assert_equal('2 lines yanked into "z', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	32
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	33 " Block-wise
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	34 exe "norm! \<C-V>y"
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	35 call assert_equal('block of 1 line yanked', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	36 exe "norm! \<C-V>\"zy"
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	37 call assert_equal('block of 1 line yanked into "z', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	38 exe "norm! \<C-V>jy"
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	39 call assert_equal('block of 2 lines yanked', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	40 exe "norm! \<C-V>j\"zy"
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	41 call assert_equal('block of 2 lines yanked into "z', v:statusmsg)
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	42
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	43 bwipe!
b9928ef8632f patch 8.0.0724: the message for yanking doesn't indicate the register Christian Brabandt <cb@256bit.org> parents: diff changeset	44 endfunc
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	45
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	46 func Test_display_registers()
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	47 e file1
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	48 e file2
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	49 call setline(1, ['foo', 'bar'])
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	50 /bar
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	51 exe 'norm! y2l"axx'
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	52 call feedkeys("i\<C-R>=2*4\n\<esc>")
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	53 call feedkeys(":ls\n", 'xt')
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	54
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	55 let a = execute('display')
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	56 let b = execute('registers')
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	57
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	58 call assert_equal(a, b)
18436 6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	59 call assert_match('^\nType Name Content\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	60 \ . ' c "" a\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	61 \ . ' c "0 ba\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	62 \ . ' c "a b\n'
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	63 \ . '.*'
18436 6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	64 \ . ' c "- a\n'
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	65 \ . '.*'
18436 6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	66 \ . ' c ": ls\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	67 \ . ' c "% file2\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	68 \ . ' c "# file1\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	69 \ . ' c "/ bar\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	70 \ . ' c "= 2\*4', a)
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	71
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	72 let a = execute('registers a')
18436 6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	73 call assert_match('^\nType Name Content\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	74 \ . ' c "a b', a)
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	75
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	76 let a = execute('registers :')
18436 6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	77 call assert_match('^\nType Name Content\n'
6ec1bfb4690b patch 8.1.2212: cannot see the selection type in :reg output Bram Moolenaar <Bram@vim.org> parents: 16784 diff changeset	78 \ . ' c ": ls', a)
13855 536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	79
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	80 bwipe!
536874138ecd patch 8.0.1799: no test for :registers command Christian Brabandt <cb@256bit.org> parents: 11682 diff changeset	81 endfunc
15987 29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	82
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	83 func Test_register_one()
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	84 " delete a line goes into register one
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	85 new
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	86 call setline(1, "one")
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	87 normal dd
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	88 call assert_equal("one\n", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	89
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	90 " delete a word does not change register one, does change "-
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	91 call setline(1, "two")
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	92 normal de
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	93 call assert_equal("one\n", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	94 call assert_equal("two", @-)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	95
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	96 " delete a word with a register does not change register one
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	97 call setline(1, "three")
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	98 normal "ade
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	99 call assert_equal("three", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	100 call assert_equal("one\n", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	101
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	102 " delete a word with register DOES change register one with one of a list of
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	103 " operators
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	104 " %
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	105 call setline(1, ["(12)3"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	106 normal "ad%
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	107 call assert_equal("(12)", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	108 call assert_equal("(12)", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	109
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	110 " (
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	111 call setline(1, ["first second"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	112 normal $"ad(
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	113 call assert_equal("first secon", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	114 call assert_equal("first secon", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	115
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	116 " )
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	117 call setline(1, ["First Second."])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	118 normal gg0"ad)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	119 call assert_equal("First Second.", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	120 call assert_equal("First Second.", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	121
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	122 " `
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	123 call setline(1, ["start here."])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	124 normal gg0fhmx0"ad`x
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	125 call assert_equal("start ", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	126 call assert_equal("start ", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	127
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	128 " /
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	129 call setline(1, ["searchX"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	130 exe "normal gg0\"ad/X\<CR>"
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	131 call assert_equal("search", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	132 call assert_equal("search", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	133
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	134 " ?
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	135 call setline(1, ["Ysearch"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	136 exe "normal gg$\"ad?Y\<CR>"
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	137 call assert_equal("Ysearc", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	138 call assert_equal("Ysearc", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	139
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	140 " n
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	141 call setline(1, ["Ynext"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	142 normal gg$"adn
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	143 call assert_equal("Ynex", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	144 call assert_equal("Ynex", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	145
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	146 " N
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	147 call setline(1, ["prevY"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	148 normal gg0"adN
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	149 call assert_equal("prev", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	150 call assert_equal("prev", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	151
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	152 " }
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	153 call setline(1, ["one", ""])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	154 normal gg0"ad}
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	155 call assert_equal("one\n", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	156 call assert_equal("one\n", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	157
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	158 " {
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	159 call setline(1, ["", "two"])
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	160 normal 2G$"ad{
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	161 call assert_equal("\ntw", @a)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	162 call assert_equal("\ntw", @1)
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	163
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	164 bwipe!
29de75f53b1a patch 8.1.0999: use register one too often and not properly tested Bram Moolenaar <Bram@vim.org> parents: 13855 diff changeset	165 endfunc
15995 e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	166
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	167 " Check that replaying a typed sequence does not use an Esc and following
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	168 " characters as an escape sequence.
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	169 func Test_recording_esc_sequence()
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	170 new
15999 f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	171 try
f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	172 let save_F2 = &t_F2
f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	173 catch
f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	174 endtry
15995 e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	175 let t_F2 = "\<Esc>OQ"
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	176 call feedkeys("qqiTest\<Esc>", "xt")
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	177 call feedkeys("OQuirk\<Esc>q", "xt")
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	178 call feedkeys("Go\<Esc>@q", "xt")
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	179 call assert_equal(['Quirk', 'Test', 'Quirk', 'Test'], getline(1, 4))
e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	180 bwipe!
15999 f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	181 if exists('save_F2')
16784 62d84ef82f96 patch 8.1.1394: not restoring t_F2 in registers test Bram Moolenaar <Bram@vim.org> parents: 16376 diff changeset	182 let &t_F2 = save_F2
16376 3b5d401a58ce patch 8.1.1193: typos and small problems in test files Bram Moolenaar <Bram@vim.org> parents: 15999 diff changeset	183 else
3b5d401a58ce patch 8.1.1193: typos and small problems in test files Bram Moolenaar <Bram@vim.org> parents: 15999 diff changeset	184 set t_F2=
15999 f4c282082ec8 patch 8.1.1005: test fails because t_F2 is not set Bram Moolenaar <Bram@vim.org> parents: 15995 diff changeset	185 endif
15995 e7030c0c79cd patch 8.1.1003: playing back recorded key sequence mistakes key code Bram Moolenaar <Bram@vim.org> parents: 15987 diff changeset	186 endfunc
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	187
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	188 " Test for executing the last used register (@)
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	189 func Test_last_used_exec_reg()
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	190 " Test for the @: command
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	191 let a = ''
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	192 call feedkeys(":let a ..= 'Vim'\<CR>", 'xt')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	193 normal @:
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	194 call assert_equal('VimVim', a)
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	195
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	196 " Test for the @= command
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	197 let x = ''
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	198 let a = ":let x ..= 'Vim'\<CR>"
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	199 exe "normal @=a\<CR>"
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	200 normal @@
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	201 call assert_equal('VimVim', x)
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	202
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	203 " Test for the @. command
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	204 let a = ''
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	205 call feedkeys("i:let a ..= 'Edit'\<CR>", 'xt')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	206 normal @.
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	207 normal @@
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	208 call assert_equal('EditEdit', a)
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	209
18771 50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	210 " Test for repeating the last command-line in visual mode
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	211 call append(0, 'register')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	212 normal gg
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	213 let @r = ''
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	214 call feedkeys("v:yank R\<CR>", 'xt')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	215 call feedkeys("v@:", 'xt')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	216 call assert_equal("\nregister\nregister\n", @r)
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	217
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	218 enew!
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	219 endfunc
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	220
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	221 func Test_get_register()
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	222 enew
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	223 edit Xfile1
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	224 edit Xfile2
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	225 call assert_equal('Xfile2', getreg('%'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	226 call assert_equal('Xfile1', getreg('#'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	227
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	228 call feedkeys("iTwo\<Esc>", 'xt')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	229 call assert_equal('Two', getreg('.'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	230 call assert_equal('', getreg('_'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	231 call assert_beeps('normal ":yy')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	232 call assert_beeps('normal "%yy')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	233 call assert_beeps('normal ".yy')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	234
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	235 call assert_equal('', getreg("\<C-F>"))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	236 call assert_equal('', getreg("\<C-W>"))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	237 call assert_equal('', getreg("\<C-L>"))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	238 " Change the last used register to '"' for the next test
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	239 normal! ""yy
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	240 let @" = 'happy'
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	241 call assert_equal('happy', getreg())
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	242 call assert_equal('happy', getreg(''))
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	243
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	244 call assert_equal('', getregtype('!'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	245 call assert_fails('echo getregtype([])', 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	246 call assert_equal('v', getregtype())
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	247 call assert_equal('v', getregtype(''))
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	248
18771 50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	249 " Test for inserting an invalid register content
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	250 call assert_beeps('exe "normal i\<C-R>!"')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	251
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	252 " Test for inserting a register with multiple lines
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	253 call deletebufline('', 1, '$')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	254 call setreg('r', ['a', 'b'])
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	255 exe "normal i\<C-R>r"
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	256 call assert_equal(['a', 'b', ''], getline(1, '$'))
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	257
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	258 " Test for inserting a multi-line register in the command line
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	259 call feedkeys(":\<C-R>r\<Esc>", 'xt')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	260 call assert_equal("a\rb\r", histget(':', -1))
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	261
20178 2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	262 call assert_fails('let r = getreg("=", [])', 'E745:')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	263 call assert_fails('let r = getreg("=", 1, [])', 'E745:')
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	264 enew!
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	265 endfunc
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	266
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	267 func Test_set_register()
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	268 call assert_fails("call setreg('#', 200)", 'E86:')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	269
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	270 edit Xfile_alt_1
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	271 let b1 = bufnr('')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	272 edit Xfile_alt_2
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	273 let b2 = bufnr('')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	274 edit Xfile_alt_3
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	275 let b3 = bufnr('')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	276 call setreg('#', 'alt_1')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	277 call assert_equal('Xfile_alt_1', getreg('#'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	278 call setreg('#', b2)
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	279 call assert_equal('Xfile_alt_2', getreg('#'))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	280
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	281 let ab = 'regwrite'
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	282 call setreg('=', '')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	283 call setreg('=', 'a', 'a')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	284 call setreg('=', 'b', 'a')
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	285 call assert_equal('regwrite', getreg('='))
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	286
19195 2ef19eed524a patch 8.2.0156: various typos in source files and tests Bram Moolenaar <Bram@vim.org> parents: 18784 diff changeset	287 " Test for setting a list of lines to special registers
18771 50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	288 call setreg('/', [])
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	289 call assert_equal('', @/)
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	290 call setreg('=', [])
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	291 call assert_equal('', @=)
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	292 call assert_fails("call setreg('/', ['a', 'b'])", 'E883:')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	293 call assert_fails("call setreg('=', ['a', 'b'])", 'E883:')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	294 call assert_equal(0, setreg('_', ['a', 'b']))
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	295
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	296 " Test for recording to a invalid register
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	297 call assert_beeps('normal q$')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	298
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	299 " Appending to a register when recording
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	300 call append(0, "text for clipboard test")
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	301 normal gg
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	302 call feedkeys('qrllq', 'xt')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	303 call feedkeys('qRhhq', 'xt')
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	304 call assert_equal('llhh', getreg('r'))
50fde4e20790 patch 8.1.2375: no suffucient testing for registers Bram Moolenaar <Bram@vim.org> parents: 18755 diff changeset	305
18784 7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	306 " Appending a list of characters to a register from different lines
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	307 let @r = ''
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	308 call append(0, ['abcdef', '123456'])
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	309 normal gg"ry3l
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	310 call cursor(2, 4)
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	311 normal "Ry3l
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	312 call assert_equal('abc456', @r)
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	313
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	314 " Test for gP with multiple lines selected using characterwise motion
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	315 %delete
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	316 call append(0, ['vim editor', 'vim editor'])
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	317 let @r = ''
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	318 exe "normal ggwy/vim /e\<CR>gP"
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	319 call assert_equal(['vim editor', 'vim editor', 'vim editor'], getline(1, 3))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	320
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	321 " Test for gP with . register
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	322 %delete
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	323 normal iabc
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	324 normal ".gp
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	325 call assert_equal('abcabc', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	326 normal 0".gP
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	327 call assert_equal('abcabcabc', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	328
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	329 let @"=''
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	330 call setreg('', '1')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	331 call assert_equal('1', @")
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	332 call setreg('@', '2')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	333 call assert_equal('2', @")
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19625 diff changeset	334
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	335 enew!
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	336 endfunc
a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	337
18784 7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	338 " Test for clipboard registers (* and +)
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	339 func Test_clipboard_regs()
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	340 CheckNotGui
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	341 CheckFeature clipboard_working
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	342
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	343 new
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	344 call append(0, "text for clipboard test")
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	345 normal gg"*yiw
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	346 call assert_equal('text', getreg('*'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	347 normal gg2w"+yiw
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	348 call assert_equal('clipboard', getreg('+'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	349
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	350 " Test for replacing the clipboard register contents
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	351 set clipboard=unnamed
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	352 let @* = 'food'
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	353 normal ggviw"*p
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	354 call assert_equal('text', getreg('*'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	355 call assert_equal('food for clipboard test', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	356 normal ggviw"*p
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	357 call assert_equal('food', getreg('*'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	358 call assert_equal('text for clipboard test', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	359
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	360 " Test for replacing the selection register contents
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	361 set clipboard=unnamedplus
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	362 let @+ = 'food'
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	363 normal ggviw"+p
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	364 call assert_equal('text', getreg('+'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	365 call assert_equal('food for clipboard test', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	366 normal ggviw"+p
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	367 call assert_equal('food', getreg('+'))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	368 call assert_equal('text for clipboard test', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	369
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	370 " Test for auto copying visually selected text to clipboard register
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	371 call setline(1, "text for clipboard test")
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	372 let @* = ''
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	373 set clipboard=autoselect
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	374 normal ggwwviwy
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	375 call assert_equal('clipboard', @*)
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	376
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	377 " Test for auto copying visually selected text to selection register
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	378 let @+ = ''
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	379 set clipboard=autoselectplus
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	380 normal ggwviwy
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	381 call assert_equal('for', @+)
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	382
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	383 set clipboard&vim
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	384 bwipe!
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	385 endfunc
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	386
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	387 " Test for restarting the current mode (insert or virtual replace) after
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	388 " executing the contents of a register
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	389 func Test_put_reg_restart_mode()
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	390 new
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	391 call append(0, 'editor')
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	392 normal gg
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	393 let @r = "ivim \<Esc>"
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	394 call feedkeys("i\<C-O>@r\<C-R>=mode()\<CR>", 'xt')
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	395 call assert_equal('vimi editor', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	396
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	397 call setline(1, 'editor')
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	398 normal gg
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	399 call feedkeys("gR\<C-O>@r\<C-R>=mode()\<CR>", 'xt')
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	400 call assert_equal('vimReditor', getline(1))
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	401
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	402 bwipe!
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	403 endfunc
7b57a80f70f6 patch 8.1.2381: not all register related code is covered by tests Bram Moolenaar <Bram@vim.org> parents: 18771 diff changeset	404
19425 67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	405 " Test for executing a register using :@ command
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	406 func Test_execute_register()
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	407 call setreg('r', [])
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	408 call assert_beeps('@r')
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	409 let i = 1
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	410 let @q = 'let i+= 1'
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	411 @q
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	412 @
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	413 call assert_equal(3, i)
19625 f70a3c1000bb patch 8.2.0369: various Normal mode commands not fully tested Bram Moolenaar <Bram@vim.org> parents: 19425 diff changeset	414
f70a3c1000bb patch 8.2.0369: various Normal mode commands not fully tested Bram Moolenaar <Bram@vim.org> parents: 19425 diff changeset	415 " cannot execute a register in operator pending mode
f70a3c1000bb patch 8.2.0369: various Normal mode commands not fully tested Bram Moolenaar <Bram@vim.org> parents: 19425 diff changeset	416 call assert_beeps('normal! c@r')
19425 67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	417 endfunc
67fbe280a502 patch 8.2.0270: some code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19195 diff changeset	418
20743 a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	419 " Test for getting register info
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	420 func Test_get_reginfo()
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	421 enew
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	422 call setline(1, ['foo', 'bar'])
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	423
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	424 exe 'norm! "zyy'
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	425 let info = getreginfo('"')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	426 call assert_equal('z', info.points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	427 call setreg('y', 'baz')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	428 call assert_equal('z', getreginfo('').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	429 call setreg('y', { 'isunnamed': v:true })
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	430 call assert_equal('y', getreginfo('"').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	431
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	432 exe '$put'
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	433 call assert_equal(getreg('y'), getline(3))
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	434 call setreg('', 'qux')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	435 call assert_equal('0', getreginfo('').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	436 call setreg('x', 'quux')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	437 call assert_equal('0', getreginfo('').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	438
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	439 let info = getreginfo('')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	440 call assert_equal(getreg('', 1, 1), info.regcontents)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	441 call assert_equal(getregtype(''), info.regtype)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	442
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	443 exe "norm! 0\<c-v>e" .. '"zy'
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	444 let info = getreginfo('z')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	445 call assert_equal(getreg('z', 1, 1), info.regcontents)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	446 call assert_equal(getregtype('z'), info.regtype)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	447 call assert_equal(1, +info.isunnamed)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	448
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	449 let info = getreginfo('"')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	450 call assert_equal('z', info.points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	451
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	452 bwipe!
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	453 endfunc
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	454
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	455 " Test for restoring register with dict from getreginfo
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	456 func Test_set_register_dict()
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	457 enew!
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	458
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	459 call setreg('"', #{ regcontents: ['one', 'two'],
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	460 \ regtype: 'V', points_to: 'z' })
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	461 call assert_equal(['one', 'two'], getreg('"', 1, 1))
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	462 let info = getreginfo('"')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	463 call assert_equal('z', info.points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	464 call assert_equal('V', info.regtype)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	465 call assert_equal(1, +getreginfo('z').isunnamed)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	466
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	467 call setreg('x', #{ regcontents: ['three', 'four'],
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	468 \ regtype: 'v', isunnamed: v:true })
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	469 call assert_equal(['three', 'four'], getreg('"', 1, 1))
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	470 let info = getreginfo('"')
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	471 call assert_equal('x', info.points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	472 call assert_equal('v', info.regtype)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	473 call assert_equal(1, +getreginfo('x').isunnamed)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	474
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	475 call setreg('y', #{ regcontents: 'five',
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	476 \ regtype: "\<c-v>", isunnamed: v:false })
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	477 call assert_equal("\<c-v>4", getreginfo('y').regtype)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	478 call assert_equal(0, +getreginfo('y').isunnamed)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	479 call assert_equal(['three', 'four'], getreg('"', 1, 1))
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	480 call assert_equal('x', getreginfo('"').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	481
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	482 call setreg('"', #{ regcontents: 'six' })
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	483 call assert_equal('0', getreginfo('"').points_to)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	484 call assert_equal(1, +getreginfo('0').isunnamed)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	485 call assert_equal(['six'], getreginfo('0').regcontents)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	486 call assert_equal(['six'], getreginfo('"').regcontents)
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	487
20968 1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	488 let @x = 'one'
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	489 call setreg('x', {})
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	490 call assert_equal(1, len(split(execute('reg x'), '\n')))
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	491
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	492 call assert_fails("call setreg('0', #{regtype: 'V'}, 'v')", 'E118:')
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	493 call assert_fails("call setreg('0', #{regtype: 'X'})", 'E475:')
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	494 call assert_fails("call setreg('0', #{regtype: 'vy'})", 'E475:')
1c36b96522ae patch 8.2.1035: setreg() does not always clear the register Bram Moolenaar <Bram@vim.org> parents: 20891 diff changeset	495
20743 a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	496 bwipe!
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	497 endfunc
a672feb8fc4f patch 8.2.0924: cannot save and restore a register properly Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	498
20754 e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	499 func Test_v_register()
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	500 enew
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	501 call setline(1, 'nothing')
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	502
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	503 func s:Put()
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	504 let s:register = v:register
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	505 exec 'normal! "' .. v:register .. 'P'
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	506 endfunc
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	507 nnoremap <buffer> <plug>(test) :<c-u>call s:Put()<cr>
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	508 nmap <buffer> S <plug>(test)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	509
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	510 let @z = "testz\n"
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	511 let @" = "test@\n"
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	512
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	513 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	514 call feedkeys('"_ddS', 'mx')
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	515 call assert_equal('test@', getline('.')) " fails before 8.2.0929
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	516 call assert_equal('"', s:register) " fails before 8.2.0929
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	517
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	518 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	519 call feedkeys('"zS', 'mx')
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	520 call assert_equal('z', s:register)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	521
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	522 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	523 call feedkeys('"zSS', 'mx')
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	524 call assert_equal('"', s:register)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	525
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	526 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	527 call feedkeys('"_S', 'mx')
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	528 call assert_equal('_', s:register)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	529
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	530 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	531 normal "_ddS
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	532 call assert_equal('"', s:register) " fails before 8.2.0929
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	533 call assert_equal('test@', getline('.')) " fails before 8.2.0929
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	534
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	535 let s:register = ''
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	536 execute 'normal "z:call' "s:Put()\n"
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	537 call assert_equal('z', s:register)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	538 call assert_equal('testz', getline('.'))
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	539
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	540 " Test operator and omap
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	541 let @b = 'testb'
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	542 func s:OpFunc(...)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	543 let s:register2 = v:register
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	544 endfunc
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	545 set opfunc=s:OpFunc
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	546
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	547 normal "bg@l
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	548 normal S
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	549 call assert_equal('"', s:register) " fails before 8.2.0929
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	550 call assert_equal('b', s:register2)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	551
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	552 func s:Motion()
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	553 let s:register1 = v:register
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	554 normal! l
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	555 endfunc
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	556 onoremap <buffer> Q :<c-u>call s:Motion()<cr>
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	557
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	558 normal "bg@Q
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	559 normal S
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	560 call assert_equal('"', s:register)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	561 call assert_equal('b', s:register1)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	562 call assert_equal('"', s:register2)
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	563
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	564 set opfunc&
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	565 bwipe!
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	566 endfunc
e6a5a5ef4034 patch 8.2.0929: v:register is not cleared after an operator was executed Bram Moolenaar <Bram@vim.org> parents: 20743 diff changeset	567
20891 4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	568 " Test for executing the contents of a register as an Ex command with line
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	569 " continuation.
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	570 func Test_execute_reg_as_ex_cmd()
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	571 " Line continuation with just two lines
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	572 let code =<< trim END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	573 let l = [
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	574 \ 1]
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	575 END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	576 let @r = code->join("\n")
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	577 let l = []
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	578 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	579 call assert_equal([1], l)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	580
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	581 " Line continuation with more than two lines
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	582 let code =<< trim END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	583 let l = [
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	584 \ 1,
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	585 \ 2,
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	586 \ 3]
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	587 END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	588 let @r = code->join("\n")
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	589 let l = []
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	590 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	591 call assert_equal([1, 2, 3], l)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	592
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	593 " use comments interspersed with code
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	594 let code =<< trim END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	595 let l = [
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	596 "\ one
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	597 \ 1,
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	598 "\ two
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	599 \ 2,
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	600 "\ three
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	601 \ 3]
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	602 END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	603 let @r = code->join("\n")
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	604 let l = []
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	605 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	606 call assert_equal([1, 2, 3], l)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	607
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	608 " use line continuation in the middle
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	609 let code =<< trim END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	610 let a = "one"
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	611 let l = [
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	612 \ 1,
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	613 \ 2]
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	614 let b = "two"
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	615 END
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	616 let @r = code->join("\n")
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	617 let l = []
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	618 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	619 call assert_equal([1, 2], l)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	620 call assert_equal("one", a)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	621 call assert_equal("two", b)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	622
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	623 " only one line with a \
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	624 let @r = "\\let l = 1"
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	625 call assert_fails('@r', 'E10:')
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	626
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	627 " only one line with a "\
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	628 let @r = ' "\ let i = 1'
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	629 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	630 call assert_false(exists('i'))
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	631
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	632 " first line also begins with a \
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	633 let @r = "\\let l = [\n\\ 1]"
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	634 call assert_fails('@r', 'E10:')
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	635
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	636 " Test with a large number of lines
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	637 let @r = "let str = \n"
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	638 let @r ..= repeat(" \\ 'abcdefghijklmnopqrstuvwxyz' ..\n", 312)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	639 let @r ..= ' \ ""'
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	640 @r
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	641 call assert_equal(repeat('abcdefghijklmnopqrstuvwxyz', 312), str)
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	642 endfunc
4bdc07beeadb patch 8.2.0997: cannot execute a register containing line continuation Bram Moolenaar <Bram@vim.org> parents: 20754 diff changeset	643
18755 a0be066d0b48 patch 8.1.2367: registers are not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18436 diff changeset	644 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_registers.vim @ 20968:1c36b96522ae v8.2.1035