neovim/test/old/testdir/test_virtualedit.vim
zeertzjq 457ab65ff3 vim-patch:9.0.1257: code style is not check in test scripts
Problem:    Code style is not check in test scripts.
Solution:   Add basic code style check for test files.

94722c5107

Use Test_test_files() from latest Vim.

Co-authored-by: Bram Moolenaar <Bram@vim.org>
2024-07-18 06:18:03 +08:00

736 lines
19 KiB
VimL
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

" Tests for 'virtualedit'.
func Test_yank_move_change()
new
call setline(1, [
\ "func foo() error {",
\ "\tif n, err := bar();",
\ "\terr != nil {",
\ "\t\treturn err",
\ "\t}",
\ "\tn = n * n",
\ ])
set virtualedit=all
set ts=4
function! MoveSelectionDown(count) abort
normal! m`
silent! exe "'<,'>move'>+".a:count
norm! ``
endfunction
xmap ]e :<C-U>call MoveSelectionDown(v:count1)<CR>
2
normal 2gg
normal J
normal jVj
normal ]e
normal ce
bwipe!
set virtualedit=
set ts=8
endfunc
func Test_paste_end_of_line()
new
set virtualedit=all
call setline(1, ['456', '123'])
normal! gg0"ay$
exe "normal! 2G$lllA\<C-O>:normal! \"agP\r"
call assert_equal('123456', getline(2))
bwipe!
set virtualedit=
endfunc
func Test_replace_end_of_line()
new
set virtualedit=all
call setline(1, range(20))
exe "normal! gg2jv10lr-"
call assert_equal(["1", "-----------", "3"], getline(2,4))
call setline(1, range(20))
exe "normal! gg2jv10lr\<c-k>hh"
call assert_equal(["1", "───────────", "3"], getline(2,4))
bwipe!
set virtualedit=
endfunc
func Test_edit_CTRL_G()
new
set virtualedit=insert
call setline(1, ['123', '1', '12'])
exe "normal! ggA\<c-g>jx\<c-g>jx"
call assert_equal(['123', '1 x', '12 x'], getline(1,'$'))
set virtualedit=all
%d_
call setline(1, ['1', '12'])
exe "normal! ggllix\<c-g>jx"
call assert_equal(['1 x', '12x'], getline(1,'$'))
bwipe!
set virtualedit=
endfunc
func Test_edit_change()
new
set virtualedit=all
call setline(1, "\t⒌")
normal Cx
call assert_equal('x', getline(1))
call setline(1, "\ta̳")
normal Cx
call assert_equal('x', getline(1))
call setline(1, "\tβ̳")
normal Cx
call assert_equal('x', getline(1))
if has('arabic')
call setline(1, "\tلا")
normal Cx
call assert_equal('x', getline(1))
endif
" Do a visual block change
call setline(1, ['a', 'b', 'c'])
exe "normal gg3l\<C-V>2jcx"
call assert_equal(['a x', 'b x', 'c x'], getline(1, '$'))
bwipe!
set virtualedit=
endfunc
func Test_edit_special_char()
new
se ve=all
norm a0
sil! exe "norm o00000\<Nul>k<a0s"
bwipe!
set virtualedit=
endfunc
" Tests for pasting at the beginning, end and middle of a tab character
" in virtual edit mode.
func Test_paste_in_tab()
new
call append(0, '')
set virtualedit=all
" Tests for pasting a register with characterwise mode type
call setreg('"', 'xyz', 'c')
" paste (p) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal p
call assert_equal('a xyz b', getline(1))
" paste (P) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal P
call assert_equal("axyz\tb", getline(1))
" paste (p) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal p
call assert_equal("a\txyzb", getline(1))
" paste (P) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal P
call assert_equal('a xyz b', getline(1))
" Tests for pasting a register with blockwise mode type
call setreg('"', 'xyz', 'b')
" paste (p) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal p
call assert_equal('a xyz b', getline(1))
" paste (P) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal P
call assert_equal("axyz\tb", getline(1))
" paste (p) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal p
call assert_equal("a\txyzb", getline(1))
" paste (P) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal P
call assert_equal('a xyz b', getline(1))
" Tests for pasting with gp and gP in virtual edit mode
" paste (gp) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal gp
call assert_equal('a xyz b', getline(1))
call assert_equal([0, 1, 12, 0, 12], getcurpos())
" paste (gP) unnamed register at the beginning of a tab
call setline(1, "a\tb")
call cursor(1, 2, 0)
normal gP
call assert_equal("axyz\tb", getline(1))
call assert_equal([0, 1, 5, 0, 5], getcurpos())
" paste (gp) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal gp
call assert_equal("a\txyzb", getline(1))
call assert_equal([0, 1, 6, 0, 12], getcurpos())
" paste (gP) unnamed register at the end of a tab
call setline(1, "a\tb")
call cursor(1, 2, 6)
normal gP
call assert_equal('a xyz b', getline(1))
call assert_equal([0, 1, 12, 0, 12], getcurpos())
" Tests for pasting a named register
let @r = 'xyz'
" paste (gp) named register in the middle of a tab
call setline(1, "a\tb")
call cursor(1, 2, 2)
normal "rgp
call assert_equal('a xyz b', getline(1))
call assert_equal([0, 1, 8, 0, 8], getcurpos())
" paste (gP) named register in the middle of a tab
call setline(1, "a\tb")
call cursor(1, 2, 2)
normal "rgP
call assert_equal('a xyz b', getline(1))
call assert_equal([0, 1, 7, 0, 7], getcurpos())
bwipe!
set virtualedit=
endfunc
" Test for yanking a few spaces within a tab to a register
func Test_yank_in_tab()
new
let @r = ''
call setline(1, "a\tb")
set virtualedit=all
call cursor(1, 2, 2)
normal "ry5l
call assert_equal(' ', @r)
bwipe!
set virtualedit=
endfunc
" Insert "keyword keyw", ESC, C CTRL-N, shows "keyword ykeyword".
" Repeating CTRL-N fixes it. (Mary Ellen Foster)
func Test_ve_completion()
new
set completeopt&vim
set virtualedit=all
exe "normal ikeyword keyw\<Esc>C\<C-N>"
call assert_equal('keyword keyword', getline(1))
bwipe!
set virtualedit=
endfunc
" Using "C" then <CR> moves the last remaining character to the next
" line. (Mary Ellen Foster)
func Test_ve_del_to_eol()
new
set virtualedit=all
call append(0, 'all your base are belong to us')
call search('are', 'w')
exe "normal C\<CR>are belong to vim"
call assert_equal(['all your base ', 'are belong to vim'], getline(1, 2))
bwipe!
set virtualedit=
endfunc
" When past the end of a line that ends in a single character "b" skips
" that word.
func Test_ve_b_past_eol()
new
set virtualedit=all
call append(0, '1 2 3 4 5 6')
normal gg^$15lbC7
call assert_equal('1 2 3 4 5 7', getline(1))
bwipe!
set virtualedit=
endfunc
" Make sure 'i', 'C', 'a', 'A' and 'D' works
func Test_ve_ins_del()
new
set virtualedit=all
call append(0, ["'i'", "'C'", "'a'", "'A'", "'D'"])
call cursor(1, 1)
normal $4lix
call assert_equal("'i' x", getline(1))
call cursor(2, 1)
normal $4lCx
call assert_equal("'C' x", getline(2))
call cursor(3, 1)
normal $4lax
call assert_equal("'a' x", getline(3))
call cursor(4, 1)
normal $4lAx
call assert_equal("'A'x", getline(4))
call cursor(5, 1)
normal $4lDix
call assert_equal("'D' x", getline(5))
bwipe!
set virtualedit=
endfunc
" Test for yank bug reported by Mark Waggoner.
func Test_yank_block()
new
set virtualedit=block
call append(0, repeat(['this is a test'], 3))
exe "normal gg^2w\<C-V>3jy"
call assert_equal("a\na\na\n ", @")
bwipe!
set virtualedit=
endfunc
" Test "r" beyond the end of the line
func Test_replace_after_eol()
new
set virtualedit=all
call append(0, '"r"')
normal gg$5lrxa
call assert_equal('"r" x', getline(1))
" visual block replace
%d _
call setline(1, ['a', '', 'b'])
exe "normal 2l\<C-V>2jrx"
call assert_equal(['a x', ' x', 'b x'], getline(1, '$'))
" visual characterwise selection replace after eol
%d _
call setline(1, 'a')
normal 4lv2lrx
call assert_equal('a xxx', getline(1))
bwipe!
set virtualedit=
endfunc
" Test "r" on a tab
" Note that for this test, 'ts' must be 8 (the default).
func Test_replace_on_tab()
new
set virtualedit=all
call append(0, "'r'\t")
normal gg^5lrxAy
call assert_equal("'r' x y", getline(1))
call setline(1, 'aaaaaaaaaaaa')
exe "normal! gg2lgR\<Tab>"
call assert_equal("aa\taaaa", getline(1))
bwipe!
set virtualedit=
endfunc
" Test to make sure 'x' can delete control characters
func Test_ve_del_ctrl_chars()
new
set virtualedit=all
call append(0, "a\<C-V>b\<CR>sd")
set display=uhex
normal gg^xxxxxxi[text]
set display=
call assert_equal('[text]', getline(1))
bwipe!
set virtualedit=
endfunc
" Test for ^Y/^E due to bad w_virtcol value, reported by
" Roy <royl@netropolis.net>.
func Test_ins_copy_char()
new
set virtualedit=all
call append(0, 'abcv8efi.him2kl')
exe "normal gg^O\<Esc>3li\<C-E>\<Esc>4li\<C-E>\<Esc>4li\<C-E> <--"
exe "normal j^o\<Esc>4li\<C-Y>\<Esc>4li\<C-Y>\<Esc>4li\<C-Y> <--"
call assert_equal(' v i m <--', getline(1))
call assert_equal(' 8 . 2 <--', getline(3))
bwipe!
set virtualedit=
endfunc
" Test for yanking and pasting using the small delete register
func Test_yank_paste_small_del_reg()
new
set virtualedit=all
call append(0, "foo, bar")
normal ggdewve"-p
call assert_equal(', foo', getline(1))
bwipe!
set virtualedit=
endfunc
" Test for delete that breaks a tab into spaces
func Test_delete_break_tab()
new
call setline(1, "one\ttwo")
set virtualedit=all
normal v3ld
call assert_equal(' two', getline(1))
set virtualedit&
close!
endfunc
" Test for using <BS>, <C-W> and <C-U> in virtual edit mode
" to erase character, word and line.
func Test_ve_backspace()
new
call setline(1, 'sample')
set virtualedit=all
set backspace=indent,eol,start
exe "normal 15|i\<BS>\<BS>"
call assert_equal([0, 1, 7, 5], getpos('.'))
exe "normal 15|i\<C-W>"
call assert_equal([0, 1, 6, 0], getpos('.'))
exe "normal 15|i\<C-U>"
call assert_equal([0, 1, 1, 0], getpos('.'))
set backspace&
set virtualedit&
close!
endfunc
" Test for delete (x) on EOL character and after EOL
func Test_delete_past_eol()
new
call setline(1, "ab")
set virtualedit=all
exe "normal 2lx"
call assert_equal('ab', getline(1))
exe "normal 10lx"
call assert_equal('ab', getline(1))
set virtualedit&
bw!
endfunc
" After calling s:TryVirtualeditReplace(), line 1 will contain one of these
" two strings, depending on whether virtual editing is on or off.
let s:result_ve_on = 'a x'
let s:result_ve_off = 'x'
" Utility function for Test_global_local_virtualedit()
func s:TryVirtualeditReplace()
call setline(1, 'a')
normal gg7l
normal rx
endfunc
" Test for :set and :setlocal
func Test_global_local_virtualedit()
new
" Verify that 'virtualedit' is initialized to empty, can be set globally to
" all and to empty, and can be set locally to all and to empty.
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
set ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
set ve=
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
" Verify that :set affects multiple windows.
split
set ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
wincmd p
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
set ve=
wincmd p
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
bwipe!
" Verify that :setlocal affects only the current window.
new
split
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
wincmd p
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
bwipe!
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
" Verify that the buffer 'virtualedit' state follows the global value only
" when empty and that "none" works as expected.
"
" 'virtualedit' State
" +--------+--------------------------+
" | Local | Global |
" | | |
" +--------+--------+--------+--------+
" | | "" | "all" | "none" |
" +--------+--------+--------+--------+
" | "" | off | on | off |
" | "all" | on | on | on |
" | "none" | off | off | off |
" +--------+--------+--------+--------+
new
setglobal ve=
setlocal ve=
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=none
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setglobal ve=all
setlocal ve=
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=none
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setlocal ve=NONE
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setglobal ve=none
setlocal ve=
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=none
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
bwipe!
" Verify that the 'virtualedit' state is copied to new windows.
new
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
split
setlocal ve=all
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
split
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_on, getline(1))
setlocal ve=
split
call s:TryVirtualeditReplace()
call assert_equal(s:result_ve_off, getline(1))
bwipe!
setlocal virtualedit&
set virtualedit&
endfunc
func Test_virtualedit_setlocal()
enew
setglobal virtualedit=all
setlocal virtualedit=all
normal! l
redraw
setlocal virtualedit=none
call assert_equal(1, wincol())
setlocal virtualedit&
set virtualedit&
endfunc
func Test_virtualedit_mouse()
let save_mouse = &mouse
set mouse=a
set virtualedit=all
botright new
let row = win_screenpos(0)[0]
20vsplit
wincmd p
call setline(1, ["text\tword"])
redraw
call Ntest_setmouse(row, 21 + 4)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 4, 0, 4], getcurpos())
call Ntest_setmouse(row, 21 + 5)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 5, 0, 5], getcurpos())
call Ntest_setmouse(row, 21 + 6)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 5, 1, 6], getcurpos())
call Ntest_setmouse(row, 21 + 7)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 5, 2, 7], getcurpos())
call Ntest_setmouse(row, 21 + 8)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 5, 3, 8], getcurpos())
call Ntest_setmouse(row, 21 + 9)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 6, 0, 9], getcurpos())
call Ntest_setmouse(row, 21 + 12)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 9, 0, 12], getcurpos())
call Ntest_setmouse(row, 21 + 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 0, 13], getcurpos())
call Ntest_setmouse(row, 21 + 15)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 2, 15], getcurpos())
call Ntest_setmouse(row, 21 + 20)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 7, 20], getcurpos())
setlocal nowrap
call setline(2, repeat('a', 19))
normal! j14zl
redraw
call Ntest_setmouse(row, 21 + 1)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 2, 15], getcurpos())
call Ntest_setmouse(row, 21 + 11)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 12, 25], getcurpos())
call Ntest_setmouse(row + 1, 21 + 1)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 15, 0, 15], getcurpos())
call Ntest_setmouse(row + 1, 21 + 11)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 20, 5, 25], getcurpos())
setlocal number numberwidth=2
redraw
call Ntest_setmouse(row, 21 + 3)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 2, 15], getcurpos())
call Ntest_setmouse(row, 21 + 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 12, 25], getcurpos())
call Ntest_setmouse(row + 1, 21 + 3)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 15, 0, 15], getcurpos())
call Ntest_setmouse(row + 1, 21 + 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 20, 5, 25], getcurpos())
setlocal nonumber
if has('signs')
sign define Sign1 text=
sign place 1 name=Sign1 line=1
sign place 2 name=Sign1 line=2
redraw
call Ntest_setmouse(row, 21 + 3)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 2, 15], getcurpos())
call Ntest_setmouse(row, 21 + 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 10, 12, 25], getcurpos())
call Ntest_setmouse(row + 1, 21 + 3)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 15, 0, 15], getcurpos())
call Ntest_setmouse(row + 1, 21 + 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 2, 20, 5, 25], getcurpos())
sign unplace 1
sign unplace 2
sign undefine Sign1
endif
wincmd h
4wincmd >
normal! gg24I.
redraw
call Ntest_setmouse(row + 1, 12)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 24 + 9, 0, 24 + 12], getcurpos())
call Ntest_setmouse(row + 1, 13)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 24 + 10, 0, 24 + 13], getcurpos())
call Ntest_setmouse(row + 1, 15)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 24 + 10, 2, 24 + 15], getcurpos())
call Ntest_setmouse(row + 1, 20)
call feedkeys("\<LeftMouse>", "xt")
call assert_equal([0, 1, 24 + 10, 7, 24 + 20], getcurpos())
bwipe!
let &mouse = save_mouse
set virtualedit&
endfunc
" this was replacing the NUL at the end of the line
func Test_virtualedit_replace_after_tab()
new
s/\v/ 0
set ve=all
let @" = ''
sil! norm vPvr0
call assert_equal("\t0", getline(1))
set ve&
bwipe!
endfunc
" Test that setpos('.') and cursor() behave the same for v:maxcol
func Test_virtualedit_set_cursor_pos_maxcol()
new
set virtualedit=all
call setline(1, 'foobar')
exe "normal! V\<Esc>"
call assert_equal([0, 1, 1, 0], getpos("'<"))
call assert_equal([0, 1, v:maxcol, 0], getpos("'>"))
let pos = getpos("'>")
call cursor(1, 1)
call setpos('.', pos)
call assert_equal([0, 1, 7, 0], getpos('.'))
call cursor(1, 1)
call cursor(pos[1:])
call assert_equal([0, 1, 7, 0], getpos('.'))
set virtualedit&
bwipe!
endfunc
" vim: shiftwidth=2 sts=2 expandtab