| " Tests for mappings and abbreviations |
| |
| if !has('multi_byte') |
| finish |
| endif |
| |
| 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_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() |
| if !has('langmap') |
| return |
| endif |
| |
| " 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 |
| |
| " 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_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() |
| 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 |
| call 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 |
| 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 |