vim: src/testdir/test_registers.vim annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	66c70cf4387c
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	1 " Tests for register operations
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	3 source check.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	4 source view_util.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	5
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	6 " This test must be executed first to check for empty and unset registers.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	7 func Test_aaa_empty_reg_test()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	8 call assert_fails('normal @@', 'E748:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	9 call assert_fails('normal @%', 'E354:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	10 call assert_fails('normal @#', 'E354:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	11 call assert_fails('normal @!', 'E354:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	12 call assert_fails('normal @:', 'E30:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	13 call assert_fails('normal @.', 'E29:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	14 call assert_fails('put /', 'E35:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	15 call assert_fails('put .', 'E29:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	16 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	17
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	18 func Test_yank_shows_register()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	19 enew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	20 set report=0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	21 call setline(1, ['foo', 'bar'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	22 " Line-wise
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	23 exe 'norm! yy'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	24 call assert_equal('1 line yanked', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	25 exe 'norm! "zyy'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	26 call assert_equal('1 line yanked into "z', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	27 exe 'norm! yj'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	28 call assert_equal('2 lines yanked', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	29 exe 'norm! "zyj'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	30 call assert_equal('2 lines yanked into "z', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	31
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	32 " Block-wise
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	33 exe "norm! \<C-V>y"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	34 call assert_equal('block of 1 line yanked', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	35 exe "norm! \<C-V>\"zy"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	36 call assert_equal('block of 1 line yanked into "z', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	37 exe "norm! \<C-V>jy"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	38 call assert_equal('block of 2 lines yanked', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	39 exe "norm! \<C-V>j\"zy"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	40 call assert_equal('block of 2 lines yanked into "z', v:statusmsg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	41
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	42 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	43 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	44
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	45 func Test_display_registers()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	46 e file1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	47 e file2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	48 call setline(1, ['foo', 'bar'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	49 /bar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	50 exe 'norm! y2l"axx'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	51 call feedkeys("i\<C-R>=2*4\n\<esc>")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	52 call feedkeys(":ls\n", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	53
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	54 " these commands work in the sandbox
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	55 let a = execute('sandbox display')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	56 let b = execute('sandbox registers')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	57
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	58 call assert_equal(a, b)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	59 call assert_match('^\nType Name Content\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	60 \ . ' c "" a\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	61 \ . ' c "0 ba\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	62 \ . ' c "a b\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	63 \ . '.*'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	64 \ . ' c "- a\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	65 \ . '.*'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	66 \ . ' c ": ls\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	67 \ . ' c "% file2\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	68 \ . ' c "# file1\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	69 \ . ' c "/ bar\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	70 \ . ' c "= 2\*4', a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	71
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	72 let a = execute('registers a')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	73 call assert_match('^\nType Name Content\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	74 \ . ' c "a b', a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	75
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	76 let a = execute('registers :')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	77 call assert_match('^\nType Name Content\n'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	78 \ . ' c ": ls', a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	79
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	80 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	81 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	82
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	83 func Test_register_one()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	84 " delete a line goes into register one
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	85 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	86 call setline(1, "one")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	87 normal dd
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	88 call assert_equal("one\n", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	89
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	90 " delete a word does not change register one, does change "-
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	91 call setline(1, "two")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	92 normal de
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	93 call assert_equal("one\n", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	94 call assert_equal("two", @-)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	95
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	96 " delete a word with a register does not change register one
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	97 call setline(1, "three")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	98 normal "ade
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	99 call assert_equal("three", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	100 call assert_equal("one\n", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	101
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	102 " delete a word with register DOES change register one with one of a list of
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	103 " operators
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	104 " %
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	105 call setline(1, ["(12)3"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	106 normal "ad%
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	107 call assert_equal("(12)", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	108 call assert_equal("(12)", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	109
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	110 " (
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	111 call setline(1, ["first second"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	112 normal $"ad(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	113 call assert_equal("first secon", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	114 call assert_equal("first secon", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	115
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	116 " )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	117 call setline(1, ["First Second."])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	118 normal gg0"ad)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	119 call assert_equal("First Second.", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	120 call assert_equal("First Second.", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	121
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	122 " `
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	123 call setline(1, ["start here."])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	124 normal gg0fhmx0"ad`x
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	125 call assert_equal("start ", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	126 call assert_equal("start ", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	127
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	128 " /
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	129 call setline(1, ["searchX"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	130 exe "normal gg0\"ad/X\<CR>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	131 call assert_equal("search", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	132 call assert_equal("search", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	133
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	134 " ?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	135 call setline(1, ["Ysearch"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	136 exe "normal gg$\"ad?Y\<CR>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	137 call assert_equal("Ysearc", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	138 call assert_equal("Ysearc", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	139
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	140 " n
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	141 call setline(1, ["Ynext"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	142 normal gg$"adn
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	143 call assert_equal("Ynex", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	144 call assert_equal("Ynex", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	145
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	146 " N
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	147 call setline(1, ["prevY"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	148 normal gg0"adN
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	149 call assert_equal("prev", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	150 call assert_equal("prev", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	151
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	152 " }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	153 call setline(1, ["one", ""])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	154 normal gg0"ad}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	155 call assert_equal("one\n", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	156 call assert_equal("one\n", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	157
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	158 " {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	159 call setline(1, ["", "two"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	160 normal 2G$"ad{
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	161 call assert_equal("\ntw", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	162 call assert_equal("\ntw", @1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	163
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	164 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	165 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	166
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	167 func Test_recording_status_in_ex_line()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	168 norm qx
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	169 redraw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	170 call assert_equal('recording @x', Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	171 set shortmess=q
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	172 redraw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	173 call assert_equal('recording', Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	174 set shortmess&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	175 norm q
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	176 redraw!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	177 call assert_equal('', Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	178 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	179
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	180 " Check that replaying a typed sequence does not use an Esc and following
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	181 " characters as an escape sequence.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	182 func Test_recording_esc_sequence()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	183 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	184 try
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	185 let save_F2 = &t_F2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	186 catch
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	187 endtry
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	188 let t_F2 = "\<Esc>OQ"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	189 call feedkeys("qqiTest\<Esc>", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	190 call feedkeys("OQuirk\<Esc>q", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	191 call feedkeys("Go\<Esc>@q", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	192 call assert_equal(['Quirk', 'Test', 'Quirk', 'Test'], getline(1, 4))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	193 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	194 if exists('save_F2')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	195 let &t_F2 = save_F2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	196 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	197 set t_F2=
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	198 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	199 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	200
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	201 func Test_recording_with_select_mode()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	202 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	203 call feedkeys("qacc12345\<Esc>gH98765\<Esc>q", "tx")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	204 call assert_equal("98765", getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	205 call assert_equal("cc12345\<Esc>gH98765\<Esc>", @a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	206 call setline(1, 'asdf')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	207 normal! @a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	208 call assert_equal("98765", getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	209 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	210 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	211
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	212 " Test for executing the last used register (@)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	213 func Test_last_used_exec_reg()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	214 " Test for the @: command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	215 let a = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	216 call feedkeys(":let a ..= 'Vim'\<CR>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	217 normal @:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	218 call assert_equal('VimVim', a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	219
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	220 " Test for the @= command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	221 let x = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	222 let a = ":let x ..= 'Vim'\<CR>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	223 exe "normal @=a\<CR>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	224 normal @@
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	225 call assert_equal('VimVim', x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	226
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	227 " Test for the @. command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	228 let a = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	229 call feedkeys("i:let a ..= 'Edit'\<CR>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	230 normal @.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	231 normal @@
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	232 call assert_equal('EditEdit', a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	233
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	234 " Test for repeating the last command-line in visual mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	235 call append(0, 'register')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	236 normal gg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	237 let @r = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	238 call feedkeys("v:yank R\<CR>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	239 call feedkeys("v@:", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	240 call assert_equal("\nregister\nregister\n", @r)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	241
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	242 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	243 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	244
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	245 func Test_get_register()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	246 enew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	247 edit Xfile1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	248 edit Xfile2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	249 call assert_equal('Xfile2', getreg('%'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	250 call assert_equal('Xfile1', getreg('#'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	251
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	252 call feedkeys("iTwo\<Esc>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	253 call assert_equal('Two', getreg('.'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	254 call assert_equal('', getreg('_'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	255 call assert_beeps('normal ":yy')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	256 call assert_beeps('normal "%yy')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	257 call assert_beeps('normal ".yy')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	258
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	259 call assert_equal('', getreg("\<C-F>"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	260 call assert_equal('', getreg("\<C-W>"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	261 call assert_equal('', getreg("\<C-L>"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	262 " Change the last used register to '"' for the next test
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	263 normal! ""yy
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	264 let @" = 'happy'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	265 call assert_equal('happy', getreg())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	266 call assert_equal('happy', getreg(''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	267
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	268 call assert_equal('', getregtype('!'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	269 call assert_fails('echo getregtype([])', 'E730:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	270 call assert_equal('v', getregtype())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	271 call assert_equal('v', getregtype(''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	272
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	273 " Test for inserting an invalid register content
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	274 call assert_beeps('exe "normal i\<C-R>!"')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	275
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	276 " Test for inserting a register with multiple lines
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	277 call deletebufline('', 1, '$')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	278 call setreg('r', ['a', 'b'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	279 exe "normal i\<C-R>r"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	280 call assert_equal(['a', 'b', ''], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	281
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	282 " Test for inserting a multi-line register in the command line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	283 call feedkeys(":\<C-R>r\<Esc>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	284 call assert_equal("a\rb\r", histget(':', -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	285
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	286 call assert_fails('let r = getreg("=", [])', 'E745:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	287 call assert_fails('let r = getreg("=", 1, [])', 'E745:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	288 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	289
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	290 " Using a register in operator-pending mode should fail
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	291 call assert_beeps('norm! c"')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	292 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	293
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	294 func Test_set_register()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	295 call assert_fails("call setreg('#', 200)", 'E86:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	296 call assert_fails("call setreg('a', test_unknown())", 'E908:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	297
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	298 edit Xfile_alt_1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	299 let b1 = bufnr('')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	300 edit Xfile_alt_2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	301 let b2 = bufnr('')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	302 edit Xfile_alt_3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	303 let b3 = bufnr('')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	304 call setreg('#', 'alt_1')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	305 call assert_equal('Xfile_alt_1', getreg('#'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	306 call setreg('#', b2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	307 call assert_equal('Xfile_alt_2', getreg('#'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	308
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	309 let ab = 'regwrite'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	310 call setreg('=', '')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	311 call setreg('=', 'a', 'a')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	312 call setreg('=', 'b', 'a')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	313 call assert_equal('regwrite', getreg('='))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	314
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	315 " Test for setting a list of lines to special registers
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	316 call setreg('/', [])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	317 call assert_equal('', @/)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	318 call setreg('=', [])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	319 call assert_equal('', @=)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	320 call assert_fails("call setreg('/', ['a', 'b'])", 'E883:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	321 call assert_fails("call setreg('=', ['a', 'b'])", 'E883:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	322 call assert_equal(0, setreg('_', ['a', 'b']))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	323
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	324 " Test for recording to a invalid register
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	325 call assert_beeps('normal q$')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	326
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	327 " Appending to a register when recording
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	328 call append(0, "text for clipboard test")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	329 normal gg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	330 call feedkeys('qrllq', 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	331 call feedkeys('qRhhq', 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	332 call assert_equal('llhh', getreg('r'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	333
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	334 " Appending a list of characters to a register from different lines
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	335 let @r = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	336 call append(0, ['abcdef', '123456'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	337 normal gg"ry3l
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	338 call cursor(2, 4)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	339 normal "Ry3l
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	340 call assert_equal('abc456', @r)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	341
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	342 " Test for gP with multiple lines selected using characterwise motion
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	343 %delete
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	344 call append(0, ['vim editor', 'vim editor'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	345 let @r = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	346 exe "normal ggwy/vim /e\<CR>gP"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	347 call assert_equal(['vim editor', 'vim editor', 'vim editor'], getline(1, 3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	348
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	349 " Test for gP with . register
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	350 %delete
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	351 normal iabc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	352 normal ".gp
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	353 call assert_equal('abcabc', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	354 normal 0".gP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	355 call assert_equal('abcabcabc', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	356
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	357 let @"=''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	358 call setreg('', '1')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	359 call assert_equal('1', @")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	360 call setreg('@', '2')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	361 call assert_equal('2', @")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	362
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	363 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	364 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	365
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	366 " Test for clipboard registers (* and +)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	367 func Test_clipboard_regs()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	368 CheckNotGui
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	369 CheckFeature clipboard_working
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	370
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	371 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	372 call append(0, "text for clipboard test")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	373 normal gg"*yiw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	374 call assert_equal('text', getreg('*'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	375 normal gg2w"+yiw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	376 call assert_equal('clipboard', getreg('+'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	377
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	378 " Test for replacing the clipboard register contents
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	379 set clipboard=unnamed
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	380 let @* = 'food'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	381 normal ggviw"*p
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	382 call assert_equal('text', getreg('*'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	383 call assert_equal('food for clipboard test', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	384 normal ggviw"*p
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	385 call assert_equal('food', getreg('*'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	386 call assert_equal('text for clipboard test', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	387
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	388 " Test for replacing the selection register contents
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	389 set clipboard=unnamedplus
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	390 let @+ = 'food'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	391 normal ggviw"+p
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	392 call assert_equal('text', getreg('+'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	393 call assert_equal('food for clipboard test', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	394 normal ggviw"+p
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	395 call assert_equal('food', getreg('+'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	396 call assert_equal('text for clipboard test', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	397
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	398 " Test for auto copying visually selected text to clipboard register
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	399 call setline(1, "text for clipboard test")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	400 let @* = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	401 set clipboard=autoselect
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	402 normal ggwwviwy
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	403 call assert_equal('clipboard', @*)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	404
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	405 " Test for auto copying visually selected text to selection register
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	406 let @+ = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	407 set clipboard=autoselectplus
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	408 normal ggwviwy
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	409 call assert_equal('for', @+)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	410
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	411 set clipboard&vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	412 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	413 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	414
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	415 " Test unnamed for both clipboard registers (* and +)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	416 func Test_clipboard_regs_both_unnamed()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	417 CheckNotGui
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	418 CheckFeature clipboard_working
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	419 CheckTwoClipboards
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	420
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	421 let @* = 'xxx'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	422 let @+ = 'xxx'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	423
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	424 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	425
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	426 set clipboard=unnamed,unnamedplus
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	427 call setline(1, ['foo', 'bar'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	428
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	429 " op_yank copies to both
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	430 :1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	431 :normal yw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	432 call assert_equal('foo', getreg('*'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	433 call assert_equal('foo', getreg('+'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	434
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	435 " op_delete only copies to '+'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	436 :2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	437 :normal dw
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	438 call assert_equal('foo', getreg('*'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	439 call assert_equal('bar', getreg('+'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	440
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	441 set clipboard&vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	442 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	443 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	444
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	445 " Test for restarting the current mode (insert or virtual replace) after
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	446 " executing the contents of a register
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	447 func Test_put_reg_restart_mode()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	448 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	449 call append(0, 'editor')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	450 normal gg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	451 let @r = "ivim \<Esc>"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	452 call feedkeys("i\<C-O>@r\<C-R>=mode()\<CR>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	453 call assert_equal('vimi editor', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	454
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	455 call setline(1, 'editor')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	456 normal gg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	457 call feedkeys("gR\<C-O>@r\<C-R>=mode()\<CR>", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	458 call assert_equal('vimReditor', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	459
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	460 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	461 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	462
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	463 " Test for executing a register using :@ command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	464 func Test_execute_register()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	465 call setreg('r', [])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	466 call assert_beeps('@r')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	467 let i = 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	468 let @q = 'let i+= 1'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	469 @q
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	470 @
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	471 call assert_equal(3, i)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	472
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	473 " try to execute expression register and use a backspace to cancel it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	474 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	475 call feedkeys("@=\<BS>ax\<CR>y", 'xt')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	476 call assert_equal(['x', 'y'], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	477 close!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	478
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	479 " cannot execute a register in operator pending mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	480 call assert_beeps('normal! c@r')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	481 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	482
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	483 " Test for getting register info
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	484 func Test_get_reginfo()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	485 enew
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	486 call setline(1, ['foo', 'bar'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	487
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	488 exe 'norm! "zyy'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	489 let info = getreginfo('"')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	490 call assert_equal('z', info.points_to)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	491 call setreg('y', 'baz')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	492 call assert_equal('z', getreginfo('').points_to)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	493 call setreg('y', { 'isunnamed': v:true })
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	494 call assert_equal('y', getreginfo('"').points_to)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	495
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	496 exe '$put'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	497 call assert_equal(getreg('y'), getline(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	498 call setreg('', 'qux')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	499 call assert_equal('0', getreginfo('').points_to)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32529 diff changeset	500 call setreg('x', 'quux')

32669

448aef880252 normalize line endings