Mercurial > vim
view src/testdir/test_mapping.vim @ 23867:6d5df74b995d v8.2.2475
patch 8.2.2475: autocommand tests hangs on MS-Windows
Commit: https://github.com/vim/vim/commit/dfc3db76b9de217542cc9258301c1b4818a51cd0
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Feb 6 19:28:48 2021 +0100
patch 8.2.2475: autocommand tests hangs on MS-Windows
Problem: Autocommand tests hangs on MS-Windows.
Solution: Skip one test.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 06 Feb 2021 19:30:05 +0100 |
parents | b68313ee7002 |
children | 34acfef7f60c |
line wrap: on
line source
" Tests for mappings and abbreviations source shared.vim source check.vim source screendump.vim source term_util.vim func Test_abbreviation() " abbreviation with 0x80 should work inoreab чкпр vim call feedkeys("Goчкпр \<Esc>", "xt") call assert_equal('vim ', getline('$')) iunab чкпр set nomodified endfunc func Test_abclear() abbrev foo foobar iabbrev fooi foobari cabbrev fooc foobarc call assert_equal("\n\n" \ .. "c fooc foobarc\n" \ .. "i fooi foobari\n" \ .. "! foo foobar", execute('abbrev')) iabclear call assert_equal("\n\n" \ .. "c fooc foobarc\n" \ .. "c foo foobar", execute('abbrev')) abbrev foo foobar iabbrev fooi foobari cabclear call assert_equal("\n\n" \ .. "i fooi foobari\n" \ .. "i foo foobar", execute('abbrev')) abbrev foo foobar cabbrev fooc foobarc abclear call assert_equal("\n\nNo abbreviation found", execute('abbrev')) call assert_fails('%abclear', 'E481:') endfunc func Test_abclear_buffer() abbrev foo foobar new X1 abbrev <buffer> foo1 foobar1 new X2 abbrev <buffer> foo2 foobar2 call assert_equal("\n\n" \ .. "! foo2 @foobar2\n" \ .. "! foo foobar", execute('abbrev')) abclear <buffer> call assert_equal("\n\n" \ .. "! foo foobar", execute('abbrev')) b X1 call assert_equal("\n\n" \ .. "! foo1 @foobar1\n" \ .. "! foo foobar", execute('abbrev')) abclear <buffer> call assert_equal("\n\n" \ .. "! foo foobar", execute('abbrev')) abclear call assert_equal("\n\nNo abbreviation found", execute('abbrev')) %bwipe endfunc func Test_map_ctrl_c_insert() " mapping of ctrl-c in Insert mode set cpo-=< cpo-=k inoremap <c-c> <ctrl-c> cnoremap <c-c> dummy cunmap <c-c> call feedkeys("GoTEST2: CTRL-C |\<*C-C>A|\<Esc>", "xt") call assert_equal('TEST2: CTRL-C |<ctrl-c>A|', getline('$')) unmap! <c-c> set nomodified endfunc func Test_map_ctrl_c_visual() " mapping of ctrl-c in Visual mode vnoremap <c-c> :<C-u>$put ='vmap works' call feedkeys("GV\<*C-C>\<CR>", "xt") call assert_equal('vmap works', getline('$')) vunmap <c-c> set nomodified endfunc func Test_map_langmap() CheckFeature langmap " check langmap applies in normal mode set langmap=+- nolangremap new call setline(1, ['a', 'b', 'c']) 2 call assert_equal('b', getline('.')) call feedkeys("+", "xt") call assert_equal('a', getline('.')) " check no remapping map x + 2 call feedkeys("x", "xt") call assert_equal('c', getline('.')) " check with remapping set langremap 2 call feedkeys("x", "xt") call assert_equal('a', getline('.')) unmap x bwipe! " 'langnoremap' follows 'langremap' and vise versa set langremap set langnoremap call assert_equal(0, &langremap) set langremap call assert_equal(0, &langnoremap) set nolangremap call assert_equal(1, &langnoremap) " check default values set langnoremap& call assert_equal(0, &langnoremap) call assert_equal(1, &langremap) set langremap& call assert_equal(0, &langnoremap) call assert_equal(1, &langremap) " langmap should not apply in insert mode, 'langremap' doesn't matter set langmap=+{ nolangremap call feedkeys("Go+\<Esc>", "xt") call assert_equal('+', getline('$')) set langmap=+{ langremap call feedkeys("Go+\<Esc>", "xt") call assert_equal('+', getline('$')) " langmap used for register name in insert mode. call setreg('a', 'aaaa') call setreg('b', 'bbbb') call setreg('c', 'cccc') set langmap=ab langremap call feedkeys("Go\<C-R>a\<Esc>", "xt") call assert_equal('bbbb', getline('$')) call feedkeys("Go\<C-R>\<C-R>a\<Esc>", "xt") call assert_equal('bbbb', getline('$')) " mapping does not apply imap c a call feedkeys("Go\<C-R>c\<Esc>", "xt") call assert_equal('cccc', getline('$')) imap a c call feedkeys("Go\<C-R>a\<Esc>", "xt") call assert_equal('bbbb', getline('$')) " langmap should not apply in Command-line mode set langmap=+{ nolangremap call feedkeys(":call append(line('$'), '+')\<CR>", "xt") call assert_equal('+', getline('$')) iunmap a iunmap c set nomodified endfunc func Test_map_feedkeys() " issue #212 (feedkeys insert mapping at current position) nnoremap . :call feedkeys(".", "in")<cr> call setline('$', ['a b c d', 'a b c d']) $-1 call feedkeys("0qqdw.ifoo\<Esc>qj0@q\<Esc>", "xt") call assert_equal(['fooc d', 'fooc d'], getline(line('$') - 1, line('$'))) nunmap . set nomodified endfunc func Test_map_cursor() " <c-g>U<cursor> works only within a single line imapclear imap ( ()<c-g>U<left> call feedkeys("G2o\<Esc>ki\<CR>Test1: text with a (here some more text\<Esc>k.", "xt") call assert_equal('Test1: text with a (here some more text)', getline(line('$') - 2)) call assert_equal('Test1: text with a (here some more text)', getline(line('$') - 1)) " test undo call feedkeys("G2o\<Esc>ki\<CR>Test2: text wit a (here some more text [und undo]\<C-G>u\<Esc>k.u", "xt") call assert_equal('', getline(line('$') - 2)) call assert_equal('Test2: text wit a (here some more text [und undo])', getline(line('$') - 1)) set nomodified imapclear endfunc func Test_map_cursor_ctrl_gU() " <c-g>U<cursor> works only within a single line nnoremap c<* *Ncgn<C-r>"<C-G>U<S-Left> call setline(1, ['foo', 'foobar', '', 'foo']) call cursor(1,2) call feedkeys("c<*PREFIX\<esc>.", 'xt') call assert_equal(['PREFIXfoo', 'foobar', '', 'PREFIXfoo'], getline(1,'$')) " break undo manually set ul=1000 exe ":norm! uu" call assert_equal(['foo', 'foobar', '', 'foo'], getline(1,'$')) " Test that it does not work if the cursor moves to the previous line " 2 times <S-Left> move to the previous line nnoremap c<* *Ncgn<C-r>"<C-G>U<S-Left><C-G>U<S-Left> call setline(1, ['', ' foo', 'foobar', '', 'foo']) call cursor(2,3) call feedkeys("c<*PREFIX\<esc>.", 'xt') call assert_equal(['PREFIXPREFIX', ' foo', 'foobar', '', 'foo'], getline(1,'$')) nmapclear endfunc " This isn't actually testing a mapping, but similar use of CTRL-G U as above. func Test_break_undo() set whichwrap=<,>,[,] call feedkeys("G4o2k", "xt") exe ":norm! iTest3: text with a (parenthesis here\<C-G>U\<Right>new line here\<esc>\<up>\<up>." call assert_equal('new line here', getline(line('$') - 3)) call assert_equal('Test3: text with a (parenthesis here', getline(line('$') - 2)) call assert_equal('new line here', getline(line('$') - 1)) set nomodified endfunc func Test_map_meta_quotes() imap <M-"> foo call feedkeys("Go-\<*M-\">-\<Esc>", "xt") call assert_equal("-foo-", getline('$')) set nomodified iunmap <M-"> endfunc func Test_map_meta_multibyte() imap <M-á> foo call assert_match('i <M-á>\s*foo', execute('imap')) iunmap <M-á> endfunc func Test_abbr_after_line_join() new abbr foo bar set backspace=indent,eol,start exe "normal o\<BS>foo " call assert_equal("bar ", getline(1)) bwipe! unabbr foo set backspace& endfunc func Test_map_timeout() CheckFeature timers nnoremap aaaa :let got_aaaa = 1<CR> nnoremap bb :let got_bb = 1<CR> nmap b aaa new func ExitInsert(timer) let g:line = getline(1) call feedkeys("\<Esc>", "t") endfunc set timeout timeoutlen=200 let timer = timer_start(300, 'ExitInsert') " After the 'b' Vim waits for another character to see if it matches 'bb'. " When it times out it is expanded to "aaa", but there is no wait for " "aaaa". Can't check that reliably though. call feedkeys("b", "xt!") call assert_equal("aa", g:line) call assert_false(exists('got_aaa')) call assert_false(exists('got_bb')) bwipe! nunmap aaaa nunmap bb nunmap b set timeoutlen& delfunc ExitInsert call timer_stop(timer) endfunc func Test_map_timeout_with_timer_interrupt() CheckFeature job CheckFeature timers " Confirm the timer invoked in exit_cb of the job doesn't disturb mapped key " sequence. new let g:val = 0 nnoremap \12 :let g:val = 1<CR> nnoremap \123 :let g:val = 2<CR> set timeout timeoutlen=200 func ExitCb(job, status) let g:timer = timer_start(1, {-> feedkeys("3\<Esc>", 't')}) endfunc call job_start([&shell, &shellcmdflag, 'echo'], {'exit_cb': 'ExitCb'}) call feedkeys('\12', 'xt!') call assert_equal(2, g:val) bwipe! nunmap \12 nunmap \123 set timeoutlen& call WaitFor({-> exists('g:timer')}) call timer_stop(g:timer) unlet g:timer unlet g:val delfunc ExitCb endfunc func Test_abbreviation_CR() new func Eatchar(pat) let c = nr2char(getchar(0)) return (c =~ a:pat) ? '' : c endfunc iabbrev <buffer><silent> ~~7 <c-r>=repeat('~', 7)<CR><c-r>=Eatchar('\s')<cr> call feedkeys("GA~~7 \<esc>", 'xt') call assert_equal('~~~~~~~', getline('$')) %d call feedkeys("GA~~7\<cr>\<esc>", 'xt') call assert_equal(['~~~~~~~', ''], getline(1,'$')) delfunc Eatchar bw! endfunc func Test_cabbr_visual_mode() cabbr s su call feedkeys(":s \<c-B>\"\<CR>", 'itx') call assert_equal('"su ', getreg(':')) call feedkeys(":'<,'>s \<c-B>\"\<CR>", 'itx') let expected = '"'. "'<,'>su " call assert_equal(expected, getreg(':')) call feedkeys(": '<,'>s \<c-B>\"\<CR>", 'itx') let expected = '" '. "'<,'>su " call assert_equal(expected, getreg(':')) call feedkeys(":'a,'bs \<c-B>\"\<CR>", 'itx') let expected = '"'. "'a,'bsu " call assert_equal(expected, getreg(':')) cunabbr s endfunc func Test_motionforce_omap() func GetCommand() let g:m=mode(1) let [g:lnum1, g:col1] = searchpos('-', 'Wb') if g:lnum1 == 0 return "\<Esc>" endif let [g:lnum2, g:col2] = searchpos('-', 'W') if g:lnum2 == 0 return "\<Esc>" endif return ":call Select()\<CR>" endfunc func Select() call cursor([g:lnum1, g:col1]) exe "normal! 1 ". (strlen(g:m) == 2 ? 'v' : g:m[2]) call cursor([g:lnum2, g:col2]) execute "normal! \<BS>" endfunc new onoremap <buffer><expr> i- GetCommand() " 1) default omap mapping %d_ call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) call cursor(2, 1) norm di- call assert_equal('no', g:m) call assert_equal(['aaa -- eee'], getline(1, '$')) " 2) forced characterwise operation %d_ call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) call cursor(2, 1) norm dvi- call assert_equal('nov', g:m) call assert_equal(['aaa -- eee'], getline(1, '$')) " 3) forced linewise operation %d_ call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) call cursor(2, 1) norm dVi- call assert_equal('noV', g:m) call assert_equal([''], getline(1, '$')) " 4) forced blockwise operation %d_ call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) call cursor(2, 1) exe "norm d\<C-V>i-" call assert_equal("no\<C-V>", g:m) call assert_equal(['aaabbb', 'x', 'dddeee'], getline(1, '$')) bwipe! delfunc Select delfunc GetCommand endfunc func Test_error_in_map_expr() " Unlike CheckRunVimInTerminal this does work in a win32 console CheckFeature terminal if has('win32') && has('gui_running') throw 'Skipped: cannot run Vim in a terminal window' endif let lines =<< trim [CODE] func Func() " fail to create list let x = [ endfunc nmap <expr> ! Func() set updatetime=50 [CODE] call writefile(lines, 'Xtest.vim') let buf = term_start(GetVimCommandCleanTerm() .. ' -S Xtest.vim', {'term_rows': 8}) let job = term_getjob(buf) call WaitForAssert({-> assert_notequal('', term_getline(buf, 8))}) " GC must not run during map-expr processing, which can make Vim crash. call term_sendkeys(buf, '!') call TermWait(buf, 50) call term_sendkeys(buf, "\<CR>") call TermWait(buf, 50) call assert_equal('run', job_status(job)) call term_sendkeys(buf, ":qall!\<CR>") call WaitFor({-> job_status(job) ==# 'dead'}) if has('unix') call assert_equal('', job_info(job).termsig) endif call delete('Xtest.vim') exe buf .. 'bwipe!' endfunc func Test_list_mappings() " Remove default mappings imapclear inoremap <C-M> CtrlM inoremap <A-S> AltS inoremap <S-/> ShiftSlash call assert_equal([ \ 'i <S-/> * ShiftSlash', \ 'i <M-S> * AltS', \ 'i <C-M> * CtrlM', \], execute('imap')->trim()->split("\n")) iunmap <C-M> iunmap <A-S> call assert_equal(['i <S-/> * ShiftSlash'], execute('imap')->trim()->split("\n")) iunmap <S-/> call assert_equal(['No mapping found'], execute('imap')->trim()->split("\n")) " List global, buffer local and script local mappings nmap ,f /^\k\+ (<CR> nmap <buffer> ,f /^\k\+ (<CR> nmap <script> ,fs /^\k\+ (<CR> call assert_equal(['n ,f @/^\k\+ (<CR>', \ 'n ,fs & /^\k\+ (<CR>', \ 'n ,f /^\k\+ (<CR>'], \ execute('nmap ,f')->trim()->split("\n")) " List <Nop> mapping nmap ,n <Nop> call assert_equal(['n ,n <Nop>'], \ execute('nmap ,n')->trim()->split("\n")) " verbose map call assert_match("\tLast set from .*/test_mapping.vim line \\d\\+$", \ execute('verbose map ,n')->trim()->split("\n")[1]) " map to CTRL-V exe "nmap ,k \<C-V>" call assert_equal(['n ,k <Nop>'], \ execute('nmap ,k')->trim()->split("\n")) nmapclear endfunc func Test_expr_map_restore_cursor() CheckScreendump let lines =<< trim END call setline(1, ['one', 'two', 'three']) 2 set ls=2 hi! link StatusLine ErrorMsg noremap <expr> <C-B> Func() func Func() let g:on = !get(g:, 'on', 0) redraws return '' endfunc func Status() return get(g:, 'on', 0) ? '[on]' : '' endfunc set stl=%{Status()} END call writefile(lines, 'XtestExprMap') let buf = RunVimInTerminal('-S XtestExprMap', #{rows: 10}) call TermWait(buf) call term_sendkeys(buf, "\<C-B>") call VerifyScreenDump(buf, 'Test_map_expr_1', {}) " clean up call StopVimInTerminal(buf) call delete('XtestExprMap') endfunc " Test for mapping errors func Test_map_error() call assert_fails('unmap', 'E474:') call assert_fails("exe 'map ' .. repeat('a', 51) .. ' :ls'", 'E474:') call assert_fails('unmap abc', 'E31:') call assert_fails('unabbr abc', 'E24:') call assert_equal('', maparg('')) call assert_fails('echo maparg("abc", [])', 'E730:') " unique map map ,w /[#&!]<CR> call assert_fails("map <unique> ,w /[#&!]<CR>", 'E227:') " unique buffer-local map call assert_fails("map <buffer> <unique> ,w /[.,;]<CR>", 'E225:') unmap ,w " unique abbreviation abbr SP special call assert_fails("abbr <unique> SP special", 'E226:') " unique buffer-local map call assert_fails("abbr <buffer> <unique> SP special", 'E224:') unabbr SP call assert_fails('mapclear abc', 'E474:') call assert_fails('abclear abc', 'E474:') call assert_fails('abbr $xyz abc', 'E474:') " space character in an abbreviation call assert_fails('abbr ab<space> ABC', 'E474:') " invalid <expr> map map <expr> ,f abc call assert_fails('normal ,f', 'E121:') unmap <expr> ,f " Recursive use of :normal in a map set maxmapdepth=100 map gq :normal gq<CR> call assert_fails('normal gq', 'E192:') unmap gq set maxmapdepth& endfunc " Test for <special> key mapping func Test_map_special() new let old_cpo = &cpo set cpo+=< imap <F12> Blue call feedkeys("i\<F12>", "x") call assert_equal("<F12>", getline(1)) call feedkeys("ddi<F12>", "x") call assert_equal("Blue", getline(1)) iunmap <F12> imap <special> <F12> Green call feedkeys("ddi\<F12>", "x") call assert_equal("Green", getline(1)) call feedkeys("ddi<F12>", "x") call assert_equal("<F12>", getline(1)) iunmap <special> <F12> let &cpo = old_cpo %bwipe! endfunc " Test for hasmapto() func Test_hasmapto() call assert_equal(0, hasmapto('/^\k\+ (')) map ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (')) unmap ,f " Insert mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'i')) imap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'i')) iunmap ,f " Normal mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'n')) nmap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (')) call assert_equal(1, hasmapto('/^\k\+ (', 'n')) nunmap ,f " Visual and Select mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'v')) call assert_equal(0, hasmapto('/^\k\+ (', 'x')) call assert_equal(0, hasmapto('/^\k\+ (', 's')) vmap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'v')) call assert_equal(1, hasmapto('/^\k\+ (', 'x')) call assert_equal(1, hasmapto('/^\k\+ (', 's')) vunmap ,f " Visual mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'x')) xmap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'v')) call assert_equal(1, hasmapto('/^\k\+ (', 'x')) call assert_equal(0, hasmapto('/^\k\+ (', 's')) xunmap ,f " Select mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 's')) smap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'v')) call assert_equal(0, hasmapto('/^\k\+ (', 'x')) call assert_equal(1, hasmapto('/^\k\+ (', 's')) sunmap ,f " Operator-pending mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'o')) omap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'o')) ounmap ,f " Language mapping call assert_equal(0, hasmapto('/^\k\+ (', 'l')) lmap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'l')) lunmap ,f " Cmdline mode mapping call assert_equal(0, hasmapto('/^\k\+ (', 'c')) cmap ,f /^\k\+ (<CR> call assert_equal(1, hasmapto('/^\k\+ (', 'c')) cunmap ,f call assert_equal(0, hasmapto('/^\k\+ (', 'n', 1)) endfunc " Test for command-line completion of maps func Test_mapcomplete() call assert_equal(['<buffer>', '<expr>', '<nowait>', '<script>', \ '<silent>', '<special>', '<unique>'], \ getcompletion('', 'mapping')) call assert_equal([], getcompletion(',d', 'mapping')) call feedkeys(":unmap <buf\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"unmap <buffer>', @:) call feedkeys(":unabbr <buf\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"unabbr <buffer>', @:) call feedkeys(":abbr! \<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"abbr! \x01", @:) " Multiple matches for a map nmap ,f /H<CR> omap ,f /H<CR> call feedkeys(":map ,\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"map ,f', @:) mapclear endfunc " Test for <expr> in abbreviation func Test_expr_abbr() new iabbr <expr> teh "the" call feedkeys("iteh ", "tx") call assert_equal('the ', getline(1)) iabclear call setline(1, '') " invalid <expr> abbreviation abbr <expr> hte GetAbbr() call assert_fails('normal ihte ', 'E117:') call assert_equal('', getline(1)) unabbr <expr> hte close! endfunc " Test for storing mappings in different modes in a vimrc file func Test_mkvimrc_mapmodes() map a1 /a1 nmap a2 /a2 vmap a3 /a3 smap a4 /a4 xmap a5 /a5 omap a6 /a6 map! a7 /a7 imap a8 /a8 lmap a9 /a9 cmap a10 /a10 tmap a11 /a11 " Normal + Visual map map a12 /a12 sunmap a12 ounmap a12 " Normal + Selectmode map map a13 /a13 xunmap a13 ounmap a13 " Normal + OpPending map map a14 /a14 vunmap a14 " Visual + Selectmode map map a15 /a15 nunmap a15 ounmap a15 " Visual + OpPending map map a16 /a16 nunmap a16 sunmap a16 " Selectmode + OpPending map map a17 /a17 nunmap a17 xunmap a17 " Normal + Visual + Selectmode map map a18 /a18 ounmap a18 " Normal + Visual + OpPending map map a19 /a19 sunmap a19 " Normal + Selectmode + OpPending map map a20 /a20 xunmap a20 " Visual + Selectmode + OpPending map map a21 /a21 nunmap a21 " Mapping to Nop map a22 <Nop> " Script local mapping map <script> a23 /a23 " Newline in {lhs} and {rhs} of a map exe "map a24\<C-V>\<C-J> ia24\<C-V>\<C-J><Esc>" " Abbreviation abbr a25 A25 cabbr a26 A26 iabbr a27 A27 mkvimrc! Xvimrc let l = readfile('Xvimrc') call assert_equal(['map a1 /a1'], filter(copy(l), 'v:val =~ " a1 "')) call assert_equal(['nmap a2 /a2'], filter(copy(l), 'v:val =~ " a2 "')) call assert_equal(['vmap a3 /a3'], filter(copy(l), 'v:val =~ " a3 "')) call assert_equal(['smap a4 /a4'], filter(copy(l), 'v:val =~ " a4 "')) call assert_equal(['xmap a5 /a5'], filter(copy(l), 'v:val =~ " a5 "')) call assert_equal(['omap a6 /a6'], filter(copy(l), 'v:val =~ " a6 "')) call assert_equal(['map! a7 /a7'], filter(copy(l), 'v:val =~ " a7 "')) call assert_equal(['imap a8 /a8'], filter(copy(l), 'v:val =~ " a8 "')) call assert_equal(['lmap a9 /a9'], filter(copy(l), 'v:val =~ " a9 "')) call assert_equal(['cmap a10 /a10'], filter(copy(l), 'v:val =~ " a10 "')) call assert_equal(['tmap a11 /a11'], filter(copy(l), 'v:val =~ " a11 "')) call assert_equal(['nmap a12 /a12', 'xmap a12 /a12'], \ filter(copy(l), 'v:val =~ " a12 "')) call assert_equal(['nmap a13 /a13', 'smap a13 /a13'], \ filter(copy(l), 'v:val =~ " a13 "')) call assert_equal(['nmap a14 /a14', 'omap a14 /a14'], \ filter(copy(l), 'v:val =~ " a14 "')) call assert_equal(['vmap a15 /a15'], filter(copy(l), 'v:val =~ " a15 "')) call assert_equal(['xmap a16 /a16', 'omap a16 /a16'], \ filter(copy(l), 'v:val =~ " a16 "')) call assert_equal(['smap a17 /a17', 'omap a17 /a17'], \ filter(copy(l), 'v:val =~ " a17 "')) call assert_equal(['nmap a18 /a18', 'vmap a18 /a18'], \ filter(copy(l), 'v:val =~ " a18 "')) call assert_equal(['nmap a19 /a19', 'xmap a19 /a19', 'omap a19 /a19'], \ filter(copy(l), 'v:val =~ " a19 "')) call assert_equal(['nmap a20 /a20', 'smap a20 /a20', 'omap a20 /a20'], \ filter(copy(l), 'v:val =~ " a20 "')) call assert_equal(['vmap a21 /a21', 'omap a21 /a21'], \ filter(copy(l), 'v:val =~ " a21 "')) call assert_equal(['map a22 <Nop>'], filter(copy(l), 'v:val =~ " a22 "')) call assert_equal([], filter(copy(l), 'v:val =~ " a23 "')) call assert_equal(["map a24<NL> ia24<NL>\x16\e"], \ filter(copy(l), 'v:val =~ " a24"')) call assert_equal(['abbr a25 A25'], filter(copy(l), 'v:val =~ " a25 "')) call assert_equal(['cabbr a26 A26'], filter(copy(l), 'v:val =~ " a26 "')) call assert_equal(['iabbr a27 A27'], filter(copy(l), 'v:val =~ " a27 "')) call delete('Xvimrc') mapclear nmapclear vmapclear xmapclear smapclear omapclear imapclear lmapclear cmapclear tmapclear endfunc " Test for recursive mapping ('maxmapdepth') func Test_map_recursive() map x y map y x call assert_fails('normal x', 'E223:') unmap x unmap y endfunc " Test for removing an abbreviation using {rhs} and with space after {lhs} func Test_abbr_remove() abbr foo bar let d = maparg('foo', 'i', 1, 1) call assert_equal(['foo', 'bar', '!'], [d.lhs, d.rhs, d.mode]) unabbr bar call assert_equal({}, maparg('foo', 'i', 1, 1)) abbr foo bar unabbr foo<space><tab> call assert_equal({}, maparg('foo', 'i', 1, 1)) endfunc " Trigger an abbreviation using a special key func Test_abbr_trigger_special() new iabbr teh the call feedkeys("iteh\<F2>\<Esc>", 'xt') call assert_equal('the<F2>', getline(1)) iunab teh close! endfunc " Test for '<' in 'cpoptions' func Test_map_cpo_special_keycode() set cpo-=< imap x<Bslash>k Test let d = maparg('x<Bslash>k', 'i', 0, 1) call assert_equal(['x\k', 'Test', 'i'], [d.lhs, d.rhs, d.mode]) call feedkeys(":imap x\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"imap x\k', @:) iunmap x<Bslash>k set cpo+=< imap x<Bslash>k Test let d = maparg('x<Bslash>k', 'i', 0, 1) call assert_equal(['x<Bslash>k', 'Test', 'i'], [d.lhs, d.rhs, d.mode]) call feedkeys(":imap x\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"imap x<Bslash>k', @:) iunmap x<Bslash>k set cpo-=< " Modifying 'cpo' above adds some default mappings, remove them mapclear mapclear! endfunc " Test for <Cmd> key in maps to execute commands func Test_map_cmdkey() new " Error cases let x = 0 noremap <F3> <Cmd><Cmd>let x = 1<CR> call assert_fails('call feedkeys("\<F3>", "xt")', 'E1136:') call assert_equal(0, x) noremap <F3> <Cmd><F3>let x = 2<CR> call assert_fails('call feedkeys("\<F3>", "xt")', 'E1137:') call assert_equal(0, x) noremap <F3> <Cmd>let x = 3 call assert_fails('call feedkeys("\<F3>", "xt!")', 'E1135:') call assert_equal(0, x) " works in various modes and sees the correct mode() noremap <F3> <Cmd>let m = mode(1)<CR> noremap! <F3> <Cmd>let m = mode(1)<CR> " normal mode call feedkeys("\<F3>", 'xt') call assert_equal('n', m) " visual mode call feedkeys("v\<F3>", 'xt!') call assert_equal('v', m) " shouldn't leave the visual mode call assert_equal('v', mode(1)) call feedkeys("\<Esc>", 'xt') call assert_equal('n', mode(1)) " visual mapping in select mode call feedkeys("gh\<F3>", 'xt!') call assert_equal('v', m) " shouldn't leave select mode call assert_equal('s', mode(1)) call feedkeys("\<Esc>", 'xt') call assert_equal('n', mode(1)) " select mode mapping snoremap <F3> <Cmd>let m = mode(1)<cr> call feedkeys("gh\<F3>", 'xt!') call assert_equal('s', m) " shouldn't leave select mode call assert_equal('s', mode(1)) call feedkeys("\<Esc>", 'xt') call assert_equal('n', mode(1)) " operator-pending mode call feedkeys("d\<F3>", 'xt!') call assert_equal('no', m) " leaves the operator-pending mode call assert_equal('n', mode(1)) " insert mode call feedkeys("i\<F3>abc", 'xt') call assert_equal('i', m) call assert_equal('abc', getline('.')) " replace mode call feedkeys("0R\<F3>two", 'xt') call assert_equal('R', m) call assert_equal('two', getline('.')) " virtual replace mode call setline('.', "one\ttwo") call feedkeys("4|gR\<F3>xxx", 'xt') call assert_equal('Rv', m) call assert_equal("onexxx\ttwo", getline('.')) " cmdline mode call feedkeys(":\<F3>\"xxx\<CR>", 'xt!') call assert_equal('c', m) call assert_equal('"xxx', @:) " terminal mode if CanRunVimInTerminal() tnoremap <F3> <Cmd>let m = mode(1)<CR> let buf = Run_shell_in_terminal({}) call feedkeys("\<F3>", 'xt') call assert_equal('t', m) call assert_equal('t', mode(1)) call StopShellInTerminal(buf) call TermWait(buf) close! tunmap <F3> endif " invoke cmdline mode recursively noremap! <F2> <Cmd>norm! :foo<CR> %d call setline(1, ['some short lines', 'of test text']) call feedkeys(":bar\<F2>x\<C-B>\"\r", 'xt') call assert_equal('"barx', @:) unmap! <F2> " test for calling a <SID> function let lines =<< trim END map <F2> <Cmd>call <SID>do_it()<CR> func s:do_it() let g:x = 32 endfunc END call writefile(lines, 'Xscript') source Xscript call feedkeys("\<F2>", 'xt') call assert_equal(32, g:x) call delete('Xscript') unmap <F3> unmap! <F3> %bw! " command line ending in "0" is handled without errors onoremap ix <cmd>eval 0<cr> call feedkeys('dix.', 'xt') ounmap ix endfunc " text object enters visual mode func TextObj() if mode() !=# "v" normal! v end call cursor(1, 3) normal! o call cursor(2, 4) endfunc func s:cmdmap(lhs, rhs) exe 'noremap ' .. a:lhs .. ' <Cmd>' .. a:rhs .. '<CR>' exe 'noremap! ' .. a:lhs .. ' <Cmd>' .. a:rhs .. '<CR>' endfunc func s:cmdunmap(lhs) exe 'unmap ' .. a:lhs exe 'unmap! ' .. a:lhs endfunc " Map various <Fx> keys used by the <Cmd> key tests func s:setupMaps() call s:cmdmap('<F3>', 'let m = mode(1)') call s:cmdmap('<F4>', 'normal! ww') call s:cmdmap('<F5>', 'normal! "ay') call s:cmdmap('<F6>', 'throw "very error"') call s:cmdmap('<F7>', 'call TextObj()') call s:cmdmap('<F8>', 'startinsert') call s:cmdmap('<F9>', 'stopinsert') endfunc " Remove the mappings setup by setupMaps() func s:cleanupMaps() call s:cmdunmap('<F3>') call s:cmdunmap('<F4>') call s:cmdunmap('<F5>') call s:cmdunmap('<F6>') call s:cmdunmap('<F7>') call s:cmdunmap('<F8>') call s:cmdunmap('<F9>') endfunc " Test for <Cmd> mapping in normal mode func Test_map_cmdkey_normal_mode() new call s:setupMaps() " check v:count and v:register works call s:cmdmap('<F2>', 'let s = [mode(1), v:count, v:register]') call feedkeys("\<F2>", 'xt') call assert_equal(['n', 0, '"'], s) call feedkeys("7\<F2>", 'xt') call assert_equal(['n', 7, '"'], s) call feedkeys("\"e\<F2>", 'xt') call assert_equal(['n', 0, 'e'], s) call feedkeys("5\"k\<F2>", 'xt') call assert_equal(['n', 5, 'k'], s) call s:cmdunmap('<F2>') call setline(1, ['some short lines', 'of test text']) call feedkeys("\<F7>y", 'xt') call assert_equal("me short lines\nof t", @") call assert_equal('v', getregtype('"')) call assert_equal([0, 1, 3, 0], getpos("'<")) call assert_equal([0, 2, 4, 0], getpos("'>")) " startinsert %d call feedkeys("\<F8>abc", 'xt') call assert_equal('abc', getline(1)) " feedkeys are not executed immediately noremap ,a <Cmd>call feedkeys("aalpha") \| let g:a = getline(2)<CR> %d call setline(1, ['some short lines', 'of test text']) call cursor(2, 3) call feedkeys(",a\<F3>", 'xt') call assert_equal('of test text', g:a) call assert_equal('n', m) call assert_equal(['some short lines', 'of alphatest text'], getline(1, '$')) nunmap ,a " feedkeys(..., 'x') is executed immediately, but insert mode is aborted noremap ,b <Cmd>call feedkeys("abeta", 'x') \| let g:b = getline(2)<CR> call feedkeys(",b\<F3>", 'xt') call assert_equal('n', m) call assert_equal('of alphabetatest text', g:b) nunmap ,b call s:cleanupMaps() %bw! endfunc " Test for <Cmd> mapping with the :normal command func Test_map_cmdkey_normal_cmd() new noremap ,x <Cmd>call append(1, "xx") \| call append(1, "aa")<CR> noremap ,f <Cmd>nosuchcommand<CR> noremap ,e <Cmd>throw "very error" \| call append(1, "yy")<CR> noremap ,m <Cmd>echoerr "The message." \| call append(1, "zz")<CR> noremap ,w <Cmd>for i in range(5) \| if i==1 \| echoerr "Err" \| endif \| call append(1, i) \| endfor<CR> call setline(1, ['some short lines', 'of test text']) exe "norm ,x\r" call assert_equal(['some short lines', 'aa', 'xx', 'of test text'], getline(1, '$')) call assert_fails('norm ,f', 'E492:') call assert_fails('norm ,e', 'very error') call assert_fails('norm ,m', 'The message.') call assert_equal(['some short lines', 'aa', 'xx', 'of test text'], getline(1, '$')) %d let caught_err = 0 try exe "normal ,w" catch /Vim(echoerr):Err/ let caught_err = 1 endtry call assert_equal(1, caught_err) call assert_equal(['', '0'], getline(1, '$')) %d call assert_fails('normal ,w', 'Err') call assert_equal(['', '4', '3', '2' ,'1', '0'], getline(1, '$')) call assert_equal(1, line('.')) nunmap ,x nunmap ,f nunmap ,e nunmap ,m nunmap ,w %bw! endfunc " Test for <Cmd> mapping in visual mode func Test_map_cmdkey_visual_mode() new set showmode call s:setupMaps() call setline(1, ['some short lines', 'of test text']) call feedkeys("v\<F4>", 'xt!') call assert_equal(['v', 1, 12], [mode(1), col('v'), col('.')]) " can invoke an opeartor, ending the visual mode let @a = '' call feedkeys("\<F5>", 'xt!') call assert_equal('n', mode(1)) call assert_equal('some short l', @a) " error doesn't interrupt visual mode call assert_fails('call feedkeys("ggvw\<F6>", "xt!")', 'E605:') call assert_equal(['v', 1, 6], [mode(1), col('v'), col('.')]) call feedkeys("\<F7>", 'xt!') call assert_equal(['v', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) " startinsert gives "-- (insert) VISUAL --" mode call feedkeys("\<F8>", 'xt!') call assert_equal(['v', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) redraw! call assert_match('^-- (insert) VISUAL --', Screenline(&lines)) call feedkeys("\<Esc>new ", 'x') call assert_equal(['some short lines', 'of new test text'], getline(1, '$')) call s:cleanupMaps() set showmode& %bw! endfunc " Test for <Cmd> mapping in select mode func Test_map_cmdkey_select_mode() new set showmode call s:setupMaps() snoremap <F1> <cmd>throw "very error"<CR> snoremap <F2> <cmd>normal! <c-g>"by<CR> call setline(1, ['some short lines', 'of test text']) call feedkeys("gh\<F4>", "xt!") call assert_equal(['s', 1, 12], [mode(1), col('v'), col('.')]) redraw! call assert_match('^-- SELECT --', Screenline(&lines)) " visual mapping in select mode restarts select mode after operator let @a = '' call feedkeys("\<F5>", 'xt!') call assert_equal('s', mode(1)) call assert_equal('some short l', @a) " select mode mapping works, and does not restart select mode let @b = '' call feedkeys("\<F2>", 'xt!') call assert_equal('n', mode(1)) call assert_equal('some short l', @b) " error doesn't interrupt temporary visual mode call assert_fails('call feedkeys("\<Esc>ggvw\<C-G>\<F6>", "xt!")', 'E605:') redraw! call assert_match('^-- VISUAL --', Screenline(&lines)) " quirk: restoration of select mode is not performed call assert_equal(['v', 1, 6], [mode(1), col('v'), col('.')]) " error doesn't interrupt select mode call assert_fails('call feedkeys("\<Esc>ggvw\<C-G>\<F1>", "xt!")', 'E605:') redraw! call assert_match('^-- SELECT --', Screenline(&lines)) call assert_equal(['s', 1, 6], [mode(1), col('v'), col('.')]) call feedkeys("\<F7>", 'xt!') redraw! call assert_match('^-- SELECT --', Screenline(&lines)) call assert_equal(['s', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) " startinsert gives "-- SELECT (insert) --" mode call feedkeys("\<F8>", 'xt!') redraw! call assert_match('^-- (insert) SELECT --', Screenline(&lines)) call assert_equal(['s', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) call feedkeys("\<Esc>new ", 'x') call assert_equal(['some short lines', 'of new test text'], getline(1, '$')) sunmap <F1> sunmap <F2> call s:cleanupMaps() set showmode& %bw! endfunc " Test for <Cmd> mapping in operator-pending mode func Test_map_cmdkey_op_pending_mode() new call s:setupMaps() call setline(1, ['some short lines', 'of test text']) call feedkeys("d\<F4>", 'xt') call assert_equal(['lines', 'of test text'], getline(1, '$')) call assert_equal(['some short '], getreg('"', 1, 1)) " create a new undo point let &undolevels = &undolevels call feedkeys(".", 'xt') call assert_equal(['test text'], getline(1, '$')) call assert_equal(['lines', 'of '], getreg('"', 1, 1)) " create a new undo point let &undolevels = &undolevels call feedkeys("uu", 'xt') call assert_equal(['some short lines', 'of test text'], getline(1, '$')) " error aborts operator-pending, operator not performed call assert_fails('call feedkeys("d\<F6>", "xt")', 'E605:') call assert_equal(['some short lines', 'of test text'], getline(1, '$')) call feedkeys("\"bd\<F7>", 'xt') call assert_equal(['soest text'], getline(1, '$')) call assert_equal(['me short lines', 'of t'], getreg('b', 1, 1)) " startinsert aborts operator call feedkeys("d\<F8>cc", 'xt') call assert_equal(['soccest text'], getline(1, '$')) call s:cleanupMaps() %bw! endfunc " Test for <Cmd> mapping in insert mode func Test_map_cmdkey_insert_mode() new call s:setupMaps() call setline(1, ['some short lines', 'of test text']) " works the same as <C-O>w<C-O>w call feedkeys("iindeed \<F4>little ", 'xt') call assert_equal(['indeed some short little lines', 'of test text'], getline(1, '$')) call assert_fails('call feedkeys("i\<F6> 2", "xt")', 'E605:') call assert_equal(['indeed some short little 2 lines', 'of test text'], getline(1, '$')) " Note when entering visual mode from InsertEnter autocmd, an async event, " or a <Cmd> mapping, vim ends up in undocumented "INSERT VISUAL" mode. call feedkeys("i\<F7>stuff ", 'xt') call assert_equal(['indeed some short little 2 lines', 'of stuff test text'], getline(1, '$')) call assert_equal(['v', 1, 3, 2, 9], [mode(1), line('v'), col('v'), line('.'), col('.')]) call feedkeys("\<F5>", 'xt') call assert_equal(['deed some short little 2 lines', 'of stuff '], getreg('a', 1, 1)) " also works as part of abbreviation abbr foo <Cmd>let g:y = 17<CR>bar exe "normal i\<space>foo " call assert_equal(17, g:y) call assert_equal('in bar deed some short little 2 lines', getline(1)) unabbr foo " :startinsert does nothing call setline(1, 'foo bar') call feedkeys("ggi\<F8>vim", 'xt') call assert_equal('vimfoo bar', getline(1)) " :stopinsert works call feedkeys("ggi\<F9>Abc", 'xt') call assert_equal('vimfoo barbc', getline(1)) call s:cleanupMaps() %bw! endfunc " Test for <Cmd> mapping in insert-completion mode func Test_map_cmdkey_insert_complete_mode() new call s:setupMaps() call setline(1, 'some short lines') call feedkeys("os\<C-X>\<C-N>\<F3>\<C-N> ", 'xt') call assert_equal('ic', m) call assert_equal(['some short lines', 'short '], getline(1, '$')) call s:cleanupMaps() %bw! endfunc " Test for <Cmd> mapping in cmdline mode func Test_map_cmdkey_cmdline_mode() new call s:setupMaps() call setline(1, ['some short lines', 'of test text']) let x = 0 call feedkeys(":let x\<F3>= 10\r", 'xt') call assert_equal('c', m) call assert_equal(10, x) " exception doesn't leave cmdline mode call assert_fails('call feedkeys(":let x\<F6>= 20\r", "xt")', 'E605:') call assert_equal(20, x) " move cursor in the buffer from cmdline mode call feedkeys(":let x\<F4>= 30\r", 'xt') call assert_equal(30, x) call assert_equal(12, col('.')) " :startinsert takes effect after leaving cmdline mode call feedkeys(":let x\<F8>= 40\rnew ", 'xt') call assert_equal(40, x) call assert_equal('some short new lines', getline(1)) call s:cleanupMaps() %bw! endfunc func Test_map_cmdkey_redo() func SelectDash() call search('^---\n\zs', 'bcW') norm! V call search('\n\ze---$', 'W') endfunc let text =<< trim END --- aaa --- bbb bbb --- ccc ccc ccc --- END new Xcmdtext call setline(1, text) onoremap <silent> i- <Cmd>call SelectDash()<CR> call feedkeys('2Gdi-', 'xt') call assert_equal(['---', '---'], getline(1, 2)) call feedkeys('j.', 'xt') call assert_equal(['---', '---', '---'], getline(1, 3)) call feedkeys('j.', 'xt') call assert_equal(['---', '---', '---', '---'], getline(1, 4)) bwipe! call delete('Xcmdtext') delfunc SelectDash ounmap i- endfunc " vim: shiftwidth=2 sts=2 expandtab