2022-02-05 13:46:16 -07:00
|
|
|
" Tests for cursor() and other functions that get/set the cursor position
|
2016-04-18 11:58:18 -07:00
|
|
|
|
|
|
|
func Test_wrong_arguments()
|
2017-06-05 20:41:46 -07:00
|
|
|
call assert_fails('call cursor(1. 3)', 'E474:')
|
2016-04-18 11:58:18 -07:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_move_cursor()
|
|
|
|
new
|
|
|
|
call setline(1, ['aaa', 'bbb', 'ccc', 'ddd'])
|
|
|
|
|
|
|
|
call cursor([1, 1, 0, 1])
|
|
|
|
call assert_equal([1, 1, 0, 1], getcurpos()[1:])
|
|
|
|
call cursor([4, 3, 0, 3])
|
|
|
|
call assert_equal([4, 3, 0, 3], getcurpos()[1:])
|
|
|
|
|
|
|
|
call cursor(2, 2)
|
2016-04-18 12:06:04 -07:00
|
|
|
call assert_equal([2, 2, 0, 2], getcurpos()[1:])
|
2016-04-18 11:58:18 -07:00
|
|
|
" line number zero keeps the line number
|
|
|
|
call cursor(0, 1)
|
2016-04-18 12:06:04 -07:00
|
|
|
call assert_equal([2, 1, 0, 1], getcurpos()[1:])
|
2016-04-18 11:58:18 -07:00
|
|
|
" col number zero keeps the column
|
|
|
|
call cursor(3, 0)
|
2016-04-18 12:06:04 -07:00
|
|
|
call assert_equal([3, 1, 0, 1], getcurpos()[1:])
|
2016-04-18 11:58:18 -07:00
|
|
|
" below last line goes to last line
|
|
|
|
call cursor(9, 1)
|
2016-04-18 12:06:04 -07:00
|
|
|
call assert_equal([4, 1, 0, 1], getcurpos()[1:])
|
2016-04-18 11:58:18 -07:00
|
|
|
|
2021-08-27 14:07:34 -07:00
|
|
|
call setline(1, ["\<TAB>"])
|
|
|
|
call cursor(1, 1, 1)
|
|
|
|
call assert_equal([1, 1, 1], getcurpos()[1:3])
|
|
|
|
|
|
|
|
call assert_equal(-1, cursor(-1, -1))
|
|
|
|
|
2016-04-18 11:58:18 -07:00
|
|
|
quit!
|
|
|
|
endfunc
|
2016-04-18 12:06:04 -07:00
|
|
|
|
|
|
|
" Very short version of what matchparen does.
|
|
|
|
function s:Highlight_Matching_Pair()
|
|
|
|
let save_cursor = getcurpos()
|
2021-10-31 11:10:46 -07:00
|
|
|
eval save_cursor->setpos('.')
|
2016-04-18 12:06:04 -07:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_curswant_with_autocommand()
|
|
|
|
new
|
|
|
|
call setline(1, ['func()', '{', '}', '----'])
|
|
|
|
autocmd! CursorMovedI * call s:Highlight_Matching_Pair()
|
|
|
|
exe "normal! 3Ga\<Down>X\<Esc>"
|
|
|
|
call assert_equal('-X---', getline(4))
|
|
|
|
autocmd! CursorMovedI *
|
|
|
|
quit!
|
|
|
|
endfunc
|
|
|
|
|
2019-07-20 05:12:56 -07:00
|
|
|
" Tests for behavior of curswant with cursorcolumn/line
|
|
|
|
func Test_curswant_with_cursorcolumn()
|
|
|
|
new
|
|
|
|
call setline(1, ['01234567', ''])
|
|
|
|
exe "normal! ggf6j"
|
|
|
|
call assert_equal(6, winsaveview().curswant)
|
|
|
|
set cursorcolumn
|
|
|
|
call assert_equal(6, winsaveview().curswant)
|
|
|
|
quit!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_curswant_with_cursorline()
|
|
|
|
new
|
|
|
|
call setline(1, ['01234567', ''])
|
|
|
|
exe "normal! ggf6j"
|
|
|
|
call assert_equal(6, winsaveview().curswant)
|
|
|
|
set cursorline
|
|
|
|
call assert_equal(6, winsaveview().curswant)
|
|
|
|
quit!
|
|
|
|
endfunc
|
2019-07-08 06:16:17 -07:00
|
|
|
|
|
|
|
func Test_screenpos()
|
2019-12-18 05:57:40 -07:00
|
|
|
throw 'skipped: TODO: '
|
2019-07-08 06:16:17 -07:00
|
|
|
rightbelow new
|
|
|
|
rightbelow 20vsplit
|
|
|
|
call setline(1, ["\tsome text", "long wrapping line here", "next line"])
|
|
|
|
redraw
|
|
|
|
let winid = win_getid()
|
|
|
|
let [winrow, wincol] = win_screenpos(winid)
|
|
|
|
call assert_equal({'row': winrow,
|
|
|
|
\ 'col': wincol + 0,
|
|
|
|
\ 'curscol': wincol + 7,
|
2021-11-01 09:26:19 -07:00
|
|
|
\ 'endcol': wincol + 7}, winid->screenpos(1, 1))
|
2019-07-08 06:16:17 -07:00
|
|
|
call assert_equal({'row': winrow,
|
|
|
|
\ 'col': wincol + 13,
|
|
|
|
\ 'curscol': wincol + 13,
|
2021-10-31 09:41:39 -07:00
|
|
|
\ 'endcol': wincol + 13}, winid->screenpos(1, 7))
|
2019-07-08 06:16:17 -07:00
|
|
|
call assert_equal({'row': winrow + 2,
|
|
|
|
\ 'col': wincol + 1,
|
|
|
|
\ 'curscol': wincol + 1,
|
|
|
|
\ 'endcol': wincol + 1}, screenpos(winid, 2, 22))
|
|
|
|
setlocal number
|
|
|
|
call assert_equal({'row': winrow + 3,
|
|
|
|
\ 'col': wincol + 9,
|
|
|
|
\ 'curscol': wincol + 9,
|
|
|
|
\ 'endcol': wincol + 9}, screenpos(winid, 2, 22))
|
|
|
|
close
|
|
|
|
bwipe!
|
2021-03-08 18:57:58 -07:00
|
|
|
|
|
|
|
call assert_equal({'col': 1, 'row': 1, 'endcol': 1, 'curscol': 1}, screenpos(win_getid(), 1, 1))
|
|
|
|
nmenu WinBar.TEST :
|
|
|
|
call assert_equal({'col': 1, 'row': 2, 'endcol': 1, 'curscol': 1}, screenpos(win_getid(), 1, 1))
|
|
|
|
nunmenu WinBar.TEST
|
2019-07-08 06:16:17 -07:00
|
|
|
endfunc
|
2020-05-17 14:33:27 -07:00
|
|
|
|
|
|
|
func Test_screenpos_number()
|
|
|
|
rightbelow new
|
|
|
|
rightbelow 73vsplit
|
|
|
|
call setline (1, repeat('x', 66))
|
|
|
|
setlocal number
|
|
|
|
redraw
|
|
|
|
let winid = win_getid()
|
|
|
|
let [winrow, wincol] = win_screenpos(winid)
|
|
|
|
let pos = screenpos(winid, 1, 66)
|
|
|
|
call assert_equal(winrow, pos.row)
|
|
|
|
call assert_equal(wincol + 66 + 3, pos.col)
|
|
|
|
close
|
|
|
|
bwipe!
|
|
|
|
endfunc
|
2022-02-05 13:46:16 -07:00
|
|
|
|
|
|
|
func SaveVisualStartCharPos()
|
|
|
|
call add(g:VisualStartPos, getcharpos('v'))
|
|
|
|
return ''
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for the getcharpos() function
|
|
|
|
func Test_getcharpos()
|
|
|
|
call assert_fails('call getcharpos({})', 'E731:')
|
|
|
|
call assert_equal([0, 0, 0, 0], getcharpos(0))
|
|
|
|
new
|
|
|
|
call setline(1, ['', "01\tà4è678", 'Ⅵ', '012345678'])
|
|
|
|
|
|
|
|
" Test for '.' and '$'
|
|
|
|
normal 1G
|
|
|
|
call assert_equal([0, 1, 1, 0], getcharpos('.'))
|
|
|
|
call assert_equal([0, 4, 1, 0], getcharpos('$'))
|
|
|
|
normal 2G6l
|
|
|
|
call assert_equal([0, 2, 7, 0], getcharpos('.'))
|
|
|
|
normal 3G$
|
|
|
|
call assert_equal([0, 3, 1, 0], getcharpos('.'))
|
|
|
|
normal 4G$
|
|
|
|
call assert_equal([0, 4, 9, 0], getcharpos('.'))
|
|
|
|
|
|
|
|
" Test for a mark
|
|
|
|
normal 2G7lmmgg
|
|
|
|
call assert_equal([0, 2, 8, 0], getcharpos("'m"))
|
|
|
|
delmarks m
|
|
|
|
call assert_equal([0, 0, 0, 0], getcharpos("'m"))
|
|
|
|
|
|
|
|
" Test for the visual start column
|
|
|
|
vnoremap <expr> <F3> SaveVisualStartCharPos()
|
|
|
|
let g:VisualStartPos = []
|
|
|
|
exe "normal 2G6lv$\<F3>ohh\<F3>o\<F3>"
|
|
|
|
call assert_equal([[0, 2, 7, 0], [0, 2, 9, 0], [0, 2, 5, 0]], g:VisualStartPos)
|
|
|
|
call assert_equal([0, 2, 9, 0], getcharpos('v'))
|
|
|
|
let g:VisualStartPos = []
|
|
|
|
exe "normal 3Gv$\<F3>o\<F3>"
|
|
|
|
call assert_equal([[0, 3, 1, 0], [0, 3, 1, 0]], g:VisualStartPos)
|
|
|
|
let g:VisualStartPos = []
|
|
|
|
exe "normal 1Gv$\<F3>o\<F3>"
|
|
|
|
call assert_equal([[0, 1, 1, 0], [0, 1, 1, 0]], g:VisualStartPos)
|
|
|
|
vunmap <F3>
|
|
|
|
|
|
|
|
%bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for the setcharpos() function
|
|
|
|
func Test_setcharpos()
|
|
|
|
call assert_equal(-1, setcharpos('.', v:_null_list))
|
|
|
|
new
|
|
|
|
call setline(1, ['', "01\tà4è678", 'Ⅵ', '012345678'])
|
|
|
|
call setcharpos('.', [0, 1, 1, 0])
|
|
|
|
call assert_equal([1, 1], [line('.'), col('.')])
|
|
|
|
call setcharpos('.', [0, 2, 7, 0])
|
|
|
|
call assert_equal([2, 9], [line('.'), col('.')])
|
|
|
|
call setcharpos('.', [0, 3, 4, 0])
|
|
|
|
call assert_equal([3, 1], [line('.'), col('.')])
|
|
|
|
call setcharpos('.', [0, 3, 1, 0])
|
|
|
|
call assert_equal([3, 1], [line('.'), col('.')])
|
|
|
|
call setcharpos('.', [0, 4, 0, 0])
|
|
|
|
call assert_equal([4, 1], [line('.'), col('.')])
|
|
|
|
call setcharpos('.', [0, 4, 20, 0])
|
|
|
|
call assert_equal([4, 9], [line('.'), col('.')])
|
|
|
|
|
|
|
|
" Test for mark
|
|
|
|
delmarks m
|
|
|
|
call setcharpos("'m", [0, 2, 9, 0])
|
|
|
|
normal `m
|
|
|
|
call assert_equal([2, 11], [line('.'), col('.')])
|
|
|
|
|
|
|
|
%bw!
|
|
|
|
call assert_equal(-1, setcharpos('.', [10, 3, 1, 0]))
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func SaveVisualStartCharCol()
|
|
|
|
call add(g:VisualStartCol, charcol('v'))
|
|
|
|
return ''
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for the charcol() function
|
|
|
|
func Test_charcol()
|
|
|
|
call assert_fails('call charcol({})', 'E731:')
|
|
|
|
call assert_equal(0, charcol(0))
|
|
|
|
new
|
|
|
|
call setline(1, ['', "01\tà4è678", 'Ⅵ', '012345678'])
|
|
|
|
|
|
|
|
" Test for '.' and '$'
|
|
|
|
normal 1G
|
|
|
|
call assert_equal(1, charcol('.'))
|
|
|
|
call assert_equal(1, charcol('$'))
|
|
|
|
normal 2G6l
|
|
|
|
call assert_equal(7, charcol('.'))
|
|
|
|
call assert_equal(10, charcol('$'))
|
|
|
|
normal 3G$
|
|
|
|
call assert_equal(1, charcol('.'))
|
|
|
|
call assert_equal(2, charcol('$'))
|
|
|
|
normal 4G$
|
|
|
|
call assert_equal(9, charcol('.'))
|
|
|
|
call assert_equal(10, charcol('$'))
|
|
|
|
|
|
|
|
" Test for [lnum, '$']
|
|
|
|
call assert_equal(1, charcol([1, '$']))
|
|
|
|
call assert_equal(10, charcol([2, '$']))
|
|
|
|
call assert_equal(2, charcol([3, '$']))
|
|
|
|
call assert_equal(0, charcol([5, '$']))
|
|
|
|
|
|
|
|
" Test for a mark
|
|
|
|
normal 2G7lmmgg
|
|
|
|
call assert_equal(8, charcol("'m"))
|
|
|
|
delmarks m
|
|
|
|
call assert_equal(0, charcol("'m"))
|
|
|
|
|
|
|
|
" Test for the visual start column
|
|
|
|
vnoremap <expr> <F3> SaveVisualStartCharCol()
|
|
|
|
let g:VisualStartCol = []
|
|
|
|
exe "normal 2G6lv$\<F3>ohh\<F3>o\<F3>"
|
|
|
|
call assert_equal([7, 9, 5], g:VisualStartCol)
|
|
|
|
call assert_equal(9, charcol('v'))
|
|
|
|
let g:VisualStartCol = []
|
|
|
|
exe "normal 3Gv$\<F3>o\<F3>"
|
|
|
|
call assert_equal([1, 1], g:VisualStartCol)
|
|
|
|
let g:VisualStartCol = []
|
|
|
|
exe "normal 1Gv$\<F3>o\<F3>"
|
|
|
|
call assert_equal([1, 1], g:VisualStartCol)
|
|
|
|
vunmap <F3>
|
|
|
|
|
|
|
|
%bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for getcursorcharpos()
|
|
|
|
func Test_getcursorcharpos()
|
|
|
|
call assert_equal(getcursorcharpos(), getcursorcharpos(0))
|
|
|
|
call assert_equal([0, 0, 0, 0, 0], getcursorcharpos(-1))
|
|
|
|
call assert_equal([0, 0, 0, 0, 0], getcursorcharpos(1999))
|
|
|
|
|
|
|
|
new
|
|
|
|
call setline(1, ['', "01\tà4è678", 'Ⅵ', '012345678'])
|
|
|
|
normal 1G9l
|
|
|
|
call assert_equal([0, 1, 1, 0, 1], getcursorcharpos())
|
|
|
|
normal 2G9l
|
|
|
|
call assert_equal([0, 2, 9, 0, 14], getcursorcharpos())
|
|
|
|
normal 3G9l
|
|
|
|
call assert_equal([0, 3, 1, 0, 1], getcursorcharpos())
|
|
|
|
normal 4G9l
|
|
|
|
call assert_equal([0, 4, 9, 0, 9], getcursorcharpos())
|
|
|
|
|
|
|
|
let winid = win_getid()
|
|
|
|
normal 2G5l
|
|
|
|
wincmd w
|
|
|
|
call assert_equal([0, 2, 6, 0, 11], getcursorcharpos(winid))
|
|
|
|
%bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for setcursorcharpos()
|
|
|
|
func Test_setcursorcharpos()
|
|
|
|
call assert_fails('call setcursorcharpos(v:_null_list)', 'E474:')
|
|
|
|
call assert_fails('call setcursorcharpos([1])', 'E474:')
|
|
|
|
call assert_fails('call setcursorcharpos([1, 1, 1, 1, 1])', 'E474:')
|
|
|
|
new
|
|
|
|
call setline(1, ['', "01\tà4è678", 'Ⅵ', '012345678'])
|
|
|
|
normal G
|
|
|
|
call setcursorcharpos([1, 1])
|
|
|
|
call assert_equal([1, 1], [line('.'), col('.')])
|
|
|
|
call setcursorcharpos([2, 7, 0])
|
|
|
|
call assert_equal([2, 9], [line('.'), col('.')])
|
|
|
|
call setcursorcharpos(3, 4)
|
|
|
|
call assert_equal([3, 1], [line('.'), col('.')])
|
|
|
|
call setcursorcharpos([3, 1])
|
|
|
|
call assert_equal([3, 1], [line('.'), col('.')])
|
|
|
|
call setcursorcharpos([4, 0, 0, 0])
|
|
|
|
call assert_equal([4, 1], [line('.'), col('.')])
|
|
|
|
call setcursorcharpos([4, 20])
|
|
|
|
call assert_equal([4, 9], [line('.'), col('.')])
|
|
|
|
normal 1G
|
|
|
|
call setcursorcharpos([100, 100, 100, 100])
|
|
|
|
call assert_equal([4, 9], [line('.'), col('.')])
|
|
|
|
normal 1G
|
|
|
|
call setcursorcharpos('$', 1)
|
|
|
|
call assert_equal([4, 1], [line('.'), col('.')])
|
|
|
|
|
|
|
|
%bw!
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|