mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 03:05:11 -07:00
tests: Migrate legacy test cdo.
This commit is contained in:
watiko
parent
4eba134a55
commit
6f88dca92d
@ -30,7 +30,7 @@ SCRIPTS := test_eval.out \
|
||||
test_close_count.out \
|
||||
test_command_count.out \
|
||||
|
||||
NEW_TESTS = test_cdo.res
|
||||
NEW_TESTS =
|
||||
|
||||
SCRIPTS_GUI := test16.out
|
||||
|
||||
|
||||
@ -1,206 +0,0 @@
|
||||
" 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
|
||||
226
test/functional/legacy/cdo_spec.lua
Normal file
226
test/functional/legacy/cdo_spec.lua
Normal file
@ -0,0 +1,226 @@
|
||||
-- Tests for the :cdo, :cfdo, :ldo and :lfdo commands
|
||||
|
||||
local helpers = require('test.functional.helpers')
|
||||
local nvim, clear = helpers.meths, helpers.clear
|
||||
local call, feed = helpers.call, helpers.feed
|
||||
local source, eq = helpers.source, helpers.eq
|
||||
|
||||
local function expected_empty()
|
||||
eq({}, nvim.get_vvar('errors'))
|
||||
end
|
||||
|
||||
describe('cdo', function()
|
||||
before_each(function()
|
||||
clear()
|
||||
|
||||
call('writefile', {'Line1', 'Line2', 'Line3'}, 'Xtestfile1')
|
||||
call('writefile', {'Line1', 'Line2', 'Line3'}, 'Xtestfile2')
|
||||
call('writefile', {'Line1', 'Line2', 'Line3'}, 'Xtestfile3')
|
||||
|
||||
source([=[
|
||||
" 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
|
||||
]=])
|
||||
end)
|
||||
|
||||
after_each(function()
|
||||
os.remove('Xtestfile1')
|
||||
os.remove('Xtestfile2')
|
||||
os.remove('Xtestfile3')
|
||||
end)
|
||||
|
||||
it('works for :cdo', function()
|
||||
-- call('XdoTests', 'c')
|
||||
feed(":call XdoTests('c')<CR><C-l>")
|
||||
expected_empty()
|
||||
end)
|
||||
|
||||
it('works for :cfdo', function()
|
||||
-- call('XfdoTests', 'c')
|
||||
feed(":call XfdoTests('c')<CR><C-l>")
|
||||
expected_empty()
|
||||
end)
|
||||
|
||||
it('works for :ldo', function()
|
||||
-- call('XdoTests', 'l')
|
||||
feed(":call XdoTests('l')<CR><C-l>")
|
||||
expected_empty()
|
||||
end)
|
||||
|
||||
it('works for :lfdo', function()
|
||||
-- call('XfdoTests', 'l')
|
||||
feed(":call XfdoTests('l')<CR><C-l>")
|
||||
expected_empty()
|
||||
end)
|
||||
end)
|
||||
Loading…
Reference in New Issue
Block a user