Mercurial > vim
view src/testdir/test_normal.vim @ 13541:296d02b0637f v8.0.1644
patch 8.0.1644: terminal API tests still fail
commit https://github.com/vim/vim/commit/cf67a509e93167f14c892301e13de14636cedc61
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Mar 25 20:31:32 2018 +0200
patch 8.0.1644: terminal API tests still fail
Problem: Terminal API tests still fail.
Solution: Explicitly set 'title' in the terminal job. (Ozaki Kiichi,
closes #2750)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 25 Mar 2018 20:45:06 +0200 |
parents | abaebba89fd4 |
children | 1174611ad715 |
line wrap: on
line source
" Test for various Normal mode commands func! Setup_NewWindow() 10new call setline(1, range(1,100)) endfunc func! MyFormatExpr() " Adds '->$' at lines having numbers followed by trailing whitespace for ln in range(v:lnum, v:lnum+v:count-1) let line = getline(ln) if getline(ln) =~# '\d\s\+$' call setline(ln, substitute(line, '\s\+$', '', '') . '->$') endif endfor endfunc func! CountSpaces(type, ...) " for testing operatorfunc " will count the number of spaces " and return the result in g:a let sel_save = &selection let &selection = "inclusive" let reg_save = @@ if a:0 " Invoked from Visual mode, use gv command. silent exe "normal! gvy" elseif a:type == 'line' silent exe "normal! '[V']y" else silent exe "normal! `[v`]y" endif let g:a=strlen(substitute(@@, '[^ ]', '', 'g')) let &selection = sel_save let @@ = reg_save endfunc func! OpfuncDummy(type, ...) " for testing operatorfunc let g:opt=&linebreak if a:0 " Invoked from Visual mode, use gv command. silent exe "normal! gvy" elseif a:type == 'line' silent exe "normal! '[V']y" else silent exe "normal! `[v`]y" endif " Create a new dummy window new let g:bufnr=bufnr('%') endfunc fun! Test_normal00_optrans() new call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line']) 1 exe "norm! Sfoobar\<esc>" call assert_equal(['foobar', '2 This is the second line', '3 this is the third line', ''], getline(1,'$')) 2 exe "norm! $vbsone" call assert_equal(['foobar', '2 This is the second one', '3 this is the third line', ''], getline(1,'$')) norm! VS Second line here call assert_equal(['foobar', ' Second line here', '3 this is the third line', ''], getline(1, '$')) %d call append(0, ['4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line']) call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line']) 1 norm! 2D call assert_equal(['3 this is the third line', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$')) set cpo+=# norm! 4D call assert_equal(['', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$')) " clean up set cpo-=# bw! endfunc func! Test_normal01_keymodel() call Setup_NewWindow() " Test 1: depending on 'keymodel' <s-down> does something different 50 call feedkeys("V\<S-Up>y", 'tx') call assert_equal(['47', '48', '49', '50'], getline("'<", "'>")) set keymodel=startsel 50 call feedkeys("V\<S-Up>y", 'tx') call assert_equal(['49', '50'], getline("'<", "'>")) " Start visual mode when keymodel = startsel 50 call feedkeys("\<S-Up>y", 'tx') call assert_equal(['49', '5'], getreg(0, 0, 1)) " Do not start visual mode when keymodel= set keymodel= 50 call feedkeys("\<S-Up>y$", 'tx') call assert_equal(['42'], getreg(0, 0, 1)) " Stop visual mode when keymodel=stopsel set keymodel=stopsel 50 call feedkeys("Vkk\<Up>yy", 'tx') call assert_equal(['47'], getreg(0, 0, 1)) set keymodel= 50 call feedkeys("Vkk\<Up>yy", 'tx') call assert_equal(['47', '48', '49', '50'], getreg(0, 0, 1)) " clean up bw! endfunc func! Test_normal02_selectmode() " some basic select mode tests call Setup_NewWindow() 50 norm! gHy call assert_equal('y51', getline('.')) call setline(1, range(1,100)) 50 exe ":norm! V9jo\<c-g>y" call assert_equal('y60', getline('.')) " clean up bw! endfunc func! Test_normal02_selectmode2() " some basic select mode tests call Setup_NewWindow() 50 call feedkeys(":set im\n\<c-o>gHc\<c-o>:set noim\n", 'tx') call assert_equal('c51', getline('.')) " clean up bw! endfunc func! Test_normal03_join() " basic join test call Setup_NewWindow() 50 norm! VJ call assert_equal('50 51', getline('.')) $ norm! J call assert_equal('100', getline('.')) $ norm! V9-gJ call assert_equal('919293949596979899100', getline('.')) call setline(1, range(1,100)) $ :j 10 call assert_equal('100', getline('.')) " clean up bw! endfunc func! Test_normal04_filter() " basic filter test " only test on non windows platform if has('win32') return endif call Setup_NewWindow() 1 call feedkeys("!!sed -e 's/^/| /'\n", 'tx') call assert_equal('| 1', getline('.')) 90 :sil :!echo one call feedkeys('.', 'tx') call assert_equal('| 90', getline('.')) 95 set cpo+=! " 2 <CR>, 1: for executing the command, " 2: clear hit-enter-prompt call feedkeys("!!\n", 'tx') call feedkeys(":!echo one\n\n", 'tx') call feedkeys(".", 'tx') call assert_equal('one', getline('.')) set cpo-=! bw! endfunc func! Test_normal05_formatexpr() " basic formatexpr test call Setup_NewWindow() %d_ call setline(1, ['here: 1 ', '2', 'here: 3 ', '4', 'not here: ']) 1 set formatexpr=MyFormatExpr() norm! gqG call assert_equal(['here: 1->$', '2', 'here: 3->$', '4', 'not here: '], getline(1,'$')) set formatexpr= bw! endfunc func Test_normal05_formatexpr_newbuf() " Edit another buffer in the 'formatexpr' function new func! Format() edit another endfunc set formatexpr=Format() norm gqG bw! set formatexpr= endfunc func Test_normal05_formatexpr_setopt() " Change the 'formatexpr' value in the function new func! Format() set formatexpr= endfunc set formatexpr=Format() norm gqG bw! set formatexpr= endfunc func! Test_normal06_formatprg() " basic test for formatprg " only test on non windows platform if has('win32') return endif " uses sed to number non-empty lines call writefile(['#!/bin/sh', 'sed ''/./=''|sed ''/./{', 'N', 's/\n/ /', '}'''], 'Xsed_format.sh') call system('chmod +x ./Xsed_format.sh') let text = ['a', '', 'c', '', ' ', 'd', 'e'] let expected = ['1 a', '', '3 c', '', '5 ', '6 d', '7 e'] 10new call setline(1, text) set formatprg=./Xsed_format.sh norm! gggqG call assert_equal(expected, getline(1, '$')) bw! 10new call setline(1, text) set formatprg=donothing setlocal formatprg=./Xsed_format.sh norm! gggqG call assert_equal(expected, getline(1, '$')) bw! " clean up set formatprg= setlocal formatprg= call delete('Xsed_format.sh') endfunc func! Test_normal07_internalfmt() " basic test for internal formmatter to textwidth of 12 let list=range(1,11) call map(list, 'v:val." "') 10new call setline(1, list) set tw=12 norm! gggqG call assert_equal(['1 2 3', '4 5 6', '7 8 9', '10 11 '], getline(1, '$')) " clean up set tw=0 bw! endfunc func! Test_normal08_fold() " basic tests for foldopen/folddelete if !has("folding") return endif call Setup_NewWindow() 50 setl foldenable fdm=marker " First fold norm! V4jzf " check that folds have been created call assert_equal(['50/*{{{*/', '51', '52', '53', '54/*}}}*/'], getline(50,54)) " Second fold 46 norm! V10jzf " check that folds have been created call assert_equal('46/*{{{*/', getline(46)) call assert_equal('60/*}}}*/', getline(60)) norm! k call assert_equal('45', getline('.')) norm! j call assert_equal('46/*{{{*/', getline('.')) norm! j call assert_equal('61', getline('.')) norm! k " open a fold norm! Vzo norm! k call assert_equal('45', getline('.')) norm! j call assert_equal('46/*{{{*/', getline('.')) norm! j call assert_equal('47', getline('.')) norm! k norm! zcVzO call assert_equal('46/*{{{*/', getline('.')) norm! j call assert_equal('47', getline('.')) norm! j call assert_equal('48', getline('.')) norm! j call assert_equal('49', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51', getline('.')) " delete folds :46 " collapse fold norm! V14jzC " delete all folds recursively norm! VzD call assert_equal(['46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60'], getline(46,60)) " clean up setl nofoldenable fdm=marker bw! endfunc func! Test_normal09_operatorfunc() " Test operatorfunc call Setup_NewWindow() " Add some spaces for counting 50,60s/$/ / unlet! g:a let g:a=0 nmap <buffer><silent> ,, :set opfunc=CountSpaces<CR>g@ vmap <buffer><silent> ,, :<C-U>call CountSpaces(visualmode(), 1)<CR> 50 norm V2j,, call assert_equal(6, g:a) norm V,, call assert_equal(2, g:a) norm ,,l call assert_equal(0, g:a) 50 exe "norm 0\<c-v>10j2l,," call assert_equal(11, g:a) 50 norm V10j,, call assert_equal(22, g:a) " clean up unmap <buffer> ,, set opfunc= unlet! g:a bw! endfunc func! Test_normal09a_operatorfunc() " Test operatorfunc call Setup_NewWindow() " Add some spaces for counting 50,60s/$/ / unlet! g:opt set linebreak nmap <buffer><silent> ,, :set opfunc=OpfuncDummy<CR>g@ 50 norm ,,j exe "bd!" g:bufnr call assert_true(&linebreak) call assert_equal(g:opt, &linebreak) set nolinebreak norm ,,j exe "bd!" g:bufnr call assert_false(&linebreak) call assert_equal(g:opt, &linebreak) " clean up unmap <buffer> ,, set opfunc= bw! unlet! g:opt endfunc func! Test_normal10_expand() " Test for expand() 10new call setline(1, ['1', 'ifooar,,cbar']) 2 norm! $ call assert_equal('cbar', expand('<cword>')) call assert_equal('ifooar,,cbar', expand('<cWORD>')) call setline(1, ['prx = list[idx];']) 1 let expected = ['', 'prx', 'prx', 'prx', \ 'list', 'list', 'list', 'list', 'list', 'list', 'list', \ 'idx', 'idx', 'idx', 'idx', \ 'list[idx]', \ '];', \ ] for i in range(1, 16) exe 'norm ' . i . '|' call assert_equal(expected[i], expand('<cexpr>'), 'i == ' . i) endfor if executable('echo') " Test expand(`...`) i.e. backticks command expansion. " MS-Windows has a trailing space. call assert_match('^abcde *$', expand('`echo abcde`')) endif " Test expand(`=...`) i.e. backticks expression expansion call assert_equal('5', expand('`=2+3`')) " clean up bw! endfunc func! Test_normal11_showcmd() " test for 'showcmd' 10new exe "norm! ofoobar\<esc>" call assert_equal(2, line('$')) set showcmd exe "norm! ofoobar2\<esc>" call assert_equal(3, line('$')) exe "norm! VAfoobar3\<esc>" call assert_equal(3, line('$')) exe "norm! 0d3\<del>2l" call assert_equal('obar2foobar3', getline('.')) bw! endfunc func! Test_normal12_nv_error() " Test for nv_error 10new call setline(1, range(1,5)) " should not do anything, just beep exe "norm! <c-k>" call assert_equal(map(range(1,5), 'string(v:val)'), getline(1,'$')) bw! endfunc func! Test_normal13_help() " Test for F1 call assert_equal(1, winnr()) call feedkeys("\<f1>", 'txi') call assert_match('help\.txt', bufname('%')) call assert_equal(2, winnr('$')) bw! endfunc func! Test_normal14_page() " basic test for Ctrl-F and Ctrl-B call Setup_NewWindow() exe "norm! \<c-f>" call assert_equal('9', getline('.')) exe "norm! 2\<c-f>" call assert_equal('25', getline('.')) exe "norm! 2\<c-b>" call assert_equal('18', getline('.')) 1 set scrolloff=5 exe "norm! 2\<c-f>" call assert_equal('21', getline('.')) exe "norm! \<c-b>" call assert_equal('13', getline('.')) 1 set scrolloff=99 exe "norm! \<c-f>" call assert_equal('13', getline('.')) set scrolloff=0 100 exe "norm! $\<c-b>" call assert_equal('92', getline('.')) call assert_equal([0, 92, 1, 0, 1], getcurpos()) 100 set nostartofline exe "norm! $\<c-b>" call assert_equal('92', getline('.')) call assert_equal([0, 92, 2, 0, 2147483647], getcurpos()) " cleanup set startofline bw! endfunc func! Test_normal14_page_eol() 10new norm oxxxxxxx exe "norm 2\<c-f>" " check with valgrind that cursor is put back in column 1 exe "norm 2\<c-b>" bw! endfunc func! Test_normal15_z_scroll_vert() " basic test for z commands that scroll the window call Setup_NewWindow() 100 norm! >> " Test for z<cr> exe "norm! z\<cr>" call assert_equal(' 100', getline('.')) call assert_equal(100, winsaveview()['topline']) call assert_equal([0, 100, 2, 0, 9], getcurpos()) " Test for zt 21 norm! >>0zt call assert_equal(' 21', getline('.')) call assert_equal(21, winsaveview()['topline']) call assert_equal([0, 21, 1, 0, 8], getcurpos()) " Test for zb 30 norm! >>$ztzb call assert_equal(' 30', getline('.')) call assert_equal(30, winsaveview()['topline']+winheight(0)-1) call assert_equal([0, 30, 3, 0, 2147483647], getcurpos()) " Test for z- 1 30 norm! 0z- call assert_equal(' 30', getline('.')) call assert_equal(30, winsaveview()['topline']+winheight(0)-1) call assert_equal([0, 30, 2, 0, 9], getcurpos()) " Test for z{height}<cr> call assert_equal(10, winheight(0)) exe "norm! z12\<cr>" call assert_equal(12, winheight(0)) exe "norm! z10\<cr>" call assert_equal(10, winheight(0)) " Test for z. 1 21 norm! 0z. call assert_equal(' 21', getline('.')) call assert_equal(17, winsaveview()['topline']) call assert_equal([0, 21, 2, 0, 9], getcurpos()) " Test for zz 1 21 norm! 0zz call assert_equal(' 21', getline('.')) call assert_equal(17, winsaveview()['topline']) call assert_equal([0, 21, 1, 0, 8], getcurpos()) " Test for z+ 11 norm! zt norm! z+ call assert_equal(' 21', getline('.')) call assert_equal(21, winsaveview()['topline']) call assert_equal([0, 21, 2, 0, 9], getcurpos()) " Test for [count]z+ 1 norm! 21z+ call assert_equal(' 21', getline('.')) call assert_equal(21, winsaveview()['topline']) call assert_equal([0, 21, 2, 0, 9], getcurpos()) " Test for z^ norm! 22z+0 norm! z^ call assert_equal(' 21', getline('.')) call assert_equal(12, winsaveview()['topline']) call assert_equal([0, 21, 2, 0, 9], getcurpos()) " Test for [count]z^ 1 norm! 30z^ call assert_equal(' 21', getline('.')) call assert_equal(12, winsaveview()['topline']) call assert_equal([0, 21, 2, 0, 9], getcurpos()) " cleanup bw! endfunc func! Test_normal16_z_scroll_hor() " basic test for z commands that scroll the window 10new 15vsp set nowrap listchars= let lineA='abcdefghijklmnopqrstuvwxyz' let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' $put =lineA $put =lineB 1d " Test for zl 1 norm! 5zl call assert_equal(lineA, getline('.')) call assert_equal(6, col('.')) call assert_equal(5, winsaveview()['leftcol']) norm! yl call assert_equal('f', @0) " Test for zh norm! 2zh call assert_equal(lineA, getline('.')) call assert_equal(6, col('.')) norm! yl call assert_equal('f', @0) call assert_equal(3, winsaveview()['leftcol']) " Test for zL norm! zL call assert_equal(11, col('.')) norm! yl call assert_equal('k', @0) call assert_equal(10, winsaveview()['leftcol']) norm! 2zL call assert_equal(25, col('.')) norm! yl call assert_equal('y', @0) call assert_equal(24, winsaveview()['leftcol']) " Test for zH norm! 2zH call assert_equal(25, col('.')) call assert_equal(10, winsaveview()['leftcol']) norm! yl call assert_equal('y', @0) " Test for zs norm! $zs call assert_equal(26, col('.')) call assert_equal(25, winsaveview()['leftcol']) norm! yl call assert_equal('z', @0) " Test for ze norm! ze call assert_equal(26, col('.')) call assert_equal(11, winsaveview()['leftcol']) norm! yl call assert_equal('z', @0) " cleanup set wrap listchars=eol:$ bw! endfunc func! Test_normal17_z_scroll_hor2() " basic test for z commands that scroll the window " using 'sidescrolloff' setting 10new 20vsp set nowrap listchars= sidescrolloff=5 let lineA='abcdefghijklmnopqrstuvwxyz' let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' $put =lineA $put =lineB 1d " Test for zl 1 norm! 5zl call assert_equal(lineA, getline('.')) call assert_equal(11, col('.')) call assert_equal(5, winsaveview()['leftcol']) norm! yl call assert_equal('k', @0) " Test for zh norm! 2zh call assert_equal(lineA, getline('.')) call assert_equal(11, col('.')) norm! yl call assert_equal('k', @0) call assert_equal(3, winsaveview()['leftcol']) " Test for zL norm! 0zL call assert_equal(16, col('.')) norm! yl call assert_equal('p', @0) call assert_equal(10, winsaveview()['leftcol']) norm! 2zL call assert_equal(26, col('.')) norm! yl call assert_equal('z', @0) call assert_equal(15, winsaveview()['leftcol']) " Test for zH norm! 2zH call assert_equal(15, col('.')) call assert_equal(0, winsaveview()['leftcol']) norm! yl call assert_equal('o', @0) " Test for zs norm! $zs call assert_equal(26, col('.')) call assert_equal(20, winsaveview()['leftcol']) norm! yl call assert_equal('z', @0) " Test for ze norm! ze call assert_equal(26, col('.')) call assert_equal(11, winsaveview()['leftcol']) norm! yl call assert_equal('z', @0) " cleanup set wrap listchars=eol:$ sidescrolloff=0 bw! endfunc func! Test_normal18_z_fold() " basic tests for foldopen/folddelete if !has("folding") return endif call Setup_NewWindow() 50 setl foldenable fdm=marker foldlevel=5 " Test for zF " First fold norm! 4zF " check that folds have been created call assert_equal(['50/*{{{*/', '51', '52', '53/*}}}*/'], getline(50,53)) " Test for zd 51 norm! 2zF call assert_equal(2, foldlevel('.')) norm! kzd call assert_equal(['50', '51/*{{{*/', '52/*}}}*/', '53'], getline(50,53)) norm! j call assert_equal(1, foldlevel('.')) " Test for zD " also deletes partially selected folds recursively 51 norm! zF call assert_equal(2, foldlevel('.')) norm! kV2jzD call assert_equal(['50', '51', '52', '53'], getline(50,53)) " Test for zE 85 norm! 4zF 86 norm! 2zF 90 norm! 4zF call assert_equal(['85/*{{{*/', '86/*{{{*/', '87/*}}}*/', '88/*}}}*/', '89', '90/*{{{*/', '91', '92', '93/*}}}*/'], getline(85,93)) norm! zE call assert_equal(['85', '86', '87', '88', '89', '90', '91', '92', '93'], getline(85,93)) " Test for zn 50 set foldlevel=0 norm! 2zF norm! zn norm! k call assert_equal('49', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) call assert_equal(0, &foldenable) " Test for zN 49 norm! zN call assert_equal('49', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('52', getline('.')) call assert_equal(1, &foldenable) " Test for zi norm! zi call assert_equal(0, &foldenable) norm! zi call assert_equal(1, &foldenable) norm! zi call assert_equal(0, &foldenable) norm! zi call assert_equal(1, &foldenable) " Test for za 50 norm! za norm! k call assert_equal('49', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) 50 norm! za norm! k call assert_equal('49', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('52', getline('.')) 49 norm! 5zF norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) 49 norm! za call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('52', getline('.')) set nofoldenable " close fold and set foldenable norm! za call assert_equal(1, &foldenable) 50 " have to use {count}za to open all folds and make the cursor visible norm! 2za norm! 2k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) " Test for zA 49 set foldlevel=0 50 norm! zA norm! 2k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) " zA on a opened fold when foldenable is not set 50 set nofoldenable norm! zA call assert_equal(1, &foldenable) norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zc norm! zE 50 norm! 2zF 49 norm! 5zF set nofoldenable 50 " There most likely is a bug somewhere: " https://groups.google.com/d/msg/vim_dev/v2EkfJ_KQjI/u-Cvv94uCAAJ " TODO: Should this only close the inner most fold or both folds? norm! zc call assert_equal(1, &foldenable) norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) set nofoldenable 50 norm! Vjzc norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zC set nofoldenable 50 norm! zCk call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zx " 1) close folds at line 49-54 set nofoldenable 48 norm! zx call assert_equal(1, &foldenable) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " 2) do not close fold under cursor 51 set nofoldenable norm! zx call assert_equal(1, &foldenable) norm! 3k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) norm! j call assert_equal('53', getline('.')) norm! j call assert_equal('54/*}}}*/', getline('.')) norm! j call assert_equal('55', getline('.')) " 3) close one level of folds 48 set nofoldenable set foldlevel=1 norm! zx call assert_equal(1, &foldenable) call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('52', getline('.')) norm! j call assert_equal('53', getline('.')) norm! j call assert_equal('54/*}}}*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zX " Close all folds set foldlevel=0 nofoldenable 50 norm! zX call assert_equal(1, &foldenable) norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zm 50 set nofoldenable foldlevel=2 norm! zm call assert_equal(1, &foldenable) call assert_equal(1, &foldlevel) norm! zm call assert_equal(0, &foldlevel) norm! zm call assert_equal(0, &foldlevel) norm! k call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zM 48 set nofoldenable foldlevel=99 norm! zM call assert_equal(1, &foldenable) call assert_equal(0, &foldlevel) call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('55', getline('.')) " Test for zr 48 set nofoldenable foldlevel=0 norm! zr call assert_equal(0, &foldenable) call assert_equal(1, &foldlevel) set foldlevel=0 foldenable norm! zr call assert_equal(1, &foldenable) call assert_equal(1, &foldlevel) norm! zr call assert_equal(2, &foldlevel) call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) " Test for zR 48 set nofoldenable foldlevel=0 norm! zR call assert_equal(0, &foldenable) call assert_equal(2, &foldlevel) set foldenable foldlevel=0 norm! zR call assert_equal(1, &foldenable) call assert_equal(2, &foldlevel) call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) call append(50, ['a /*{{{*/', 'b /*}}}*/']) 48 call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('a /*{{{*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) 48 norm! zR call assert_equal(1, &foldenable) call assert_equal(3, &foldlevel) call assert_equal('48', getline('.')) norm! j call assert_equal('49/*{{{*/', getline('.')) norm! j call assert_equal('50/*{{{*/', getline('.')) norm! j call assert_equal('a /*{{{*/', getline('.')) norm! j call assert_equal('b /*}}}*/', getline('.')) norm! j call assert_equal('51/*}}}*/', getline('.')) norm! j call assert_equal('52', getline('.')) " clean up setl nofoldenable fdm=marker foldlevel=0 bw! endfunc func! Test_normal19_z_spell() if !has("spell") || !has('syntax') return endif new call append(0, ['1 good', '2 goood', '3 goood']) set spell spellfile=./Xspellfile.add spelllang=en let oldlang=v:lang lang C " Test for zg 1 norm! ]s call assert_equal('2 goood', getline('.')) norm! zg 1 let a=execute('unsilent :norm! ]s') call assert_equal('1 good', getline('.')) call assert_equal('search hit BOTTOM, continuing at TOP', a[1:]) let cnt=readfile('./Xspellfile.add') call assert_equal('goood', cnt[0]) " Test for zw 2 norm! $zw 1 norm! ]s call assert_equal('2 goood', getline('.')) let cnt=readfile('./Xspellfile.add') call assert_equal('#oood', cnt[0]) call assert_equal('goood/!', cnt[1]) " Test for zg in visual mode let a=execute('unsilent :norm! V$zg') call assert_equal("Word '2 goood' added to ./Xspellfile.add", a[1:]) 1 norm! ]s call assert_equal('3 goood', getline('.')) let cnt=readfile('./Xspellfile.add') call assert_equal('2 goood', cnt[2]) " Remove "2 good" from spellfile 2 let a=execute('unsilent norm! V$zw') call assert_equal("Word '2 goood' added to ./Xspellfile.add", a[1:]) let cnt=readfile('./Xspellfile.add') call assert_equal('2 goood/!', cnt[3]) " Test for zG let a=execute('unsilent norm! V$zG') call assert_match("Word '2 goood' added to .*", a) let fname=matchstr(a, 'to\s\+\zs\f\+$') let cnt=readfile(fname) call assert_equal('2 goood', cnt[0]) " Test for zW let a=execute('unsilent norm! V$zW') call assert_match("Word '2 goood' added to .*", a) let cnt=readfile(fname) call assert_equal('# goood', cnt[0]) call assert_equal('2 goood/!', cnt[1]) " Test for zuW let a=execute('unsilent norm! V$zuW') call assert_match("Word '2 goood' removed from .*", a) let cnt=readfile(fname) call assert_equal('# goood', cnt[0]) call assert_equal('# goood/!', cnt[1]) " Test for zuG let a=execute('unsilent norm! $zG') call assert_match("Word 'goood' added to .*", a) let cnt=readfile(fname) call assert_equal('# goood', cnt[0]) call assert_equal('# goood/!', cnt[1]) call assert_equal('goood', cnt[2]) let a=execute('unsilent norm! $zuG') let cnt=readfile(fname) call assert_match("Word 'goood' removed from .*", a) call assert_equal('# goood', cnt[0]) call assert_equal('# goood/!', cnt[1]) call assert_equal('#oood', cnt[2]) " word not found in wordlist let a=execute('unsilent norm! V$zuG') let cnt=readfile(fname) call assert_match("", a) call assert_equal('# goood', cnt[0]) call assert_equal('# goood/!', cnt[1]) call assert_equal('#oood', cnt[2]) " Test for zug call delete('./Xspellfile.add') 2 let a=execute('unsilent norm! $zg') let cnt=readfile('./Xspellfile.add') call assert_equal('goood', cnt[0]) let a=execute('unsilent norm! $zug') call assert_match("Word 'goood' removed from \./Xspellfile.add", a) let cnt=readfile('./Xspellfile.add') call assert_equal('#oood', cnt[0]) " word not in wordlist let a=execute('unsilent norm! V$zug') call assert_match('', a) let cnt=readfile('./Xspellfile.add') call assert_equal('#oood', cnt[0]) " Test for zuw call delete('./Xspellfile.add') 2 let a=execute('unsilent norm! Vzw') let cnt=readfile('./Xspellfile.add') call assert_equal('2 goood/!', cnt[0]) let a=execute('unsilent norm! Vzuw') call assert_match("Word '2 goood' removed from \./Xspellfile.add", a) let cnt=readfile('./Xspellfile.add') call assert_equal('# goood/!', cnt[0]) " word not in wordlist let a=execute('unsilent norm! $zug') call assert_match('', a) let cnt=readfile('./Xspellfile.add') call assert_equal('# goood/!', cnt[0]) " add second entry to spellfile setting set spellfile=./Xspellfile.add,./Xspellfile2.add call delete('./Xspellfile.add') 2 let a=execute('unsilent norm! $2zg') let cnt=readfile('./Xspellfile2.add') call assert_match("Word 'goood' added to ./Xspellfile2.add", a) call assert_equal('goood', cnt[0]) " Test for :spellgood! let temp = execute(':spe!0/0') call assert_match('Invalid region', temp) let spellfile = matchstr(temp, 'Invalid region nr in \zs.*\ze line \d: 0') call assert_equal(['# goood', '# goood/!', '#oood', '0/0'], readfile(spellfile)) call delete(spellfile) " clean up exe "lang" oldlang call delete("./Xspellfile.add") call delete("./Xspellfile2.add") call delete("./Xspellfile.add.spl") call delete("./Xspellfile2.add.spl") " zux -> no-op 2 norm! $zux call assert_equal([], glob('Xspellfile.add',0,1)) call assert_equal([], glob('Xspellfile2.add',0,1)) set spellfile= bw! endfunc func! Test_normal20_exmode() if !has("unix") " Reading from redirected file doesn't work on MS-Windows return endif call writefile(['1a', 'foo', 'bar', '.', 'w! Xfile2', 'q!'], 'Xscript') call writefile(['1', '2'], 'Xfile') call system(v:progpath .' -e -s < Xscript Xfile') let a=readfile('Xfile2') call assert_equal(['1', 'foo', 'bar', '2'], a) " clean up for file in ['Xfile', 'Xfile2', 'Xscript'] call delete(file) endfor bw! endfunc func! Test_normal21_nv_hat() set hidden new " to many buffers opened already, will not work "call assert_fails(":b#", 'E23') "call assert_equal('', @#) e Xfoobar e Xfile2 call feedkeys("\<c-^>", 't') call assert_equal("Xfile2", fnamemodify(bufname('%'), ':t')) call feedkeys("f\<c-^>", 't') call assert_equal("Xfile2", fnamemodify(bufname('%'), ':t')) " clean up set nohidden bw! endfunc func! Test_normal22_zet() " Test for ZZ " let shell = &shell " let &shell = 'sh' call writefile(['1', '2'], 'Xfile') let args = ' -u NONE -N -U NONE -i NONE --noplugins -X --not-a-term' call system(v:progpath . args . ' -c "%d" -c ":norm! ZZ" Xfile') let a = readfile('Xfile') call assert_equal([], a) " Test for ZQ call writefile(['1', '2'], 'Xfile') call system(v:progpath . args . ' -c "%d" -c ":norm! ZQ" Xfile') let a = readfile('Xfile') call assert_equal(['1', '2'], a) " clean up for file in ['Xfile'] call delete(file) endfor " let &shell = shell endfunc func! Test_normal23_K() " Test for K command new call append(0, ['version8.txt', 'man', 'aa%bb', 'cc|dd']) let k = &keywordprg set keywordprg=:help 1 norm! VK call assert_equal('version8.txt', fnamemodify(bufname('%'), ':t')) call assert_equal('help', &ft) call assert_match('\*version8.txt\*', getline('.')) helpclose norm! 0K call assert_equal('version8.txt', fnamemodify(bufname('%'), ':t')) call assert_equal('help', &ft) call assert_match('\*version8\.0\*', getline('.')) helpclose set keywordprg=:new set iskeyword+=% set iskeyword+=\| 2 norm! K call assert_equal('man', fnamemodify(bufname('%'), ':t')) bwipe! 3 norm! K call assert_equal('aa%bb', fnamemodify(bufname('%'), ':t')) bwipe! if !has('win32') 4 norm! K call assert_equal('cc|dd', fnamemodify(bufname('%'), ':t')) bwipe! endif set iskeyword-=% set iskeyword-=\| " Only expect "man" to work on Unix if !has("unix") let &keywordprg = k bw! return endif set keywordprg=man\ --pager=cat " Test for using man 2 let a = execute('unsilent norm! K') call assert_match("man --pager=cat 'man'", a) " clean up let &keywordprg = k bw! endfunc func! Test_normal24_rot13() " This test uses multi byte characters if !has("multi_byte") return endif " Testing for g?? g?g? new call append(0, 'abcdefghijklmnopqrstuvwxyzäüö') 1 norm! g?? call assert_equal('nopqrstuvwxyzabcdefghijklmäüö', getline('.')) norm! g?g? call assert_equal('abcdefghijklmnopqrstuvwxyzäüö', getline('.')) " clean up bw! endfunc func! Test_normal25_tag() " Testing for CTRL-] g CTRL-] g] " CTRL-W g] CTRL-W CTRL-] CTRL-W g CTRL-] h " Test for CTRL-] call search('\<x\>$') exe "norm! \<c-]>" call assert_equal("change.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*x*", @0) exe ":norm \<c-o>" " Test for g_CTRL-] call search('\<v_u\>$') exe "norm! g\<c-]>" call assert_equal("change.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*v_u*", @0) exe ":norm \<c-o>" " Test for g] call search('\<i_<Esc>$') let a = execute(":norm! g]") call assert_match('i_<Esc>.*insert.txt', a) if !empty(exepath('cscope')) && has('cscope') " setting cscopetag changes how g] works set cst exe "norm! g]" call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*i_<Esc>*", @0) exe ":norm \<c-o>" " Test for CTRL-W g] exe "norm! \<C-W>g]" call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*i_<Esc>*", @0) call assert_equal(3, winnr('$')) helpclose set nocst endif " Test for CTRL-W g] let a = execute("norm! \<C-W>g]") call assert_match('i_<Esc>.*insert.txt', a) " Test for CTRL-W CTRL-] exe "norm! \<C-W>\<C-]>" call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*i_<Esc>*", @0) call assert_equal(3, winnr('$')) helpclose " Test for CTRL-W g CTRL-] exe "norm! \<C-W>g\<C-]>" call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t')) norm! yiW call assert_equal("*i_<Esc>*", @0) call assert_equal(3, winnr('$')) helpclose " clean up helpclose endfunc func! Test_normal26_put() " Test for ]p ]P [p and [P new call append(0, ['while read LINE', 'do', ' ((count++))', ' if [ $? -ne 0 ]; then', " echo 'Error writing file'", ' fi', 'done']) 1 /Error/y a 2 norm! "a]pj"a[p call assert_equal(['do', "echo 'Error writing file'", " echo 'Error writing file'", ' ((count++))'], getline(2,5)) 1 /^\s\{4}/ exe "norm! \"a]P3Eldt'" exe "norm! j\"a[P2Eldt'" call assert_equal([' if [ $? -ne 0 ]; then', " echo 'Error writing'", " echo 'Error'", " echo 'Error writing file'", ' fi'], getline(6,10)) " clean up bw! endfunc func! Test_normal27_bracket() " Test for [' [` ]' ]` call Setup_NewWindow() 1,21s/.\+/ & b/ 1 norm! $ma 5 norm! $mb 10 norm! $mc 15 norm! $md 20 norm! $me " Test for [' 9 norm! 2[' call assert_equal(' 1 b', getline('.')) call assert_equal(1, line('.')) call assert_equal(3, col('.')) " Test for ]' norm! ]' call assert_equal(' 5 b', getline('.')) call assert_equal(5, line('.')) call assert_equal(3, col('.')) " No mark after line 21, cursor moves to first non blank on current line 21 norm! $]' call assert_equal(' 21 b', getline('.')) call assert_equal(21, line('.')) call assert_equal(3, col('.')) " Test for [` norm! 2[` call assert_equal(' 15 b', getline('.')) call assert_equal(15, line('.')) call assert_equal(8, col('.')) " Test for ]` norm! ]` call assert_equal(' 20 b', getline('.')) call assert_equal(20, line('.')) call assert_equal(8, col('.')) " clean up bw! endfunc func! Test_normal28_parenthesis() " basic testing for ( and ) new call append(0, ['This is a test. With some sentences!', '', 'Even with a question? And one more. And no sentence here']) $ norm! d( call assert_equal(['This is a test. With some sentences!', '', 'Even with a question? And one more. ', ''], getline(1, '$')) norm! 2d( call assert_equal(['This is a test. With some sentences!', '', ' ', ''], getline(1, '$')) 1 norm! 0d) call assert_equal(['With some sentences!', '', ' ', ''], getline(1, '$')) call append('$', ['This is a long sentence', '', 'spanning', 'over several lines. ']) $ norm! $d( call assert_equal(['With some sentences!', '', ' ', '', 'This is a long sentence', ''], getline(1, '$')) " clean up bw! endfunc fun! Test_normal29_brace() " basic test for { and } movements let text= ['A paragraph begins after each empty line, and also at each of a set of', \ 'paragraph macros, specified by the pairs of characters in the ''paragraphs''', \ 'option. The default is "IPLPPPQPP TPHPLIPpLpItpplpipbp", which corresponds to', \ 'the macros ".IP", ".LP", etc. (These are nroff macros, so the dot must be in', \ 'the first column). A section boundary is also a paragraph boundary.', \ 'Note that a blank line (only containing white space) is NOT a paragraph', \ 'boundary.', \ '', \ '', \ 'Also note that this does not include a ''{'' or ''}'' in the first column. When', \ 'the ''{'' flag is in ''cpoptions'' then ''{'' in the first column is used as a', \ 'paragraph boundary |posix|.', \ '{', \ 'This is no paragraph', \ 'unless the ''{'' is set', \ 'in ''cpoptions''', \ '}', \ '.IP', \ 'The nroff macros IP separates a paragraph', \ 'That means, it must be a ''.''', \ 'followed by IP', \ '.LPIt does not matter, if afterwards some', \ 'more characters follow.', \ '.SHAlso section boundaries from the nroff', \ 'macros terminate a paragraph. That means', \ 'a character like this:', \ '.NH', \ 'End of text here'] new call append(0, text) 1 norm! 0d2} call assert_equal(['.IP', \ 'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''', 'followed by IP', \ '.LPIt does not matter, if afterwards some', 'more characters follow.', '.SHAlso section boundaries from the nroff', \ 'macros terminate a paragraph. That means', 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$')) norm! 0d} call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.', \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means', \ 'a character like this:', '.NH', 'End of text here', ''], getline(1, '$')) $ norm! d{ call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.', \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means', 'a character like this:', ''], getline(1, '$')) norm! d{ call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.', ''], getline(1,'$')) " Test with { in cpooptions %d call append(0, text) set cpo+={ 1 norm! 0d2} call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}', \ '.IP', 'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''', \ 'followed by IP', '.LPIt does not matter, if afterwards some', 'more characters follow.', \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means', \ 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$')) $ norm! d} call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}', \ '.IP', 'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''', \ 'followed by IP', '.LPIt does not matter, if afterwards some', 'more characters follow.', \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means', \ 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$')) norm! gg} norm! d5} call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}', ''], getline(1,'$')) " clean up set cpo-={ bw! endfunc fun! Test_normal30_changecase() " This test uses multi byte characters if !has("multi_byte") return endif new call append(0, 'This is a simple test: äüöß') norm! 1ggVu call assert_equal('this is a simple test: äüöß', getline('.')) norm! VU call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.')) norm! guu call assert_equal('this is a simple test: äüöss', getline('.')) norm! gUgU call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.')) norm! gugu call assert_equal('this is a simple test: äüöss', getline('.')) norm! gUU call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.')) norm! 010~ call assert_equal('this is a SIMPLE TEST: ÄÜÖSS', getline('.')) norm! V~ call assert_equal('THIS IS A simple test: äüöss', getline('.')) " Turkish ASCII turns to multi-byte. On Mac the Turkish locale is available " but toupper()/tolower() don't do the right thing. if !has('mac') && !has('osx') try lang tr_TR.UTF-8 set casemap= call setline(1, 'iI') 1normal gUU call assert_equal("\u0130I", getline(1)) call assert_equal("\u0130I", toupper("iI")) call setline(1, 'iI') 1normal guu call assert_equal("i\u0131", getline(1)) call assert_equal("i\u0131", tolower("iI")) set casemap& call setline(1, 'iI') 1normal gUU call assert_equal("II", getline(1)) call assert_equal("II", toupper("iI")) call setline(1, 'iI') 1normal guu call assert_equal("ii", getline(1)) call assert_equal("ii", tolower("iI")) lang en_US.UTF-8 catch /E197:/ " can't use Turkish locale throw 'Skipped: Turkish locale not available' endtry endif " clean up bw! endfunc fun! Test_normal31_r_cmd() " Test for r command new call append(0, 'This is a simple test: abcd') exe "norm! 1gg$r\<cr>" call assert_equal(['This is a simple test: abc', '', ''], getline(1,'$')) exe "norm! 1gg2wlr\<cr>" call assert_equal(['This is a', 'simple test: abc', '', ''], getline(1,'$')) exe "norm! 2gg0W5r\<cr>" call assert_equal(['This is a', 'simple ', ' abc', '', ''], getline('1', '$')) set autoindent call setline(2, ['simple test: abc', '']) exe "norm! 2gg0W5r\<cr>" call assert_equal(['This is a', 'simple ', 'abc', '', '', ''], getline('1', '$')) exe "norm! 1ggVr\<cr>" call assert_equal('^M^M^M^M^M^M^M^M^M', strtrans(getline(1))) call setline(1, 'This is a') exe "norm! 1gg05rf" call assert_equal('fffffis a', getline(1)) " clean up set noautoindent bw! endfunc func! Test_normal32_g_cmd1() " Test for g*, g# new call append(0, ['abc.x_foo', 'x_foobar.abc']) 1 norm! $g* call assert_equal('x_foo', @/) call assert_equal('x_foobar.abc', getline('.')) norm! $g# call assert_equal('abc', @/) call assert_equal('abc.x_foo', getline('.')) " clean up bw! endfunc fun! Test_normal33_g_cmd2() if !has("jumplist") return endif " Tests for g cmds call Setup_NewWindow() " Test for g` clearjumps norm! ma10j let a=execute(':jumps') " empty jumplist call assert_equal('>', a[-1:]) norm! g`a call assert_equal('>', a[-1:]) call assert_equal(1, line('.')) call assert_equal('1', getline('.')) " Test for g; and g, norm! g; " there is only one change in the changelist " currently, when we setup the window call assert_equal(2, line('.')) call assert_fails(':norm! g;', 'E662') call assert_fails(':norm! g,', 'E663') let &ul=&ul call append('$', ['a', 'b', 'c', 'd']) let &ul=&ul call append('$', ['Z', 'Y', 'X', 'W']) let a = execute(':changes') call assert_match('2\s\+0\s\+2', a) call assert_match('101\s\+0\s\+a', a) call assert_match('105\s\+0\s\+Z', a) norm! 3g; call assert_equal(2, line('.')) norm! 2g, call assert_equal(105, line('.')) " Test for g& - global substitute %d call setline(1, range(1,10)) call append('$', ['a', 'b', 'c', 'd']) $s/\w/&&/g exe "norm! /[1-8]\<cr>" norm! g& call assert_equal(['11', '22', '33', '44', '55', '66', '77', '88', '9', '110', 'a', 'b', 'c', 'dd'], getline(1, '$')) " Test for gv %d call append('$', repeat(['abcdefgh'], 8)) exe "norm! 2gg02l\<c-v>2j2ly" call assert_equal(['cde', 'cde', 'cde'], getreg(0, 1, 1)) " in visual mode, gv swaps current and last selected region exe "norm! G0\<c-v>4k4lgvd" call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh'], getline(1,'$')) exe "norm! G0\<c-v>4k4ly" exe "norm! gvood" call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'fgh', 'fgh', 'fgh', 'fgh', 'fgh'], getline(1,'$')) " Test for gk/gj %d 15vsp set wrap listchars= sbr= let lineA='abcdefghijklmnopqrstuvwxyz' let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' $put =lineA $put =lineB norm! 3gg0dgk call assert_equal(['', 'abcdefghijklmno', '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'], getline(1, '$')) set nu norm! 3gg0gjdgj call assert_equal(['', 'abcdefghijklmno', '0123456789AMNOPQRSTUVWXYZ'], getline(1,'$')) " Test for gJ norm! 2gggJ call assert_equal(['', 'abcdefghijklmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$')) call assert_equal(16, col('.')) " shouldn't do anything norm! 10gJ call assert_equal(1, col('.')) " Test for g0 g^ gm g$ exe "norm! 2gg0gji " call assert_equal(['', 'abcdefghijk lmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$')) norm! g0yl call assert_equal(12, col('.')) call assert_equal(' ', getreg(0)) norm! g$yl call assert_equal(22, col('.')) call assert_equal('3', getreg(0)) norm! gmyl call assert_equal(17, col('.')) call assert_equal('n', getreg(0)) norm! g^yl call assert_equal(15, col('.')) call assert_equal('l', getreg(0)) " Test for g Ctrl-G set ff=unix let a=execute(":norm! g\<c-g>") call assert_match('Col 15 of 43; Line 2 of 2; Word 2 of 2; Byte 16 of 45', a) " Test for gI norm! gIfoo call assert_equal(['', 'fooabcdefghijk lmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$')) " Test for gi wincmd c %d set tw=0 call setline(1, ['foobar', 'new line']) norm! A next word $put ='third line' norm! gi another word call assert_equal(['foobar next word another word', 'new line', 'third line'], getline(1,'$')) " clean up bw! endfunc fun! Test_normal34_g_cmd3() if !has("multi_byte") return endif " Test for g8 new let a=execute(':norm! 1G0g8') call assert_equal("\nNUL", a) call setline(1, 'abcdefghijklmnopqrstuvwxyzäüö') let a=execute(':norm! 1G$g8') call assert_equal("\nc3 b6 ", a) call setline(1, "a\u0302") let a=execute(':norm! 1G0g8') call assert_equal("\n61 + cc 82 ", a) " clean up bw! endfunc func Test_normal_8g8() if !has("multi_byte") return endif new " Test 8g8 which finds invalid utf8 at or after the cursor. " With invalid byte. call setline(1, "___\xff___") norm! 1G08g8g call assert_equal([0, 1, 4, 0, 1], getcurpos()) " With invalid byte before the cursor. call setline(1, "___\xff___") norm! 1G$h8g8g call assert_equal([0, 1, 6, 0, 9], getcurpos()) " With truncated sequence. call setline(1, "___\xE2\x82___") norm! 1G08g8g call assert_equal([0, 1, 4, 0, 1], getcurpos()) " With overlong sequence. call setline(1, "___\xF0\x82\x82\xAC___") norm! 1G08g8g call assert_equal([0, 1, 4, 0, 1], getcurpos()) " With valid utf8. call setline(1, "café") norm! 1G08g8 call assert_equal([0, 1, 1, 0, 1], getcurpos()) bw! endfunc fun! Test_normal35_g_cmd4() " Test for g< " Cannot capture its output, " probably a bug, therefore, test disabled: throw "Skipped: output of g< can't be tested currently" echo "a\nb\nc\nd" let b=execute(':norm! g<') call assert_true(!empty(b), 'failed `execute(g<)`') endfunc fun! Test_normal36_g_cmd5() new call append(0, 'abcdefghijklmnopqrstuvwxyz') set ff=unix " Test for gp gP call append(1, range(1,10)) 1 norm! 1yy 3 norm! gp call assert_equal([0, 5, 1, 0, 1], getcurpos()) $ norm! gP call assert_equal([0, 14, 1, 0, 1], getcurpos()) " Test for go norm! 26go call assert_equal([0, 1, 26, 0, 26], getcurpos()) norm! 27go call assert_equal([0, 1, 26, 0, 26], getcurpos()) norm! 28go call assert_equal([0, 2, 1, 0, 1], getcurpos()) set ff=dos norm! 29go call assert_equal([0, 2, 1, 0, 1], getcurpos()) set ff=unix norm! gg0 norm! 101go call assert_equal([0, 13, 26, 0, 26], getcurpos()) norm! 103go call assert_equal([0, 14, 1, 0, 1], getcurpos()) " count > buffer content norm! 120go call assert_equal([0, 14, 1, 0, 2147483647], getcurpos()) " clean up bw! endfunc fun! Test_normal37_g_cmd6() " basic test for gt and gT tabnew 1.txt tabnew 2.txt tabnew 3.txt norm! 1gt call assert_equal(1, tabpagenr()) norm! 3gt call assert_equal(3, tabpagenr()) norm! 1gT " count gT goes not to the absolute tabpagenumber " but, but goes to the count previous tabpagenumber call assert_equal(2, tabpagenr()) " wrap around norm! 3gT call assert_equal(3, tabpagenr()) " gt does not wrap around norm! 5gt call assert_equal(3, tabpagenr()) for i in range(3) tabclose endfor " clean up call assert_fails(':tabclose', 'E784') endfunc fun! Test_normal38_nvhome() " Test for <Home> and <C-Home> key new call setline(1, range(10)) $ setl et sw=2 norm! V10>$ " count is ignored exe "norm! 10\<home>" call assert_equal(1, col('.')) exe "norm! \<home>" call assert_equal([0, 10, 1, 0, 1], getcurpos()) exe "norm! 5\<c-home>" call assert_equal([0, 5, 1, 0, 1], getcurpos()) exe "norm! \<c-home>" call assert_equal([0, 1, 1, 0, 1], getcurpos()) " clean up bw! endfunc fun! Test_normal39_cw() " Test for cw and cW on whitespace " and cpo+=w setting new set tw=0 call append(0, 'here are some words') norm! 1gg0elcwZZZ call assert_equal('hereZZZare some words', getline('.')) norm! 1gg0elcWYYY call assert_equal('hereZZZareYYYsome words', getline('.')) set cpo+=w call setline(1, 'here are some words') norm! 1gg0elcwZZZ call assert_equal('hereZZZ are some words', getline('.')) norm! 1gg2elcWYYY call assert_equal('hereZZZ areYYY some words', getline('.')) set cpo-=w norm! 2gg0cwfoo call assert_equal('foo', getline('.')) " clean up bw! endfunc fun! Test_normal40_ctrl_bsl() " Basic test for CTRL-\ commands new call append(0, 'here are some words') exe "norm! 1gg0a\<C-\>\<C-N>" call assert_equal('n', mode()) call assert_equal(1, col('.')) call assert_equal('', visualmode()) exe "norm! 1gg0viw\<C-\>\<C-N>" call assert_equal('n', mode()) call assert_equal(4, col('.')) exe "norm! 1gg0a\<C-\>\<C-G>" call assert_equal('n', mode()) call assert_equal(1, col('.')) "imap <buffer> , <c-\><c-n> set im exe ":norm! \<c-\>\<c-n>dw" set noim call assert_equal('are some words', getline(1)) call assert_false(&insertmode) " clean up bw! endfunc fun! Test_normal41_insert_reg() " Test for <c-r>=, <c-r><c-r>= and <c-r><c-o>= " in insert mode new set sts=2 sw=2 ts=8 tw=0 call append(0, ["aaa\tbbb\tccc", '', '', '']) let a=getline(1) norm! 2gg0 exe "norm! a\<c-r>=a\<cr>" norm! 3gg0 exe "norm! a\<c-r>\<c-r>=a\<cr>" norm! 4gg0 exe "norm! a\<c-r>\<c-o>=a\<cr>" call assert_equal(['aaa bbb ccc', 'aaa bbb ccc', 'aaa bbb ccc', 'aaa bbb ccc', ''], getline(1, '$')) " clean up set sts=0 sw=8 ts=8 bw! endfunc func! Test_normal42_halfpage() " basic test for Ctrl-D and Ctrl-U call Setup_NewWindow() call assert_equal(5, &scroll) exe "norm! \<c-d>" call assert_equal('6', getline('.')) exe "norm! 2\<c-d>" call assert_equal('8', getline('.')) call assert_equal(2, &scroll) set scroll=5 exe "norm! \<c-u>" call assert_equal('3', getline('.')) 1 set scrolloff=5 exe "norm! \<c-d>" call assert_equal('10', getline('.')) exe "norm! \<c-u>" call assert_equal('5', getline('.')) 1 set scrolloff=99 exe "norm! \<c-d>" call assert_equal('10', getline('.')) set scrolloff=0 100 exe "norm! $\<c-u>" call assert_equal('95', getline('.')) call assert_equal([0, 95, 1, 0, 1], getcurpos()) 100 set nostartofline exe "norm! $\<c-u>" call assert_equal('95', getline('.')) call assert_equal([0, 95, 2, 0, 2147483647], getcurpos()) " cleanup set startofline bw! endfunc fun! Test_normal43_textobject1() " basic tests for text object aw new call append(0, ['foobar,eins,foobar', 'foo,zwei,foo ']) " diw norm! 1gg0diw call assert_equal([',eins,foobar', 'foo,zwei,foo ', ''], getline(1,'$')) " daw norm! 2ggEdaw call assert_equal([',eins,foobar', 'foo,zwei,', ''], getline(1, '$')) %d call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo "]) " diW norm! 2ggwd2iW call assert_equal(['foo eins foobar', 'foo foo ', ''], getline(1,'$')) " daW norm! 1ggd2aW call assert_equal(['foobar', 'foo foo ', ''], getline(1,'$')) %d call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo "]) " aw in visual line mode switches to characterwise mode norm! 2gg$Vawd call assert_equal(['foo eins foobar', 'foo zwei foo'], getline(1,'$')) norm! 1gg$Viwd call assert_equal(['foo eins ', 'foo zwei foo'], getline(1,'$')) " clean up bw! endfunc func! Test_normal44_textobjects2() " basic testing for is and as text objects new call append(0, ['This is a test. With some sentences!', '', 'Even with a question? And one more. And no sentence here']) " Test for dis - does not remove trailing whitespace norm! 1gg0dis call assert_equal([' With some sentences!', '', 'Even with a question? And one more. And no sentence here', ''], getline(1,'$')) " Test for das - removes leading whitespace norm! 3ggf?ldas call assert_equal([' With some sentences!', '', 'Even with a question? And no sentence here', ''], getline(1,'$')) " when used in visual mode, is made characterwise norm! 3gg$Visy call assert_equal('v', visualmode()) " reset visualmode() norm! 3ggVy norm! 3gg$Vasy call assert_equal('v', visualmode()) " basic testing for textobjects a< and at %d call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>',' </div>', ' ']) " a< norm! 1gg0da< call assert_equal([' ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$')) norm! 1pj call assert_equal([' <div>', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$')) " at norm! d2at call assert_equal([' '], getline(1,'$')) %d call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>',' </div>', ' ']) " i< norm! 1gg0di< call assert_equal(['<> ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$')) norm! 1Pj call assert_equal(['<div> ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$')) norm! d2it call assert_equal(['<div></div>',' '], getline(1,'$')) " basic testing for a[ and i[ text object %d call setline(1, [' ', '[', 'one [two]', 'thre', ']']) norm! 3gg0di[ call assert_equal([' ', '[', ']'], getline(1,'$')) call setline(1, [' ', '[', 'one [two]', 'thre', ']']) norm! 3gg0ftd2a[ call assert_equal([' '], getline(1,'$')) %d " Test for i" when cursor is in front of a quoted object call append(0, 'foo "bar"') norm! 1gg0di" call assert_equal(['foo ""', ''], getline(1,'$')) " clean up bw! endfunc func! Test_normal45_drop() if !has('dnd') " The ~ register does not exist call assert_beeps('norm! "~') return endif " basic test for drag-n-drop " unfortunately, without a gui, we can't really test much here, " so simply test that ~p fails (which uses the drop register) new call assert_fails(':norm! "~p', 'E353') call assert_equal([], getreg('~', 1, 1)) " the ~ register is read only call assert_fails(':let @~="1"', 'E354') bw! endfunc func! Test_normal46_ignore() " This test uses multi byte characters if !has("multi_byte") return endif new " How to test this? " let's just for now test, that the buffer " does not change call feedkeys("\<c-s>", 't') call assert_equal([''], getline(1,'$')) " no valid commands exe "norm! \<char-0x100>" call assert_equal([''], getline(1,'$')) exe "norm! ä" call assert_equal([''], getline(1,'$')) " clean up bw! endfunc func! Test_normal47_visual_buf_wipe() " This was causing a crash or ml_get error. enew! call setline(1,'xxx') normal $ new call setline(1, range(1,2)) 2 exe "norm \<C-V>$" bw! norm yp set nomodified endfunc func! Test_normal47_autocmd() " disabled, does not seem to be possible currently throw "Skipped: not possible to test cursorhold autocmd while waiting for input in normal_cmd" new call append(0, repeat('-',20)) au CursorHold * call feedkeys('2l', '') 1 set updatetime=20 " should delete 12 chars (d12l) call feedkeys('d1', '!') call assert_equal('--------', getline(1)) " clean up au! CursorHold set updatetime=4000 bw! endfunc func! Test_normal48_wincmd() new exe "norm! \<c-w>c" call assert_equal(1, winnr('$')) call assert_fails(":norm! \<c-w>c", "E444") endfunc func! Test_normal49_counts() new call setline(1, 'one two three four five six seven eight nine ten') 1 norm! 3d2w call assert_equal('seven eight nine ten', getline(1)) bw! endfunc func! Test_normal50_commandline() if !has("timers") || !has("cmdline_hist") return endif func! DoTimerWork(id) call assert_equal('[Command Line]', bufname('')) " should fail, with E11, but does fail with E23? "call feedkeys("\<c-^>", 'tm') " should also fail with E11 call assert_fails(":wincmd p", 'E11') " return from commandline window call feedkeys("\<cr>") endfunc let oldlang=v:lang lang C set updatetime=20 call timer_start(100, 'DoTimerWork') try " throws E23, for whatever reason... call feedkeys('q:', 'x!') catch /E23/ " no-op endtry " clean up set updatetime=4000 exe "lang" oldlang bw! endfunc func! Test_normal51_FileChangedRO() if !has("autocmd") return endif " Don't sleep after the warning message. call test_settime(1) call writefile(['foo'], 'Xreadonly.log') new Xreadonly.log setl ro au FileChangedRO <buffer> :call feedkeys("\<c-^>", 'tix') call assert_fails(":norm! Af", 'E788') call assert_equal(['foo'], getline(1,'$')) call assert_equal('Xreadonly.log', bufname('')) " cleanup call test_settime(0) bw! call delete("Xreadonly.log") endfunc func! Test_normal52_rl() if !has("rightleft") return endif new call setline(1, 'abcde fghij klmnopq') norm! 1gg$ set rl call assert_equal(19, col('.')) call feedkeys('l', 'tx') call assert_equal(18, col('.')) call feedkeys('h', 'tx') call assert_equal(19, col('.')) call feedkeys("\<right>", 'tx') call assert_equal(18, col('.')) call feedkeys("\<s-right>", 'tx') call assert_equal(13, col('.')) call feedkeys("\<c-right>", 'tx') call assert_equal(7, col('.')) call feedkeys("\<c-left>", 'tx') call assert_equal(13, col('.')) call feedkeys("\<s-left>", 'tx') call assert_equal(19, col('.')) call feedkeys("<<", 'tx') call assert_equal(' abcde fghij klmnopq',getline(1)) call feedkeys(">>", 'tx') call assert_equal('abcde fghij klmnopq',getline(1)) " cleanup set norl bw! endfunc func! Test_normal53_digraph() if !has('digraphs') return endif new call setline(1, 'abcdefgh|') exe "norm! 1gg0f\<c-k>!!" call assert_equal(9, col('.')) set cpo+=D exe "norm! 1gg0f\<c-k>!!" call assert_equal(1, col('.')) set cpo-=D bw! endfunc func Test_normal54_Ctrl_bsl() new call setline(1, 'abcdefghijklmn') exe "norm! df\<c-\>\<c-n>" call assert_equal(['abcdefghijklmn'], getline(1,'$')) exe "norm! df\<c-\>\<c-g>" call assert_equal(['abcdefghijklmn'], getline(1,'$')) exe "norm! df\<c-\>m" call assert_equal(['abcdefghijklmn'], getline(1,'$')) if !has("multi_byte") return endif call setline(2, 'abcdefghijklmnāf') norm! 2gg0 exe "norm! df\<Char-0x101>" call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$')) norm! 1gg0 exe "norm! df\<esc>" call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$')) " clean up bw! endfunc func Test_normal_large_count() " This may fail with 32bit long, how do we detect that? new normal o normal 6666666666dL bwipe! endfunc func Test_delete_until_paragraph() if !has('multi_byte') return endif new normal grádv} call assert_equal('á', getline(1)) normal grád} call assert_equal('', getline(1)) bwipe! endfunc " Test for the gr (virtual replace) command " Test for the bug fixed by 7.4.387 func Test_gr_command() enew! let save_cpo = &cpo call append(0, ['First line', 'Second line', 'Third line']) exe "normal i\<C-G>u" call cursor(2, 1) set cpo-=X normal 4gro call assert_equal('oooond line', getline(2)) undo set cpo+=X normal 4gro call assert_equal('ooooecond line', getline(2)) let &cpo = save_cpo enew! endfunc " When splitting a window the changelist position is wrong. " Test the changelist position after splitting a window. " Test for the bug fixed by 7.4.386 func Test_changelist() let save_ul = &ul enew! call append('$', ['1', '2']) exe "normal i\<C-G>u" exe "normal Gkylpa\<C-G>u" set ul=100 exe "normal Gylpa\<C-G>u" set ul=100 normal gg vsplit normal g; call assert_equal([3, 2], [line('.'), col('.')]) normal g; call assert_equal([2, 2], [line('.'), col('.')]) call assert_fails('normal g;', 'E662:') %bwipe! let &ul = save_ul endfunc