mirror of
https://github.com/neovim/neovim.git
synced 2024-12-29 14:41:06 -07:00
vim-patch:8.2.4315: put in Visual mode not fully tested
Problem: Put in Visual mode not fully tested.
Solution: Add a few more test cases. (closes vim/vim#9708)
6bf821e8ab
This commit is contained in:
parent
196160b183
commit
3fe47647c7
@ -1195,18 +1195,52 @@ func Test_visual_paste()
|
||||
call setline(1, ['xxxx'])
|
||||
call setreg('"', 'foo')
|
||||
call setreg('-', 'bar')
|
||||
normal 1Gvp
|
||||
call assert_equal(@", 'x')
|
||||
call assert_equal(@-, 'x')
|
||||
normal gg0vp
|
||||
call assert_equal('x', @")
|
||||
call assert_equal('x', @-)
|
||||
call assert_equal('fooxxx', getline(1))
|
||||
normal $vp
|
||||
call assert_equal('x', @")
|
||||
call assert_equal('x', @-)
|
||||
call assert_equal('fooxxx', getline(1))
|
||||
" Test with a different register as unnamed register.
|
||||
call setline(2, ['baz'])
|
||||
normal 2gg0"rD
|
||||
call assert_equal('baz', @")
|
||||
normal gg0vp
|
||||
call assert_equal('f', @")
|
||||
call assert_equal('f', @-)
|
||||
call assert_equal('bazooxxx', getline(1))
|
||||
normal $vp
|
||||
call assert_equal('x', @")
|
||||
call assert_equal('x', @-)
|
||||
call assert_equal('bazooxxf', getline(1))
|
||||
|
||||
if has('clipboard')
|
||||
" v_P does not overwrite unnamed register.
|
||||
call setline(1, ['xxxx'])
|
||||
call setreg('"', 'foo')
|
||||
call setreg('-', 'bar')
|
||||
normal 1GvP
|
||||
call assert_equal(@", 'foo')
|
||||
call assert_equal(@-, 'x')
|
||||
normal gg0vP
|
||||
call assert_equal('foo', @")
|
||||
call assert_equal('x', @-)
|
||||
call assert_equal('fooxxx', getline(1))
|
||||
normal $vP
|
||||
call assert_equal('foo', @")
|
||||
call assert_equal('x', @-)
|
||||
call assert_equal('fooxxfoo', getline(1))
|
||||
" Test with a different register as unnamed register.
|
||||
call setline(2, ['baz'])
|
||||
normal 2gg0"rD
|
||||
call assert_equal('baz', @")
|
||||
normal gg0vP
|
||||
call assert_equal('baz', @")
|
||||
call assert_equal('f', @-)
|
||||
call assert_equal('bazooxxfoo', getline(1))
|
||||
normal $vP
|
||||
call assert_equal('baz', @")
|
||||
call assert_equal('o', @-)
|
||||
call assert_equal('bazooxxfobaz', getline(1))
|
||||
endif
|
||||
|
||||
bwipe!
|
||||
|
Loading…
Reference in New Issue
Block a user