Mercurial > vim
view src/testdir/test_registers.vim @ 19523:a7a24d06d7ce
Update runtime files.
Commit: https://github.com/vim/vim/commit/bc93cebb692f47488d66f078d1728031e9be35e7
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Feb 26 13:36:21 2020 +0100
Update runtime files.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 26 Feb 2020 13:45:05 +0100 |
parents | 67fbe280a502 |
children | f70a3c1000bb |
line wrap: on
line source
" " Tests for register operations " source check.vim " This test must be executed first to check for empty and unset registers. func Test_aaa_empty_reg_test() call assert_fails('normal @@', 'E748:') call assert_fails('normal @%', 'E354:') call assert_fails('normal @#', 'E354:') call assert_fails('normal @!', 'E354:') call assert_fails('normal @:', 'E30:') call assert_fails('normal @.', 'E29:') call assert_fails('put /', 'E35:') call assert_fails('put .', 'E29:') endfunc func Test_yank_shows_register() enew set report=0 call setline(1, ['foo', 'bar']) " Line-wise exe 'norm! yy' call assert_equal('1 line yanked', v:statusmsg) exe 'norm! "zyy' call assert_equal('1 line yanked into "z', v:statusmsg) exe 'norm! yj' call assert_equal('2 lines yanked', v:statusmsg) exe 'norm! "zyj' call assert_equal('2 lines yanked into "z', v:statusmsg) " Block-wise exe "norm! \<C-V>y" call assert_equal('block of 1 line yanked', v:statusmsg) exe "norm! \<C-V>\"zy" call assert_equal('block of 1 line yanked into "z', v:statusmsg) exe "norm! \<C-V>jy" call assert_equal('block of 2 lines yanked', v:statusmsg) exe "norm! \<C-V>j\"zy" call assert_equal('block of 2 lines yanked into "z', v:statusmsg) bwipe! endfunc func Test_display_registers() e file1 e file2 call setline(1, ['foo', 'bar']) /bar exe 'norm! y2l"axx' call feedkeys("i\<C-R>=2*4\n\<esc>") call feedkeys(":ls\n", 'xt') let a = execute('display') let b = execute('registers') call assert_equal(a, b) call assert_match('^\nType Name Content\n' \ . ' c "" a\n' \ . ' c "0 ba\n' \ . ' c "a b\n' \ . '.*' \ . ' c "- a\n' \ . '.*' \ . ' c ": ls\n' \ . ' c "% file2\n' \ . ' c "# file1\n' \ . ' c "/ bar\n' \ . ' c "= 2\*4', a) let a = execute('registers a') call assert_match('^\nType Name Content\n' \ . ' c "a b', a) let a = execute('registers :') call assert_match('^\nType Name Content\n' \ . ' c ": ls', a) bwipe! endfunc func Test_register_one() " delete a line goes into register one new call setline(1, "one") normal dd call assert_equal("one\n", @1) " delete a word does not change register one, does change "- call setline(1, "two") normal de call assert_equal("one\n", @1) call assert_equal("two", @-) " delete a word with a register does not change register one call setline(1, "three") normal "ade call assert_equal("three", @a) call assert_equal("one\n", @1) " delete a word with register DOES change register one with one of a list of " operators " % call setline(1, ["(12)3"]) normal "ad% call assert_equal("(12)", @a) call assert_equal("(12)", @1) " ( call setline(1, ["first second"]) normal $"ad( call assert_equal("first secon", @a) call assert_equal("first secon", @1) " ) call setline(1, ["First Second."]) normal gg0"ad) call assert_equal("First Second.", @a) call assert_equal("First Second.", @1) " ` call setline(1, ["start here."]) normal gg0fhmx0"ad`x call assert_equal("start ", @a) call assert_equal("start ", @1) " / call setline(1, ["searchX"]) exe "normal gg0\"ad/X\<CR>" call assert_equal("search", @a) call assert_equal("search", @1) " ? call setline(1, ["Ysearch"]) exe "normal gg$\"ad?Y\<CR>" call assert_equal("Ysearc", @a) call assert_equal("Ysearc", @1) " n call setline(1, ["Ynext"]) normal gg$"adn call assert_equal("Ynex", @a) call assert_equal("Ynex", @1) " N call setline(1, ["prevY"]) normal gg0"adN call assert_equal("prev", @a) call assert_equal("prev", @1) " } call setline(1, ["one", ""]) normal gg0"ad} call assert_equal("one\n", @a) call assert_equal("one\n", @1) " { call setline(1, ["", "two"]) normal 2G$"ad{ call assert_equal("\ntw", @a) call assert_equal("\ntw", @1) bwipe! endfunc " Check that replaying a typed sequence does not use an Esc and following " characters as an escape sequence. func Test_recording_esc_sequence() new try let save_F2 = &t_F2 catch endtry let t_F2 = "\<Esc>OQ" call feedkeys("qqiTest\<Esc>", "xt") call feedkeys("OQuirk\<Esc>q", "xt") call feedkeys("Go\<Esc>@q", "xt") call assert_equal(['Quirk', 'Test', 'Quirk', 'Test'], getline(1, 4)) bwipe! if exists('save_F2') let &t_F2 = save_F2 else set t_F2= endif endfunc " Test for executing the last used register (@) func Test_last_used_exec_reg() " Test for the @: command let a = '' call feedkeys(":let a ..= 'Vim'\<CR>", 'xt') normal @: call assert_equal('VimVim', a) " Test for the @= command let x = '' let a = ":let x ..= 'Vim'\<CR>" exe "normal @=a\<CR>" normal @@ call assert_equal('VimVim', x) " Test for the @. command let a = '' call feedkeys("i:let a ..= 'Edit'\<CR>", 'xt') normal @. normal @@ call assert_equal('EditEdit', a) " Test for repeating the last command-line in visual mode call append(0, 'register') normal gg let @r = '' call feedkeys("v:yank R\<CR>", 'xt') call feedkeys("v@:", 'xt') call assert_equal("\nregister\nregister\n", @r) enew! endfunc func Test_get_register() enew edit Xfile1 edit Xfile2 call assert_equal('Xfile2', getreg('%')) call assert_equal('Xfile1', getreg('#')) call feedkeys("iTwo\<Esc>", 'xt') call assert_equal('Two', getreg('.')) call assert_equal('', getreg('_')) call assert_beeps('normal ":yy') call assert_beeps('normal "%yy') call assert_beeps('normal ".yy') call assert_equal('', getreg("\<C-F>")) call assert_equal('', getreg("\<C-W>")) call assert_equal('', getreg("\<C-L>")) call assert_equal('', getregtype('!')) " Test for inserting an invalid register content call assert_beeps('exe "normal i\<C-R>!"') " Test for inserting a register with multiple lines call deletebufline('', 1, '$') call setreg('r', ['a', 'b']) exe "normal i\<C-R>r" call assert_equal(['a', 'b', ''], getline(1, '$')) " Test for inserting a multi-line register in the command line call feedkeys(":\<C-R>r\<Esc>", 'xt') call assert_equal("a\rb\r", histget(':', -1)) enew! endfunc func Test_set_register() call assert_fails("call setreg('#', 200)", 'E86:') edit Xfile_alt_1 let b1 = bufnr('') edit Xfile_alt_2 let b2 = bufnr('') edit Xfile_alt_3 let b3 = bufnr('') call setreg('#', 'alt_1') call assert_equal('Xfile_alt_1', getreg('#')) call setreg('#', b2) call assert_equal('Xfile_alt_2', getreg('#')) let ab = 'regwrite' call setreg('=', '') call setreg('=', 'a', 'a') call setreg('=', 'b', 'a') call assert_equal('regwrite', getreg('=')) " Test for setting a list of lines to special registers call setreg('/', []) call assert_equal('', @/) call setreg('=', []) call assert_equal('', @=) call assert_fails("call setreg('/', ['a', 'b'])", 'E883:') call assert_fails("call setreg('=', ['a', 'b'])", 'E883:') call assert_equal(0, setreg('_', ['a', 'b'])) " Test for recording to a invalid register call assert_beeps('normal q$') " Appending to a register when recording call append(0, "text for clipboard test") normal gg call feedkeys('qrllq', 'xt') call feedkeys('qRhhq', 'xt') call assert_equal('llhh', getreg('r')) " Appending a list of characters to a register from different lines let @r = '' call append(0, ['abcdef', '123456']) normal gg"ry3l call cursor(2, 4) normal "Ry3l call assert_equal('abc456', @r) " Test for gP with multiple lines selected using characterwise motion %delete call append(0, ['vim editor', 'vim editor']) let @r = '' exe "normal ggwy/vim /e\<CR>gP" call assert_equal(['vim editor', 'vim editor', 'vim editor'], getline(1, 3)) " Test for gP with . register %delete normal iabc normal ".gp call assert_equal('abcabc', getline(1)) normal 0".gP call assert_equal('abcabcabc', getline(1)) enew! endfunc " Test for clipboard registers (* and +) func Test_clipboard_regs() CheckNotGui CheckFeature clipboard_working new call append(0, "text for clipboard test") normal gg"*yiw call assert_equal('text', getreg('*')) normal gg2w"+yiw call assert_equal('clipboard', getreg('+')) " Test for replacing the clipboard register contents set clipboard=unnamed let @* = 'food' normal ggviw"*p call assert_equal('text', getreg('*')) call assert_equal('food for clipboard test', getline(1)) normal ggviw"*p call assert_equal('food', getreg('*')) call assert_equal('text for clipboard test', getline(1)) " Test for replacing the selection register contents set clipboard=unnamedplus let @+ = 'food' normal ggviw"+p call assert_equal('text', getreg('+')) call assert_equal('food for clipboard test', getline(1)) normal ggviw"+p call assert_equal('food', getreg('+')) call assert_equal('text for clipboard test', getline(1)) " Test for auto copying visually selected text to clipboard register call setline(1, "text for clipboard test") let @* = '' set clipboard=autoselect normal ggwwviwy call assert_equal('clipboard', @*) " Test for auto copying visually selected text to selection register let @+ = '' set clipboard=autoselectplus normal ggwviwy call assert_equal('for', @+) set clipboard&vim bwipe! endfunc " Test for restarting the current mode (insert or virtual replace) after " executing the contents of a register func Test_put_reg_restart_mode() new call append(0, 'editor') normal gg let @r = "ivim \<Esc>" call feedkeys("i\<C-O>@r\<C-R>=mode()\<CR>", 'xt') call assert_equal('vimi editor', getline(1)) call setline(1, 'editor') normal gg call feedkeys("gR\<C-O>@r\<C-R>=mode()\<CR>", 'xt') call assert_equal('vimReditor', getline(1)) bwipe! endfunc " Test for executing a register using :@ command func Test_execute_register() call setreg('r', []) call assert_beeps('@r') let i = 1 let @q = 'let i+= 1' @q @ call assert_equal(3, i) endfunc " vim: shiftwidth=2 sts=2 expandtab