Mercurial > vim
view src/testdir/test_registers.vim @ 26608:1eb62546e20c v8.2.3833
patch 8.2.3833: error from term_start() not caught by try/catch
Commit: https://github.com/vim/vim/commit/c3f91c0648f4b04a6a9ceb4ccec45ea767a63796
Author: ichizok <gclient.gaap@gmail.com>
Date: Fri Dec 17 09:44:33 2021 +0000
patch 8.2.3833: error from term_start() not caught by try/catch
Problem: Error from term_start() not caught by try/catch.
Solution: save and restore did_emsg when applying autocommands. (Ozaki
Kiichi, closes #9361)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Fri, 17 Dec 2021 10:45:07 +0100 |
parents | b1440083f0da |
children | 9975bd408d6c |
line wrap: on
line source
" Tests for register operations source check.vim source view_util.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 func Test_recording_status_in_ex_line() norm qx redraw! call assert_equal('recording @x', Screenline(&lines)) set shortmess=q redraw! call assert_equal('recording', Screenline(&lines)) set shortmess& norm q redraw! call assert_equal('', Screenline(&lines)) 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>")) " Change the last used register to '"' for the next test normal! ""yy let @" = 'happy' call assert_equal('happy', getreg()) call assert_equal('happy', getreg('')) call assert_equal('', getregtype('!')) call assert_fails('echo getregtype([])', 'E730:') call assert_equal('v', getregtype()) call assert_equal('v', 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)) call assert_fails('let r = getreg("=", [])', 'E745:') call assert_fails('let r = getreg("=", 1, [])', 'E745:') enew! " Using a register in operator-pending mode should fail call assert_beeps('norm! c"') endfunc func Test_set_register() call assert_fails("call setreg('#', 200)", 'E86:') call assert_fails("call setreg('a', test_unknown())", 'E908:') 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)) let @"='' call setreg('', '1') call assert_equal('1', @") call setreg('@', '2') call assert_equal('2', @") 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) " try to execute expression register and use a backspace to cancel it new call feedkeys("@=\<BS>ax\<CR>y", 'xt') call assert_equal(['x', 'y'], getline(1, '$')) close! " cannot execute a register in operator pending mode call assert_beeps('normal! c@r') endfunc " Test for getting register info func Test_get_reginfo() enew call setline(1, ['foo', 'bar']) exe 'norm! "zyy' let info = getreginfo('"') call assert_equal('z', info.points_to) call setreg('y', 'baz') call assert_equal('z', getreginfo('').points_to) call setreg('y', { 'isunnamed': v:true }) call assert_equal('y', getreginfo('"').points_to) exe '$put' call assert_equal(getreg('y'), getline(3)) call setreg('', 'qux') call assert_equal('0', getreginfo('').points_to) call setreg('x', 'quux') call assert_equal('0', getreginfo('').points_to) let info = getreginfo('') call assert_equal(getreg('', 1, 1), info.regcontents) call assert_equal(getregtype(''), info.regtype) exe "norm! 0\<c-v>e" .. '"zy' let info = getreginfo('z') call assert_equal(getreg('z', 1, 1), info.regcontents) call assert_equal(getregtype('z'), info.regtype) call assert_equal(1, +info.isunnamed) let info = getreginfo('"') call assert_equal('z', info.points_to) let @a="a1b2" nnoremap <F2> <Cmd>let g:RegInfo = getreginfo()<CR> exe "normal \"a\<F2>" call assert_equal({'regcontents': ['a1b2'], 'isunnamed': v:false, \ 'regtype': 'v'}, g:RegInfo) nunmap <F2> unlet g:RegInfo bwipe! endfunc " Test for restoring register with dict from getreginfo func Test_set_register_dict() enew! call setreg('"', #{ regcontents: ['one', 'two'], \ regtype: 'V', points_to: 'z' }) call assert_equal(['one', 'two'], getreg('"', 1, 1)) let info = getreginfo('"') call assert_equal('z', info.points_to) call assert_equal('V', info.regtype) call assert_equal(1, +getreginfo('z').isunnamed) call setreg('x', #{ regcontents: ['three', 'four'], \ regtype: 'v', isunnamed: v:true }) call assert_equal(['three', 'four'], getreg('"', 1, 1)) let info = getreginfo('"') call assert_equal('x', info.points_to) call assert_equal('v', info.regtype) call assert_equal(1, +getreginfo('x').isunnamed) call setreg('y', #{ regcontents: 'five', \ regtype: "\<c-v>", isunnamed: v:false }) call assert_equal("\<c-v>4", getreginfo('y').regtype) call assert_equal(0, +getreginfo('y').isunnamed) call assert_equal(['three', 'four'], getreg('"', 1, 1)) call assert_equal('x', getreginfo('"').points_to) call setreg('"', #{ regcontents: 'six' }) call assert_equal('0', getreginfo('"').points_to) call assert_equal(1, +getreginfo('0').isunnamed) call assert_equal(['six'], getreginfo('0').regcontents) call assert_equal(['six'], getreginfo('"').regcontents) let @x = 'one' call setreg('x', {}) call assert_equal(1, len(split(execute('reg x'), '\n'))) call assert_fails("call setreg('0', #{regtype: 'V'}, 'v')", 'E118:') call assert_fails("call setreg('0', #{regtype: 'X'})", 'E475:') call assert_fails("call setreg('0', #{regtype: 'vy'})", 'E475:') bwipe! endfunc func Test_v_register() enew call setline(1, 'nothing') func s:Put() let s:register = v:register exec 'normal! "' .. v:register .. 'P' endfunc nnoremap <buffer> <plug>(test) :<c-u>call s:Put()<cr> nmap <buffer> S <plug>(test) let @z = "testz\n" let @" = "test@\n" let s:register = '' call feedkeys('"_ddS', 'mx') call assert_equal('test@', getline('.')) " fails before 8.2.0929 call assert_equal('"', s:register) " fails before 8.2.0929 let s:register = '' call feedkeys('"zS', 'mx') call assert_equal('z', s:register) let s:register = '' call feedkeys('"zSS', 'mx') call assert_equal('"', s:register) let s:register = '' call feedkeys('"_S', 'mx') call assert_equal('_', s:register) let s:register = '' normal "_ddS call assert_equal('"', s:register) " fails before 8.2.0929 call assert_equal('test@', getline('.')) " fails before 8.2.0929 let s:register = '' execute 'normal "z:call' "s:Put()\n" call assert_equal('z', s:register) call assert_equal('testz', getline('.')) " Test operator and omap let @b = 'testb' func s:OpFunc(...) let s:register2 = v:register endfunc set opfunc=s:OpFunc normal "bg@l normal S call assert_equal('"', s:register) " fails before 8.2.0929 call assert_equal('b', s:register2) func s:Motion() let s:register1 = v:register normal! l endfunc onoremap <buffer> Q :<c-u>call s:Motion()<cr> normal "bg@Q normal S call assert_equal('"', s:register) call assert_equal('b', s:register1) call assert_equal('"', s:register2) set opfunc& bwipe! endfunc " Test for executing the contents of a register as an Ex command with line " continuation. func Test_execute_reg_as_ex_cmd() " Line continuation with just two lines let code =<< trim END let l = [ \ 1] END let @r = code->join("\n") let l = [] @r call assert_equal([1], l) " Line continuation with more than two lines let code =<< trim END let l = [ \ 1, \ 2, \ 3] END let @r = code->join("\n") let l = [] @r call assert_equal([1, 2, 3], l) " use comments interspersed with code let code =<< trim END let l = [ "\ one \ 1, "\ two \ 2, "\ three \ 3] END let @r = code->join("\n") let l = [] @r call assert_equal([1, 2, 3], l) " use line continuation in the middle let code =<< trim END let a = "one" let l = [ \ 1, \ 2] let b = "two" END let @r = code->join("\n") let l = [] @r call assert_equal([1, 2], l) call assert_equal("one", a) call assert_equal("two", b) " only one line with a \ let @r = "\\let l = 1" call assert_fails('@r', 'E10:') " only one line with a "\ let @r = ' "\ let i = 1' @r call assert_false(exists('i')) " first line also begins with a \ let @r = "\\let l = [\n\\ 1]" call assert_fails('@r', 'E10:') " Test with a large number of lines let @r = "let str = \n" let @r ..= repeat(" \\ 'abcdefghijklmnopqrstuvwxyz' ..\n", 312) let @r ..= ' \ ""' @r call assert_equal(repeat('abcdefghijklmnopqrstuvwxyz', 312), str) endfunc " Test for clipboard registers with ASCII NUL func Test_clipboard_nul() CheckFeature clipboard_working new " Test for putting ASCII NUL into the clipboard set clipboard=unnamed call append(0, "\ntest") normal ggyyp call assert_equal("^@test^@", strtrans(getreg('*'))) call assert_equal(getline(1), getline(2)) let b = split(execute(":reg *"), "\n") call assert_match('"\*\s*\^@test\^J',b[1]) set clipboard&vim bwipe! endfunc func Test_ve_blockpaste() new set ve=all 0put =['QWERTZ','ASDFGH'] call cursor(1,1) exe ":norm! \<C-V>3ljdP" call assert_equal(1, col('.')) call assert_equal(getline(1, 2), ['QWERTZ', 'ASDFGH']) call cursor(1,1) exe ":norm! \<C-V>3ljd" call cursor(1,1) norm! $3lP call assert_equal(5, col('.')) call assert_equal(getline(1, 2), ['TZ QWER', 'GH ASDF']) set ve&vim bwipe! endfunc func Test_insert_small_delete() new call setline(1, ['foo foobar bar']) call cursor(1,1) exe ":norm! ciw'\<C-R>-'" call assert_equal("'foo' foobar bar", getline(1)) exe ":norm! w.w." call assert_equal("'foo' 'foobar' 'bar'", getline(1)) bwipe! endfunc " Record in insert mode using CTRL-O func Test_record_in_insert_mode() new let @r = '' call setline(1, ['foo']) call feedkeys("i\<C-O>qrbaz\<C-O>q", 'xt') call assert_equal('baz', @r) bwipe! endfunc " Make sure that y_append is correctly reset " and the previous register is working as expected func Test_register_y_append_reset() new call setline(1, ['1', \ '2 ----------------------------------------------------', \ '3', \ '4', \ '5 ----------------------------------------------------', \ '6', \ '7', \ '8 ----------------------------------------------------', \ '9', \ '10 aaaaaaa 4.', \ '11 Game Dbl-Figures Leaders:', \ '12 Player Pts FG% 3P% FT% RB AS BL ST TO PF EFF', \ '13 bbbbbbbbb 12 (50 /0 /67 )/ 7/ 3/ 0/ 2/ 3/ 4/+15', \ '14 cccccc 12 (57 /67 /100)/ 2/ 1/ 1/ 0/ 1/ 3/+12', \ '15 ddddddd 10 (63 /0 /0 )/ 1/ 3/ 0/ 3/ 5/ 3/ +9', \ '16 4 5-15 0-3 2-2 5-12 1-1 3-4 33.3 0.0 100 41.7 100 75 12 14', \ '17 F 23-55 2-10 9-11 23-52 3-13 26-29 41.8 20 81.8 44.2 23.1 89.7 57 75', \ '18 4 3 6 3 2 3 3 4 3 3 7 3 1 4 6 -1 -1 +2 -1 -2', \ '19 F 13 19 5 10 4 17 22 9 14 32 13 4 20 17 -1 -13 -4 -3 -3 +5']) 11 exe "norm! \"a5dd" norm! j exe "norm! \"bY" norm! 2j exe "norm! \"BY" norm! 4k norm! 5dd norm! 3k " The next put should put the content of the unnamed register, not of " register b! norm! p call assert_equal(['1', \ '2 ----------------------------------------------------', \ '3', \ '4', \ '5 ----------------------------------------------------', \ '6', \ '10 aaaaaaa 4.', \ '16 4 5-15 0-3 2-2 5-12 1-1 3-4 33.3 0.0 100 41.7 100 75 12 14', \ '17 F 23-55 2-10 9-11 23-52 3-13 26-29 41.8 20 81.8 44.2 23.1 89.7 57 75', \ '18 4 3 6 3 2 3 3 4 3 3 7 3 1 4 6 -1 -1 +2 -1 -2', \ '19 F 13 19 5 10 4 17 22 9 14 32 13 4 20 17 -1 -13 -4 -3 -3 +5', \ '7', \ '8 ----------------------------------------------------', \ '9'], getline(1,'$')) bwipe! endfunc " vim: shiftwidth=2 sts=2 expandtab