mirror of
https://github.com/neovim/neovim.git
synced 2025-10-02 16:08:36 +00:00
vim-patch:7.4.980
Problem: Tests for :cdo, :ldo, etc. are outdated.
Solution: Add new style tests for these commands. (Yegappan Lakshmanan)
57d7971b5f
This commit is contained in:
watiko
@@ -29,9 +29,8 @@ SCRIPTS := test_eval.out \
|
|||||||
test_charsearch.out \
|
test_charsearch.out \
|
||||||
test_close_count.out \
|
test_close_count.out \
|
||||||
test_command_count.out \
|
test_command_count.out \
|
||||||
test_cdo.out \
|
|
||||||
|
|
||||||
NEW_TESTS =
|
NEW_TESTS = test_cdo.res
|
||||||
|
|
||||||
SCRIPTS_GUI := test16.out
|
SCRIPTS_GUI := test16.out
|
||||||
|
|
||||||
@@ -165,4 +164,4 @@ newtests: newtestssilent
|
|||||||
newtestssilent: $(NEW_TESTS)
|
newtestssilent: $(NEW_TESTS)
|
||||||
|
|
||||||
%.res: %.vim .gdbinit
|
%.res: %.vim .gdbinit
|
||||||
$(RUN_VIMTEST) -u runtest.vim $*.vim
|
$(RUN_VIMTEST) -S runtest.vim $*.vim
|
||||||
|
|||||||
@@ -1,108 +0,0 @@
|
|||||||
Tests for the :cdo, :cfdo, :ldo and :lfdo commands
|
|
||||||
|
|
||||||
STARTTEST
|
|
||||||
:so small.vim
|
|
||||||
:lang mess C
|
|
||||||
:if !has('quickfix') | e! test.ok | wq! test.out | endif
|
|
||||||
|
|
||||||
:call writefile(["Line1", "Line2", "Line3"], 'Xtestfile1')
|
|
||||||
:call writefile(["Line1", "Line2", "Line3"], 'Xtestfile2')
|
|
||||||
:call writefile(["Line1", "Line2", "Line3"], 'Xtestfile3')
|
|
||||||
|
|
||||||
:function RunTests(cchar)
|
|
||||||
: let nl="\n"
|
|
||||||
|
|
||||||
: enew
|
|
||||||
: " Try with an empty list
|
|
||||||
: exe a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " Populate the list and then try
|
|
||||||
: exe a:cchar . "getexpr ['non-error 1', 'Xtestfile1:1:3:Line1', 'non-error 2', 'Xtestfile2:2:2:Line2', 'non-error 3', 'Xtestfile3:3:1:Line3']"
|
|
||||||
: exe a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " Run command only on selected error lines
|
|
||||||
: enew
|
|
||||||
: exe "2,3" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: " Boundary condition tests
|
|
||||||
: enew
|
|
||||||
: exe "1,1" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: enew
|
|
||||||
: exe "3" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: " Range test commands
|
|
||||||
: enew
|
|
||||||
: exe "%" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: enew
|
|
||||||
: exe "1,$" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: enew
|
|
||||||
: exe a:cchar . 'prev'
|
|
||||||
: exe "." . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: " Invalid error lines test
|
|
||||||
: enew
|
|
||||||
: exe "27" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "4,5" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " Run commands from an unsaved buffer
|
|
||||||
: let v:errmsg=''
|
|
||||||
: enew
|
|
||||||
: setlocal modified
|
|
||||||
: exe "2,2" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: if v:errmsg =~# 'No write since last change'
|
|
||||||
: let g:result .= 'Unsaved file change test passed' . nl
|
|
||||||
: else
|
|
||||||
: let g:result .= 'Unsaved file change test failed' . nl
|
|
||||||
: endif
|
|
||||||
|
|
||||||
: " If the executed command fails, then the operation should be aborted
|
|
||||||
: enew!
|
|
||||||
: let subst_count = 0
|
|
||||||
: exe a:cchar . "do s/Line/xLine/ | let subst_count += 1"
|
|
||||||
: if subst_count == 1 && getline('.') == 'xLine1'
|
|
||||||
: let g:result .= 'Abort command on error test passed' . nl
|
|
||||||
: else
|
|
||||||
: let g:result .= 'Abort command on error test failed' . nl
|
|
||||||
: endif
|
|
||||||
|
|
||||||
: exe "2,2" . a:cchar . "do! let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " List with no valid error entries
|
|
||||||
: edit! +2 Xtestfile1
|
|
||||||
: exe a:cchar . "getexpr ['non-error 1', 'non-error 2', 'non-error 3']"
|
|
||||||
: exe a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "2" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: let v:errmsg=''
|
|
||||||
: exe "%" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "1,$" . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "." . a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: let g:result .= v:errmsg
|
|
||||||
|
|
||||||
: " List with only one valid entry
|
|
||||||
: exe a:cchar . "getexpr ['Xtestfile3:3:1:Line3']"
|
|
||||||
: exe a:cchar . "do let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " Tests for :cfdo and :lfdo commands
|
|
||||||
: exe a:cchar . "getexpr ['non-error 1', 'Xtestfile1:1:3:Line1', 'Xtestfile1:2:1:Line2', 'non-error 2', 'Xtestfile2:2:2:Line2', 'non-error 3', 'Xtestfile3:2:3:Line2', 'Xtestfile3:3:1:Line3']"
|
|
||||||
: exe a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "3" . a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "2,3" . a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "%" . a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe "1,$" . a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
: exe a:cchar . 'pfile'
|
|
||||||
: exe "." . a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
|
|
||||||
: " List with only one valid entry
|
|
||||||
: exe a:cchar . "getexpr ['Xtestfile2:2:5:Line2']"
|
|
||||||
: exe a:cchar . "fdo let g:result .= expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C' . nl"
|
|
||||||
:endfunction
|
|
||||||
|
|
||||||
:let result=''
|
|
||||||
:" Tests for the :cdo quickfix list command
|
|
||||||
:call RunTests('c')
|
|
||||||
:let result .= "\n"
|
|
||||||
:" Tests for the :ldo location list command
|
|
||||||
:call RunTests('l')
|
|
||||||
|
|
||||||
:edit! test.out
|
|
||||||
:0put =result
|
|
||||||
:wq!
|
|
||||||
ENDTEST
|
|
||||||
|
|
||||||
@@ -1,66 +0,0 @@
|
|||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Unsaved file change test passed
|
|
||||||
Abort command on error test passed
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile2 2L 5C
|
|
||||||
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Unsaved file change test passed
|
|
||||||
Abort command on error test passed
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 3L 1C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile1 1L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile3 2L 3C
|
|
||||||
Xtestfile2 2L 2C
|
|
||||||
Xtestfile2 2L 5C
|
|
||||||
|
|
||||||
206
src/nvim/testdir/test_cdo.vim
Normal file
206
src/nvim/testdir/test_cdo.vim
Normal file
@@ -0,0 +1,206 @@
|
|||||||
|
" Tests for the :cdo, :cfdo, :ldo and :lfdo commands
|
||||||
|
|
||||||
|
lang mess C
|
||||||
|
if !has('quickfix')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Create the files used by the tests
|
||||||
|
function SetUp()
|
||||||
|
call writefile(["Line1", "Line2", "Line3"], 'Xtestfile1')
|
||||||
|
call writefile(["Line1", "Line2", "Line3"], 'Xtestfile2')
|
||||||
|
call writefile(["Line1", "Line2", "Line3"], 'Xtestfile3')
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Remove the files used by the tests
|
||||||
|
function TearDown()
|
||||||
|
call delete('Xtestfile1')
|
||||||
|
call delete('Xtestfile2')
|
||||||
|
call delete('Xtestfile3')
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Returns the current line in '<filename> <linenum>L <column>C' format
|
||||||
|
function GetRuler()
|
||||||
|
return expand('%') . ' ' . line('.') . 'L' . ' ' . col('.') . 'C'
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Tests for the :cdo and :ldo commands
|
||||||
|
function XdoTests(cchar)
|
||||||
|
enew
|
||||||
|
|
||||||
|
" Shortcuts for calling the cdo and ldo commands
|
||||||
|
let Xdo = a:cchar . 'do'
|
||||||
|
let Xgetexpr = a:cchar . 'getexpr'
|
||||||
|
let Xprev = a:cchar. 'prev'
|
||||||
|
let XdoCmd = Xdo . ' call add(l, GetRuler())'
|
||||||
|
|
||||||
|
" Try with an empty list
|
||||||
|
let l = []
|
||||||
|
exe XdoCmd
|
||||||
|
call assert_equal([], l)
|
||||||
|
|
||||||
|
" Populate the list and then try
|
||||||
|
exe Xgetexpr . " ['non-error 1', 'Xtestfile1:1:3:Line1', 'non-error 2', 'Xtestfile2:2:2:Line2', 'non-error 3', 'Xtestfile3:3:1:Line3']"
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
exe XdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
" Run command only on selected error lines
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "2,3" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile2 2L 2C', 'Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
" Boundary condition tests
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "1,1" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "3" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
" Range test commands
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "%" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "1,$" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe Xprev
|
||||||
|
exe "." . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile2 2L 2C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "+" . XdoCmd
|
||||||
|
call assert_equal(['Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
" Invalid error lines test
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
exe "silent! 27" . XdoCmd
|
||||||
|
exe "silent! 4,5" . XdoCmd
|
||||||
|
call assert_equal([], l)
|
||||||
|
|
||||||
|
" Run commands from an unsaved buffer
|
||||||
|
let v:errmsg=''
|
||||||
|
let l = []
|
||||||
|
enew
|
||||||
|
setlocal modified
|
||||||
|
exe "silent! 2,2" . XdoCmd
|
||||||
|
if v:errmsg !~# 'No write since last change'
|
||||||
|
call add(v:errors, 'Unsaved file change test failed')
|
||||||
|
endif
|
||||||
|
|
||||||
|
" If the executed command fails, then the operation should be aborted
|
||||||
|
enew!
|
||||||
|
let subst_count = 0
|
||||||
|
exe "silent!" . Xdo . " s/Line/xLine/ | let subst_count += 1"
|
||||||
|
if subst_count != 1 || getline('.') != 'xLine1'
|
||||||
|
call add(v:errors, 'Abort command on error test failed')
|
||||||
|
endif
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
exe "2,2" . Xdo . "! call add(l, GetRuler())"
|
||||||
|
call assert_equal(['Xtestfile2 2L 2C'], l)
|
||||||
|
|
||||||
|
" List with no valid error entries
|
||||||
|
let l = []
|
||||||
|
edit! +2 Xtestfile1
|
||||||
|
exe Xgetexpr . " ['non-error 1', 'non-error 2', 'non-error 3']"
|
||||||
|
exe XdoCmd
|
||||||
|
call assert_equal([], l)
|
||||||
|
exe "silent! 2" . XdoCmd
|
||||||
|
call assert_equal([], l)
|
||||||
|
let v:errmsg=''
|
||||||
|
exe "%" . XdoCmd
|
||||||
|
exe "1,$" . XdoCmd
|
||||||
|
exe "." . XdoCmd
|
||||||
|
call assert_equal('', v:errmsg)
|
||||||
|
|
||||||
|
" List with only one valid entry
|
||||||
|
let l = []
|
||||||
|
exe Xgetexpr . " ['Xtestfile3:3:1:Line3']"
|
||||||
|
exe XdoCmd
|
||||||
|
call assert_equal(['Xtestfile3 3L 1C'], l)
|
||||||
|
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Tests for the :cfdo and :lfdo commands
|
||||||
|
function XfdoTests(cchar)
|
||||||
|
enew
|
||||||
|
|
||||||
|
" Shortcuts for calling the cfdo and lfdo commands
|
||||||
|
let Xfdo = a:cchar . 'fdo'
|
||||||
|
let Xgetexpr = a:cchar . 'getexpr'
|
||||||
|
let XfdoCmd = Xfdo . ' call add(l, GetRuler())'
|
||||||
|
let Xpfile = a:cchar. 'pfile'
|
||||||
|
|
||||||
|
" Clear the quickfix/location list
|
||||||
|
exe Xgetexpr . " []"
|
||||||
|
|
||||||
|
" Try with an empty list
|
||||||
|
let l = []
|
||||||
|
exe XfdoCmd
|
||||||
|
call assert_equal([], l)
|
||||||
|
|
||||||
|
" Populate the list and then try
|
||||||
|
exe Xgetexpr . " ['non-error 1', 'Xtestfile1:1:3:Line1', 'Xtestfile1:2:1:Line2', 'non-error 2', 'Xtestfile2:2:2:Line2', 'non-error 3', 'Xtestfile3:2:3:Line2', 'Xtestfile3:3:1:Line3']"
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
exe XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 2L 3C'], l)
|
||||||
|
|
||||||
|
" Run command only on selected error lines
|
||||||
|
let l = []
|
||||||
|
exe "2,3" . XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile2 2L 2C', 'Xtestfile3 2L 3C'], l)
|
||||||
|
|
||||||
|
" Boundary condition tests
|
||||||
|
let l = []
|
||||||
|
exe "3" . XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile3 2L 3C'], l)
|
||||||
|
|
||||||
|
" Range test commands
|
||||||
|
let l = []
|
||||||
|
exe "%" . XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 2L 3C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
exe "1,$" . XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile1 1L 3C', 'Xtestfile2 2L 2C', 'Xtestfile3 2L 3C'], l)
|
||||||
|
|
||||||
|
let l = []
|
||||||
|
exe Xpfile
|
||||||
|
exe "." . XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile2 2L 2C'], l)
|
||||||
|
|
||||||
|
" List with only one valid entry
|
||||||
|
let l = []
|
||||||
|
exe Xgetexpr . " ['Xtestfile2:2:5:Line2']"
|
||||||
|
exe XfdoCmd
|
||||||
|
call assert_equal(['Xtestfile2 2L 5C'], l)
|
||||||
|
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Tests for cdo and cfdo
|
||||||
|
function Test_cdo()
|
||||||
|
call XdoTests('c')
|
||||||
|
call XfdoTests('c')
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Tests for ldo and lfdo
|
||||||
|
function Test_ldo()
|
||||||
|
call XdoTests('l')
|
||||||
|
call XfdoTests('l')
|
||||||
|
endfunction
|
||||||
@@ -144,7 +144,7 @@ static int included_patches[] = {
|
|||||||
// 983,
|
// 983,
|
||||||
// 982 NA
|
// 982 NA
|
||||||
// 981,
|
// 981,
|
||||||
// 980,
|
980,
|
||||||
// 979 NA
|
// 979 NA
|
||||||
978,
|
978,
|
||||||
// 977,
|
// 977,
|
||||||
|
|||||||
Reference in New Issue
Block a user