aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-09-23 03:43:49 -04:00
Code Activity

patch 8.1.0978: blob not tested with Perl

Browse Source 
Problem:    Blob not tested with Perl.
Solution:   Add more test coverage.  Fixes a crash. (Dominique Pelle,
            closes #4037)
This commit is contained in:
Bram Moolenaar
2019-02-23 15:04:17 +01:00
parent 0d13cce345
commit 2472ae81df
3 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/if_perl.xs
View File

@@ -1570,7 +1570,7 @@ Blob(SV* sv)
newsv = newSVpv("0z", 2);
for (i = 0; i < len; i++)
{
sprintf(buf, "%02X", s[i]);
sprintf(buf, "%02X", (unsigned char)(s[i]));
sv_catpvn(newsv, buf, 2);
}
RETVAL = newsv;

7
src/testdir/test_perl.vim
View File

@@ -29,6 +29,13 @@ EOF
call assert_equal('abc/def/', getline('$'))
endfunc
funct Test_VIM_Blob()
call assert_equal('0z', perleval('VIM::Blob("")'))
call assert_equal('0z31326162', perleval('VIM::Blob("12ab")'))
call assert_equal('0z00010203', perleval('VIM::Blob("\x00\x01\x02\x03")'))
call assert_equal('0z8081FEFF', perleval('VIM::Blob("\x80\x81\xfe\xff")'))
endfunc
func Test_buffer_Delete()
new
call setline(1, ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'])

2
src/version.c
View File

@@ -779,6 +779,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
978,
/**/
977,
/**/