IntenseFinance/neovim
3
0
Fork 0
mirror of https://github.com/neovim/neovim.git synced 2025-02-25 18:55:25 -06:00
Code Issues Packages Projects Releases Wiki Activity

vim-patch:9.1.0144: getregion() needs more tests (#27681)

Browse Source 
Problem:  getregion() needs more tests
Solution: Run the getregion() test in both the legacy and Vim9 contexts
          (Yegappan Lakshmanan)

closes: vim/vim#14114

4d55c54e30

Co-authored-by: Yegappan Lakshmanan <yegappan@yahoo.com>
This commit is contained in:
zeertzjq 2024-03-01 06:09:20 +08:00 committed by GitHub
parent 41f2cbe171
commit 57e5b9f4ea
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 254 additions and 235 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

177
test/old/testdir/test_visual.vim
View File

@ -3,6 +3,7 @@
source shared.vim
source check.vim
source screendump.vim
source vim9.vim
func Test_block_shift_multibyte()
" Uses double-wide character.
@ -1635,11 +1636,12 @@ func Test_visual_substitute_visual()
endfunc
func Test_visual_getregion()
let lines =<< trim END
new
call setline(1, ['one', 'two', 'three'])
" Visual mode
#" Visual mode
call cursor(1, 1)
call feedkeys("\<ESC>vjl", 'tx')
call assert_equal(['one', 'tw'],
@ -1649,119 +1651,123 @@ func Test_visual_getregion()
call assert_equal(['o'],
\ 'v'->getpos()->getregion(getpos('v')))
call assert_equal(['w'],
\ '.'->getpos()->getregion(getpos('.'), #{ type: 'v' }))
\ '.'->getpos()->getregion(getpos('.'), {'type': 'v' }))
call assert_equal(['one', 'two'],
\ getpos('.')->getregion(getpos('v'), #{ type: 'V' }))
\ getpos('.')->getregion(getpos('v'), {'type': 'V' }))
call assert_equal(['on', 'tw'],
\ getpos('.')->getregion(getpos('v'), #{ type: "\<C-v>" }))
\ getpos('.')->getregion(getpos('v'), {'type': "\<C-v>" }))
" Line visual mode
#" Line visual mode
call cursor(1, 1)
call feedkeys("\<ESC>Vl", 'tx')
call assert_equal(['one'],
\ getregion(getpos('v'), getpos('.'), #{ type: 'V' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'V' }))
call assert_equal(['one'],
\ getregion(getpos('.'), getpos('v'), #{ type: 'V' }))
\ getregion(getpos('.'), getpos('v'), {'type': 'V' }))
call assert_equal(['one'],
\ getregion(getpos('v'), getpos('v'), #{ type: 'V' }))
\ getregion(getpos('v'), getpos('v'), {'type': 'V' }))
call assert_equal(['one'],
\ getregion(getpos('.'), getpos('.'), #{ type: 'V' }))
\ getregion(getpos('.'), getpos('.'), {'type': 'V' }))
call assert_equal(['on'],
\ getpos('.')->getregion(getpos('v'), #{ type: 'v' }))
\ getpos('.')->getregion(getpos('v'), {'type': 'v' }))
call assert_equal(['on'],
\ getpos('.')->getregion(getpos('v'), #{ type: "\<C-v>" }))
\ getpos('.')->getregion(getpos('v'), {'type': "\<C-v>" }))
" Block visual mode
#" Block visual mode
call cursor(1, 1)
call feedkeys("\<ESC>\<C-v>ll", 'tx')
call assert_equal(['one'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call assert_equal(['one'],
\ getregion(getpos('.'), getpos('v'), #{ type: "\<C-v>" }))
\ getregion(getpos('.'), getpos('v'), {'type': "\<C-v>" }))
call assert_equal(['o'],
\ getregion(getpos('v'), getpos('v'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('v'), {'type': "\<C-v>" }))
call assert_equal(['e'],
\ getregion(getpos('.'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('.'), getpos('.'), {'type': "\<C-v>" }))
call assert_equal(['one'],
\ '.'->getpos()->getregion(getpos('v'), #{ type: 'V' }))
\ '.'->getpos()->getregion(getpos('v'), {'type': 'V' }))
call assert_equal(['one'],
\ '.'->getpos()->getregion(getpos('v'), #{ type: 'v' }))
\ '.'->getpos()->getregion(getpos('v'), {'type': 'v' }))
" Using Marks
#" Using Marks
call setpos("'a", [0, 2, 3, 0])
call cursor(1, 1)
call assert_equal(['one', 'two'],
\ "'a"->getpos()->getregion(getpos('.'), #{ type: 'v' }))
\ "'a"->getpos()->getregion(getpos('.'), {'type': 'v' }))
call assert_equal(['one', 'two'],
\ "."->getpos()->getregion(getpos("'a"), #{ type: 'v' }))
\ "."->getpos()->getregion(getpos("'a"), {'type': 'v' }))
call assert_equal(['one', 'two'],
\ "."->getpos()->getregion(getpos("'a"), #{ type: 'V' }))
\ "."->getpos()->getregion(getpos("'a"), {'type': 'V' }))
call assert_equal(['two'],
\ "'a"->getpos()->getregion(getpos("'a"), #{ type: 'V' }))
\ "'a"->getpos()->getregion(getpos("'a"), {'type': 'V' }))
call assert_equal(['one', 'two'],
\ "."->getpos()->getregion(getpos("'a"), #{ type: "\<c-v>" }))
\ "."->getpos()->getregion(getpos("'a"), {'type': "\<c-v>" }))
" Using List
#" Using List
call cursor(1, 1)
call assert_equal(['one', 'two'],
\ [0, 2, 3, 0]->getregion(getpos('.'), #{ type: 'v' }))
\ [0, 2, 3, 0]->getregion(getpos('.'), {'type': 'v' }))
call assert_equal(['one', 'two'],
\ '.'->getpos()->getregion([0, 2, 3, 0], #{ type: 'v' }))
\ '.'->getpos()->getregion([0, 2, 3, 0], {'type': 'v' }))
call assert_equal(['one', 'two'],
\ '.'->getpos()->getregion([0, 2, 3, 0], #{ type: 'V' }))
\ '.'->getpos()->getregion([0, 2, 3, 0], {'type': 'V' }))
call assert_equal(['two'],
\ [0, 2, 3, 0]->getregion([0, 2, 3, 0], #{ type: 'V' }))
\ [0, 2, 3, 0]->getregion([0, 2, 3, 0], {'type': 'V' }))
call assert_equal(['one', 'two'],
\ '.'->getpos()->getregion([0, 2, 3, 0], #{ type: "\<c-v>" }))
\ '.'->getpos()->getregion([0, 2, 3, 0], {'type': "\<c-v>" }))
" Multiline with line visual mode
#" Multiline with line visual mode
call cursor(1, 1)
call feedkeys("\<ESC>Vjj", 'tx')
call assert_equal(['one', 'two', 'three'],
\ getregion(getpos('v'), getpos('.'), #{ type: 'V' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'V' }))
" Multiline with block visual mode
#" Multiline with block visual mode
call cursor(1, 1)
call feedkeys("\<ESC>\<C-v>jj", 'tx')
call assert_equal(['o', 't', 't'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<ESC>\<C-v>jj$", 'tx')
call assert_equal(['one', 'two', 'three'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
" 'virtualedit'
#" 'virtualedit'
set virtualedit=all
call cursor(1, 1)
call feedkeys("\<ESC>\<C-v>10ljj$", 'tx')
call assert_equal(['one ', 'two ', 'three '],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
set virtualedit&
" Invalid position
#" Invalid position
call cursor(1, 1)
call feedkeys("\<ESC>vjj$", 'tx')
call assert_fails("call getregion(1, 2)", 'E1211:')
call assert_fails("call getregion(getpos('.'), {})", 'E1211:')
call assert_equal([], getregion(getpos('.'), getpos('.'), #{ type: '' }))
call assert_equal([], getregion(getpos('.'), getpos('.'), {'type': '' }))
" using the wrong type
#" using the wrong type
call assert_fails(':echo "."->getpos()->getregion("$", [])', 'E1211:')
" using a mark in another buffer
#" using a mark in another buffer
new
let newbuf = bufnr()
VAR newbuf = bufnr()
call setline(1, range(10))
normal! GmA
wincmd p
call assert_equal([newbuf, 10, 1, 0], getpos("'A"))
call assert_equal([], getregion(getpos('.'), getpos("'A"), #{ type: 'v' }))
call assert_equal([], getregion(getpos("'A"), getpos('.'), #{ type: 'v' }))
exe newbuf .. 'bwipe!'
call assert_equal([], getregion(getpos('.'), getpos("'A"), {'type': 'v' }))
call assert_equal([], getregion(getpos("'A"), getpos('.'), {'type': 'v' }))
exe $':{newbuf}bwipe!'
END
call CheckLegacyAndVim9Success(lines)
bwipe!
" Selection in starts or ends in the middle of a multibyte character
let lines =<< trim END
#" Selection in starts or ends in the middle of a multibyte character
new
call setline(1, [
\ "abcdefghijk\u00ab",
@ -1771,125 +1777,138 @@ func Test_visual_getregion()
call cursor(1, 3)
call feedkeys("\<Esc>\<C-v>ljj", 'xt')
call assert_equal(['cd', "\u00ab ", '34'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 4)
call feedkeys("\<Esc>\<C-v>ljj", 'xt')
call assert_equal(['de', "\U0001f1e7", '45'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 5)
call feedkeys("\<Esc>\<C-v>jj", 'xt')
call assert_equal(['e', ' ', '5'],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<Esc>vj", 'xt')
call assert_equal(['abcdefghijk«', "\U0001f1e6"],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
" marks on multibyte chars
set selection=exclusive
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
#" marks on multibyte chars
:set selection=exclusive
call setpos("'a", [0, 1, 11, 0])
call setpos("'b", [0, 2, 16, 0])
call setpos("'c", [0, 2, 0, 0])
call cursor(1, 1)
call assert_equal(['ghijk', '🇨«🇩'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: "\<c-v>" }))
\ getregion(getpos("'a"), getpos("'b"), {'type': "\<c-v>" }))
call assert_equal(['k«', '🇦«🇧«🇨'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: 'v' }))
\ getregion(getpos("'a"), getpos("'b"), {'type': 'v' }))
call assert_equal(['k«'],
\ getregion(getpos("'a"), getpos("'c"), #{ type: 'v' }))
\ getregion(getpos("'a"), getpos("'c"), {'type': 'v' }))
" use inclusive selection, although 'selection' is exclusive
#" use inclusive selection, although 'selection' is exclusive
call setpos("'a", [0, 1, 11, 0])
call setpos("'b", [0, 1, 1, 0])
call assert_equal(['abcdefghijk'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: "\<c-v>", exclusive: v:false }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': "\<c-v>", 'exclusive': v:false }))
call assert_equal(['abcdefghij'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: "\<c-v>", exclusive: v:true }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': "\<c-v>", 'exclusive': v:true }))
call assert_equal(['abcdefghijk'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: 'v', exclusive: 0 }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': 'v', 'exclusive': 0 }))
call assert_equal(['abcdefghij'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: 'v', exclusive: 1 }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': 'v', 'exclusive': 1 }))
call assert_equal(['abcdefghijk«'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: 'V', exclusive: 0 }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': 'V', 'exclusive': 0 }))
call assert_equal(['abcdefghijk«'],
\ getregion(getpos("'a"), getpos("'b"), #{ type: 'V', exclusive: 1 }))
\ getregion(getpos("'a"), getpos("'b"),
\ {'type': 'V', 'exclusive': 1 }))
:set selection&
END
call CheckLegacyAndVim9Success(lines)
bwipe!
" Exclusive selection
let lines =<< trim END
#" Exclusive selection
new
set selection=exclusive
call setline(1, ["a\tc", "x\tz", '', ''])
call cursor(1, 1)
call feedkeys("\<Esc>v2l", 'xt')
call assert_equal(["a\t"],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
call cursor(1, 1)
call feedkeys("\<Esc>v$G", 'xt')
call assert_equal(["a\tc", "x\tz", ''],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
call cursor(1, 1)
call feedkeys("\<Esc>v$j", 'xt')
call assert_equal(["a\tc", "x\tz"],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
call cursor(1, 1)
call feedkeys("\<Esc>\<C-v>$j", 'xt')
call assert_equal(["a\tc", "x\tz"],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<Esc>\<C-v>$G", 'xt')
call assert_equal(["a", "x", '', ''],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<Esc>wv2j", 'xt')
call assert_equal(["c", "x\tz"],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
set selection&
" Exclusive selection 2
#" Exclusive selection 2
new
call setline(1, ["a\tc", "x\tz", '', ''])
call cursor(1, 1)
call feedkeys("\<Esc>v2l", 'xt')
call assert_equal(["a\t"],
\ getregion(getpos('v'), getpos('.'), #{ exclusive: v:true }))
\ getregion(getpos('v'), getpos('.'), {'exclusive': v:true }))
call cursor(1, 1)
call feedkeys("\<Esc>v$G", 'xt')
call assert_equal(["a\tc", "x\tz", ''],
\ getregion(getpos('v'), getpos('.'), #{ exclusive: v:true }))
\ getregion(getpos('v'), getpos('.'), {'exclusive': v:true }))
call cursor(1, 1)
call feedkeys("\<Esc>v$j", 'xt')
call assert_equal(["a\tc", "x\tz"],
\ getregion(getpos('v'), getpos('.'), #{ exclusive: v:true }))
\ getregion(getpos('v'), getpos('.'), {'exclusive': v:true }))
call cursor(1, 1)
call feedkeys("\<Esc>\<C-v>$j", 'xt')
call assert_equal(["a\tc", "x\tz"],
\ getregion(getpos('v'), getpos('.'),
\ #{ exclusive: v:true, type: "\<C-v>" }))
\ {'exclusive': v:true, 'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<Esc>\<C-v>$G", 'xt')
call assert_equal(["a", "x", '', ''],
\ getregion(getpos('v'), getpos('.'),
\ #{ exclusive: v:true, type: "\<C-v>" }))
\ {'exclusive': v:true, 'type': "\<C-v>" }))
call cursor(1, 1)
call feedkeys("\<Esc>wv2j", 'xt')
call assert_equal(["c", "x\tz"],
\ getregion(getpos('v'), getpos('.'), #{ exclusive: v:true }))
\ getregion(getpos('v'), getpos('.'), {'exclusive': v:true }))
" virtualedit
#" virtualedit
set selection=exclusive
set virtualedit=all
call cursor(1, 1)
call feedkeys("\<Esc>2lv2lj", 'xt')
call assert_equal([' c', 'x '],
\ getregion(getpos('v'), getpos('.'), #{ type: 'v' }))
\ getregion(getpos('v'), getpos('.'), {'type': 'v' }))
call cursor(1, 1)
call feedkeys("\<Esc>2l\<C-v>2l2j", 'xt')
call assert_equal([' ', ' ', ' '],
\ getregion(getpos('v'), getpos('.'), #{ type: "\<C-v>" }))
\ getregion(getpos('v'), getpos('.'), {'type': "\<C-v>" }))
set virtualedit&
set selection&
bwipe!
END
call CheckLegacyAndVim9Success(lines)
endfunc
" vim: shiftwidth=2 sts=2 expandtab