Mercurial > vim

comparison src/testdir/test_perl.vim @ 15945:f0f8754e3bf5 v8.1.0978

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.1.0978: blob not tested with Perl commit https://github.com/vim/vim/commit/2472ae81dff8c30f5d63db8ad2c937deae8be646 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Feb 23 15:04:17 2019 +0100 patch 8.1.0978: blob not tested with Perl Problem: Blob not tested with Perl. Solution: Add more test coverage. Fixes a crash. (Dominique Pelle, closes #4037)
author Bram Moolenaar <Bram@vim.org>
date Sat, 23 Feb 2019 15:15:12 +0100
parents 2d6703d4448a
children f38fcbf343ce
comparison
equal deleted inserted replaced
15944:3f73b6c0f10f 15945:f0f8754e3bf5
25 $curbuf->Append($curline, $l); 25 $curbuf->Append($curline, $l);
26 EOF 26 EOF
27 normal j 27 normal j
28 .perldo s|\n|/|g 28 .perldo s|\n|/|g
29 call assert_equal('abc/def/', getline('$')) 29 call assert_equal('abc/def/', getline('$'))
30 endfunc
31
32 funct Test_VIM_Blob()
33 call assert_equal('0z', perleval('VIM::Blob("")'))
34 call assert_equal('0z31326162', perleval('VIM::Blob("12ab")'))
35 call assert_equal('0z00010203', perleval('VIM::Blob("\x00\x01\x02\x03")'))
36 call assert_equal('0z8081FEFF', perleval('VIM::Blob("\x80\x81\xfe\xff")'))
30 endfunc 37 endfunc
31 38
32 func Test_buffer_Delete() 39 func Test_buffer_Delete()
33 new 40 new
34 call setline(1, ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h']) 41 call setline(1, ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'])