Mercurial > vim
view src/testdir/test_messages.vim @ 27970:212c5894b8b1 v8.2.4510
patch 8.2.4510: Vim9: shortening commands leads to confusing script
Commit: https://github.com/vim/vim/commit/204852ae2adfdde10c656ca7f14e5b4207a69172
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Mar 5 12:56:44 2022 +0000
patch 8.2.4510: Vim9: shortening commands leads to confusing script
Problem: Vim9: shortening commands leads to confusing script.
Solution: In Vim9 script require at least ":cont" for ":continue", "const"
instead of "cons", "break" instead of "brea", "catch" instead of
"cat", "else" instead of "el" "elseif" instead of "elsei" "endfor"
instead of "endfo" "endif" instead of "en" "endtry" instead of
"endt", "finally" instead of "fina", "throw" instead of "th",
"while" instead of "wh".
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 05 Mar 2022 14:00:03 +0100 |
parents | 44e82999b4e1 |
children | 7824e49e5f51 |
line wrap: on
line source
" Tests for :messages, :echomsg, :echoerr source check.vim source shared.vim source term_util.vim source view_util.vim source screendump.vim func Test_messages() let oldmore = &more try set nomore let arr = map(range(10), '"hello" . v:val') for s in arr echomsg s | redraw endfor " get last two messages redir => result 2messages | redraw redir END let msg_list = split(result, "\n") call assert_equal(["hello8", "hello9"], msg_list) " clear messages without last one 1messages clear let msg_list = GetMessages() call assert_equal(['hello9'], msg_list) " clear all messages messages clear let msg_list = GetMessages() call assert_equal([], msg_list) finally let &more = oldmore endtry call assert_fails('message 1', 'E474:') endfunc " Patch 7.4.1696 defined the "clearmode()" function for clearing the mode " indicator (e.g., "-- INSERT --") when ":stopinsert" is invoked. Message " output could then be disturbed when 'cmdheight' was greater than one. " This test ensures that the bugfix for this issue remains in place. func Test_stopinsert_does_not_break_message_output() set cmdheight=2 redraw! stopinsert | echo 'test echo' call assert_equal(116, screenchar(&lines - 1, 1)) call assert_equal(32, screenchar(&lines, 1)) redraw! stopinsert | echomsg 'test echomsg' call assert_equal(116, screenchar(&lines - 1, 1)) call assert_equal(32, screenchar(&lines, 1)) redraw! set cmdheight& endfunc func Test_message_completion() call feedkeys(":message \<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"message clear', @:) endfunc func Test_echomsg() call assert_equal("\nhello", execute(':echomsg "hello"')) call assert_equal("\n", execute(':echomsg ""')) call assert_equal("\n12345", execute(':echomsg 12345')) call assert_equal("\n[]", execute(':echomsg []')) call assert_equal("\n[1, 2, 3]", execute(':echomsg [1, 2, 3]')) call assert_equal("\n[1, 2, []]", execute(':echomsg [1, 2, test_null_list()]')) call assert_equal("\n{}", execute(':echomsg {}')) call assert_equal("\n{'a': 1, 'b': 2}", execute(':echomsg {"a": 1, "b": 2}')) if has('float') call assert_equal("\n1.23", execute(':echomsg 1.23')) endif call assert_match("function('<lambda>\\d*')", execute(':echomsg {-> 1234}')) endfunc func Test_echoerr() call test_ignore_error('IgNoRe') call assert_equal("\nIgNoRe hello", execute(':echoerr "IgNoRe hello"')) call assert_equal("\n12345 IgNoRe", execute(':echoerr 12345 "IgNoRe"')) call assert_equal("\n[1, 2, 'IgNoRe']", execute(':echoerr [1, 2, "IgNoRe"]')) call assert_equal("\n{'IgNoRe': 2, 'a': 1}", execute(':echoerr {"a": 1, "IgNoRe": 2}')) if has('float') call assert_equal("\n1.23 IgNoRe", execute(':echoerr 1.23 "IgNoRe"')) endif eval '<lambda>'->test_ignore_error() call assert_match("function('<lambda>\\d*')", execute(':echoerr {-> 1234}')) call test_ignore_error('RESET') endfunc func Test_mode_message_at_leaving_insert_by_ctrl_c() CheckFeature terminal CheckNotGui " Set custom statusline built by user-defined function. let testfile = 'Xtest.vim' let lines =<< trim END func StatusLine() abort return "" endfunc set statusline=%!StatusLine() set laststatus=2 END call writefile(lines, testfile) let rows = 10 let buf = term_start([GetVimProg(), '--clean', '-S', testfile], {'term_rows': rows}) call TermWait(buf, 100) call assert_equal('run', job_status(term_getjob(buf))) call term_sendkeys(buf, "i") call WaitForAssert({-> assert_match('^-- INSERT --\s*$', term_getline(buf, rows))}) call term_sendkeys(buf, "\<C-C>") call WaitForAssert({-> assert_match('^\s*$', term_getline(buf, rows))}) call term_sendkeys(buf, ":qall!\<CR>") call WaitForAssert({-> assert_equal('dead', job_status(term_getjob(buf)))}) exe buf . 'bwipe!' call delete(testfile) endfunc func Test_mode_message_at_leaving_insert_with_esc_mapped() CheckFeature terminal CheckNotGui " Set custom statusline built by user-defined function. let testfile = 'Xtest.vim' let lines =<< trim END set laststatus=2 inoremap <Esc> <Esc>00 END call writefile(lines, testfile) let rows = 10 let buf = term_start([GetVimProg(), '--clean', '-S', testfile], {'term_rows': rows}) call WaitForAssert({-> assert_match('0,0-1\s*All$', term_getline(buf, rows - 1))}) call assert_equal('run', job_status(term_getjob(buf))) call term_sendkeys(buf, "i") call WaitForAssert({-> assert_match('^-- INSERT --\s*$', term_getline(buf, rows))}) call term_sendkeys(buf, "\<Esc>") call WaitForAssert({-> assert_match('^\s*$', term_getline(buf, rows))}) call term_sendkeys(buf, ":qall!\<CR>") call WaitForAssert({-> assert_equal('dead', job_status(term_getjob(buf)))}) exe buf . 'bwipe!' call delete(testfile) endfunc func Test_echospace() set noruler noshowcmd laststatus=1 call assert_equal(&columns - 1, v:echospace) split call assert_equal(&columns - 1, v:echospace) set ruler call assert_equal(&columns - 1, v:echospace) close call assert_equal(&columns - 19, v:echospace) set showcmd noruler call assert_equal(&columns - 12, v:echospace) set showcmd ruler call assert_equal(&columns - 29, v:echospace) set ruler& showcmd& endfunc " Test more-prompt (see :help more-prompt). func Test_message_more() CheckRunVimInTerminal let buf = RunVimInTerminal('', {'rows': 6}) call term_sendkeys(buf, ":call setline(1, range(1, 100))\n") call term_sendkeys(buf, ":%p#\n") call WaitForAssert({-> assert_equal(' 5 5', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) call term_sendkeys(buf, '?') call WaitForAssert({-> assert_equal(' 5 5', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More -- SPACE/d/j: screen/page/line down, b/u/k: up, q: quit ', term_getline(buf, 6))}) " Down a line with j, <CR>, <NL> or <Down>. call term_sendkeys(buf, "j") call WaitForAssert({-> assert_equal(' 6 6', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) call term_sendkeys(buf, "\<NL>") call WaitForAssert({-> assert_equal(' 7 7', term_getline(buf, 5))}) call term_sendkeys(buf, "\<CR>") call WaitForAssert({-> assert_equal(' 8 8', term_getline(buf, 5))}) call term_sendkeys(buf, "\<Down>") call WaitForAssert({-> assert_equal(' 9 9', term_getline(buf, 5))}) " Down a screen with <Space>, f, or <PageDown>. call term_sendkeys(buf, 'f') call WaitForAssert({-> assert_equal(' 14 14', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) call term_sendkeys(buf, ' ') call WaitForAssert({-> assert_equal(' 19 19', term_getline(buf, 5))}) call term_sendkeys(buf, "\<PageDown>") call WaitForAssert({-> assert_equal(' 24 24', term_getline(buf, 5))}) " Down a page (half a screen) with d. call term_sendkeys(buf, 'd') call WaitForAssert({-> assert_equal(' 27 27', term_getline(buf, 5))}) " Down all the way with 'G'. call term_sendkeys(buf, 'G') call WaitForAssert({-> assert_equal('100 100', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('Press ENTER or type command to continue', term_getline(buf, 6))}) " Up a line k, <BS> or <Up>. call term_sendkeys(buf, 'k') call WaitForAssert({-> assert_equal(' 99 99', term_getline(buf, 5))}) call term_sendkeys(buf, "\<BS>") call WaitForAssert({-> assert_equal(' 98 98', term_getline(buf, 5))}) call term_sendkeys(buf, "\<Up>") call WaitForAssert({-> assert_equal(' 97 97', term_getline(buf, 5))}) " Up a screen with b or <PageUp>. call term_sendkeys(buf, 'b') call WaitForAssert({-> assert_equal(' 92 92', term_getline(buf, 5))}) call term_sendkeys(buf, "\<PageUp>") call WaitForAssert({-> assert_equal(' 87 87', term_getline(buf, 5))}) " Up a page (half a screen) with u. call term_sendkeys(buf, 'u') call WaitForAssert({-> assert_equal(' 84 84', term_getline(buf, 5))}) " Up all the way with 'g'. call term_sendkeys(buf, 'g') call WaitForAssert({-> assert_equal(' 5 5', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) " All the way down. Pressing f should do nothing but pressing " space should end the more prompt. call term_sendkeys(buf, 'G') call WaitForAssert({-> assert_equal('100 100', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('Press ENTER or type command to continue', term_getline(buf, 6))}) call term_sendkeys(buf, 'f') call WaitForAssert({-> assert_equal('100 100', term_getline(buf, 5))}) call term_sendkeys(buf, ' ') call WaitForAssert({-> assert_equal('100', term_getline(buf, 5))}) " Pressing g< shows the previous command output. call term_sendkeys(buf, 'g<') call WaitForAssert({-> assert_equal('100 100', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('Press ENTER or type command to continue', term_getline(buf, 6))}) call term_sendkeys(buf, ":%p#\n") call WaitForAssert({-> assert_equal(' 5 5', term_getline(buf, 5))}) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) " Stop command output with q, <Esc> or CTRL-C. call term_sendkeys(buf, 'q') call WaitForAssert({-> assert_equal('100', term_getline(buf, 5))}) " Execute a : command from the more prompt call term_sendkeys(buf, ":%p#\n") call term_wait(buf) call WaitForAssert({-> assert_equal('-- More --', term_getline(buf, 6))}) call term_sendkeys(buf, ":") call term_wait(buf) call WaitForAssert({-> assert_equal(':', term_getline(buf, 6))}) call term_sendkeys(buf, "echo 'Hello'\n") call term_wait(buf) call WaitForAssert({-> assert_equal('Hello ', term_getline(buf, 5))}) call StopVimInTerminal(buf) endfunc func Test_ask_yesno() CheckRunVimInTerminal let buf = RunVimInTerminal('', {'rows': 6}) call term_sendkeys(buf, ":call setline(1, range(1, 2))\n") call term_sendkeys(buf, ":2,1s/^/n/\n") call WaitForAssert({-> assert_equal('Backwards range given, OK to swap (y/n)?', term_getline(buf, 6))}) call term_sendkeys(buf, "n") call WaitForAssert({-> assert_match('^Backwards range given, OK to swap (y/n)?n *1,1 *All$', term_getline(buf, 6))}) call WaitForAssert({-> assert_equal('1', term_getline(buf, 1))}) call term_sendkeys(buf, ":2,1s/^/Esc/\n") call WaitForAssert({-> assert_equal('Backwards range given, OK to swap (y/n)?', term_getline(buf, 6))}) call term_sendkeys(buf, "\<Esc>") call WaitForAssert({-> assert_match('^Backwards range given, OK to swap (y/n)?n *1,1 *All$', term_getline(buf, 6))}) call WaitForAssert({-> assert_equal('1', term_getline(buf, 1))}) call term_sendkeys(buf, ":2,1s/^/y/\n") call WaitForAssert({-> assert_equal('Backwards range given, OK to swap (y/n)?', term_getline(buf, 6))}) call term_sendkeys(buf, "y") call WaitForAssert({-> assert_match('^Backwards range given, OK to swap (y/n)?y *2,1 *All$', term_getline(buf, 6))}) call WaitForAssert({-> assert_equal('y1', term_getline(buf, 1))}) call WaitForAssert({-> assert_equal('y2', term_getline(buf, 2))}) call StopVimInTerminal(buf) endfunc func Test_null() echom test_null_list() echom test_null_dict() echom test_null_blob() echom test_null_string() echom test_null_function() echom test_null_partial() if has('job') echom test_null_job() echom test_null_channel() endif endfunc func Test_mapping_at_hit_return_prompt() nnoremap <C-B> :echo "hit ctrl-b"<CR> call feedkeys(":ls\<CR>", "xt") call feedkeys("\<*C-B>", "xt") call assert_match('hit ctrl-b', Screenline(&lines - 1)) nunmap <C-B> endfunc func Test_quit_long_message() CheckScreendump let content =<< trim END echom range(9999)->join("\x01") END call writefile(content, 'Xtest_quit_message') let buf = RunVimInTerminal('-S Xtest_quit_message', #{rows: 6}) call term_sendkeys(buf, "q") call VerifyScreenDump(buf, 'Test_quit_long_message', {}) " clean up call StopVimInTerminal(buf) call delete('Xtest_quit_message') endfunc " this was missing a terminating NUL func Test_echo_string_partial() function CountSpaces() endfunction call assert_equal("function('CountSpaces', [{'ccccccccccc': ['ab', 'cd'], 'aaaaaaaaaaa': v:false, 'bbbbbbbbbbbb': ''}])", string(function('CountSpaces', [#{aaaaaaaaaaa: v:false, bbbbbbbbbbbb: '', ccccccccccc: ['ab', 'cd']}]))) endfunc " Message output was previously overwritten by the fileinfo display, shown " when switching buffers. If a buffer is switched to, then a message if " echoed, we should show the message, rather than overwriting it with " fileinfo. func Test_fileinfo_after_echo() CheckScreendump let content =<< trim END file a.txt hide edit b.txt call setline(1, "hi") setlocal modified hide buffer a.txt set updatetime=1 autocmd CursorHold * b b.txt | w | echo "'b' written" END call writefile(content, 'Xtest_fileinfo_after_echo') let buf = RunVimInTerminal('-S Xtest_fileinfo_after_echo', #{rows: 6}) call VerifyScreenDump(buf, 'Test_fileinfo_after_echo', {}) call term_sendkeys(buf, ":q\<CR>") " clean up call StopVimInTerminal(buf) call delete('Xtest_fileinfo_after_echo') call delete('b.txt') endfunc " vim: shiftwidth=2 sts=2 expandtab