aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-10-05 05:34:07 -04:00
Code Activity

patch 8.2.2847: Perl not tested sufficiently

Browse Source 
Problem:    Perl not tested sufficiently.
Solution:   Add test.  Also test W17. (Dominique Pellé, closes #8193)
This commit is contained in:
Dominique Pelle
2021-05-10 23:49:39 +02:00
committed by Bram Moolenaar
parent 68db996b62
commit 588cf7547b
3 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/testdir/test_perl.vim
View File

@@ -1,6 +1,7 @@
" Tests for Perl interface
source check.vim
source shared.vim
CheckFeature perl
" FIXME: RunTest don't see any error when Perl abort...
@@ -52,6 +53,11 @@ func Test_buffer_Append()
perl @l = ('5' ..'7')
perl $curbuf->Append(0, @l)
call assert_equal(['5', '6', '7', '', '1', '2', '3', '4'], getline(1, '$'))
perl $curbuf->Append(0)
call assert_match('^Usage: VIBUF::Append(vimbuf, lnum, @lines) at .* line 1\.$',
\ GetMessages()[-1])
bwipe!
endfunc
@@ -61,6 +67,11 @@ func Test_buffer_Set()
perl $curbuf->Set(2, 'a', 'b', 'c')
perl $curbuf->Set(4, 'A', 'B', 'C')
call assert_equal(['1', 'a', 'b', 'A', 'B'], getline(1, '$'))
perl $curbuf->Set(0)
call assert_match('^Usage: VIBUF::Set(vimbuf, lnum, @lines) at .* line 1\.$',
\ GetMessages()[-1])
bwipe!
endfunc
@@ -210,6 +221,13 @@ func Test_perldo()
perldo VIM::DoCommand("%d_")
bwipe!
" Check a Perl expression which gives an error.
new
call setline(1, 'one')
perldo 1/0
call assert_match('^Illegal division by zero at .* line 1\.$', GetMessages()[-1])
bwipe!
" Check switching to another buffer does not trigger ml_get error.
new
let wincount = winnr('$')
@@ -231,12 +249,13 @@ endfunc
func Test_stdio()
redir =>l:out
perl << trim EOF
VIM::Msg("&VIM::Msg");
VIM::Msg("VIM::Msg");
VIM::Msg("VIM::Msg Error", "Error");
print "STDOUT";
print STDERR "STDERR";
EOF
redir END
call assert_equal(['&VIM::Msg', 'STDOUT', 'STDERR'], split(l:out, "\n"))
call assert_equal(['VIM::Msg', 'VIM::Msg Error', 'STDOUT', 'STDERR'], split(l:out, "\n"))
endfunc
" Run first to get a clean namespace