call setline(ln, substitute(line, '\s\+$', '', '') . '->$')
endif
endfor
-endfu
+endfunc
-function! CountSpaces(type, ...)
+func! CountSpaces(type, ...)
" for testing operatorfunc
" will count the number of spaces
" and return the result in g:a
let g:a=strlen(substitute(@@, '[^ ]', '', 'g'))
let &selection = sel_save
let @@ = reg_save
-endfunction
+endfunc
+
+func! IsWindows()
+ return has("win32") || has("win64") || has("win95")
+endfunc
fun! Test_normal00_optrans()
new
" clean up
set cpo-=#
bw!
-endfu
+endfunc
func! Test_normal01_keymodel()
call Setup_NewWindow()
" Test 1: depending on 'keymodel' <s-down> does something different
- :50
+ 50
call feedkeys("V\<S-Up>y", 'tx')
call assert_equal(['47', '48', '49', '50'], getline("'<", "'>"))
- :set keymodel=startsel
- :50
+ set keymodel=startsel
+ 50
call feedkeys("V\<S-Up>y", 'tx')
call assert_equal(['49', '50'], getline("'<", "'>"))
" Start visual mode when keymodel = startsel
- :50
+ 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
+ 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!
call assert_equal('y60', getline('.'))
" clean up
bw!
-endfu
+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 assert_equal('100', getline('.'))
" clean up
bw!
-endfu
+endfunc
func! Test_normal04_filter()
" basic filter test
" only test on non windows platform
- if has("win32") || has("win64") || has("win95")
+ if IsWindows()
return
endif
call Setup_NewWindow()
call assert_equal('one', getline('.'))
set cpo-=!
bw!
-endfu
+endfunc
func! Test_normal05_formatexpr()
" basic formatexpr test
call assert_equal(['here: 1->$', '2', 'here: 3->$', '4', 'not here: '], getline(1,'$'))
set formatexpr=
bw!
-endfu
+endfunc
func Test_normal05_formatexpr_newbuf()
" Edit another buffer in the 'formatexpr' function
func! Test_normal06_formatprg()
" basic test for formatprg
" only test on non windows platform
- if has("win32") || has("win64") || has("win95")
+ if IsWindows()
return
else
" uses sed to number non-empty lines
set formatprg=
call delete('Xsed_format.sh')
bw!
-endfu
+endfunc
func! Test_normal07_internalfmt()
" basic test for internal formmatter to textwidth of 12
" clean up
set formatprg= tw=0
bw!
-endfu
+endfunc
func! Test_normal08_fold()
" basic tests for foldopen/folddelete
" clean up
setl nofoldenable fdm=marker
bw!
-endfu
+endfunc
func! Test_normal09_operatorfunc()
" Test operatorfunc
unmap <buffer> ,,
set opfunc=
bw!
-endfu
+endfunc
func! Test_normal10_expand()
" Test for expand()
call assert_equal('ifooar,,cbar', b)
" clean up
bw!
-endfu
+endfunc
func! Test_normal11_showcmd()
" test for 'showcmd'
exe "norm! 0d3\<del>2l"
call assert_equal('obar2foobar3', getline('.'))
bw!
-endfu
+endfunc
func! Test_normal12_nv_error()
" Test for nv_error
exe "norm! <c-k>"
call assert_equal(map(range(1,5), 'string(v:val)'), getline(1,'$'))
bw!
-endfu
+endfunc
func! Test_normal13_help()
" Test for F1
call assert_match('help\.txt', bufname('%'))
call assert_equal(2, winnr('$'))
bw!
-endfu
+endfunc
func! Test_normal14_page()
" basic test for Ctrl-F and Ctrl-B
" cleanup
set startofline
bw!
-endfu
+endfunc
func! Test_normal14_page_eol()
10new
" cleanup
bw!
-endfu
+endfunc
func! Test_normal16_z_scroll_hor()
" basic test for z commands that scroll the window
" cleanup
set wrap listchars=eol:$
bw!
-endfu
+endfunc
func! Test_normal17_z_scroll_hor2()
" basic test for z commands that scroll the window
" cleanup
set wrap listchars=eol:$ sidescrolloff=0
bw!
-endfu
+endfunc
func! Test_normal18_z_fold()
" basic tests for foldopen/folddelete
" clean up
setl nofoldenable fdm=marker foldlevel=0
bw!
-endfu
+endfunc
func! Test_normal19_z_spell()
if !has("spell") || !has('syntax')
set spellfile=
bw!
-endfu
+endfunc
func! Test_normal20_exmode()
if !has("unix")
call delete(file)
endfor
bw!
-endfu
+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')
" clean up
set nohidden
bw!
-endfu
+endfunc
func! Test_normal22_zet()
" Test for ZZ
call delete(file)
endfor
" let &shell = shell
-endfu
+endfunc
func! Test_normal23_K()
" Test for K command
" clean up
let &keywordprg = k
bw!
-endfu
+endfunc
func! Test_normal24_rot13()
" This test uses multi byte characters
" clean up
bw!
-endfu
+endfunc
func! Test_normal25_tag()
" Testing for CTRL-] g CTRL-] g]
" clean up
helpclose
-endfu
+endfunc
func! Test_normal26_put()
" Test for ]p ]P [p and [P
" clean up
bw!
-endfu
+endfunc
func! Test_normal27_bracket()
" Test for [' [` ]' ]`
" clean up
bw!
-endfu
+endfunc
func! Test_normal28_parenthesis()
" basic testing for ( and )
" clean up
bw!
-endfu
+endfunc
fun! Test_normal29_brace()
" basic test for { and } movements
" clean up
set cpo-={
bw!
-endfu
+endfunc
fun! Test_normal30_changecase()
" This test uses multi byte characters
" clean up
bw!
-endfu
+endfunc
fun! Test_normal31_r_cmd()
" Test for r command
" clean up
set noautoindent
bw!
-endfu
+endfunc
func! Test_normal32_g_cmd1()
" Test for g*, g#
" clean up
bw!
-endfu
+endfunc
fun! Test_normal33_g_cmd2()
if !has("jumplist")
" clean up
bw!
-endfu
+endfunc
fun! Test_normal34_g_cmd3()
if !has("multi_byte")
call append(1, range(1,10))
" clean up
bw!
-endfu
+endfunc
fun! Test_normal35_g_cmd4()
" Test for g<
echo "a\nb\nc\nd"
let b=execute(':norm! g<')
call assert_true(!empty(b), 'failed `execute(g<)`')
-endfu
+endfunc
fun! Test_normal36_g_cmd5()
new
call assert_equal([0, 14, 1, 0, 2147483647], getcurpos())
" clean up
bw!
-endfu
+endfunc
fun! Test_normal37_g_cmd6()
" basic test for gt and gT
endfor
" clean up
call assert_fails(':tabclose', 'E784')
-endfu
+endfunc
fun! Test_normal38_nvhome()
" Test for <Home> and <C-Home> key
" clean up
bw!
-endfu
+endfunc
fun! Test_normal39_cw()
" Test for cw and cW on whitespace
" clean up
bw!
-endfu
+endfunc
fun! Test_normal40_ctrl_bsl()
" Basic test for CTRL-\ commands
" clean up
bw!
-endfu
+endfunc
fun! Test_normal41_insert_reg()
" Test for <c-r>=, <c-r><c-r>= and <c-r><c-o>=
" clean up
set sts=0 sw=8 ts=8
bw!
-endfu
+endfunc
func! Test_normal42_halfpage()
" basic test for Ctrl-D and Ctrl-U
" cleanup
set startofline
bw!
-endfu
+endfunc
fun! Test_normal43_textobject1()
" basic tests for text object aw
" clean up
bw!
-endfu
+endfunc
func! Test_normal44_textobjects2()
" basic testing for is and as text objects
" clean up
bw!
-endfu
+endfunc
func! Test_normal45_drop()
if !has("dnd")
" the ~ register is read only
call assert_fails(':let @~="1"', 'E354')
bw!
-endfu
+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
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!
-endfu
+endfunc
func! Test_normal47_visual_buf_wipe()
" This was causing a crash or ml_get error.
bw!
norm yp
set nomodified
-endfu
+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") || !has("vertsplit")
+ 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
+ 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
+ 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
projects / vim / commitdiff