summaryrefslogtreecommitdiff
path: root/src/testdir/test_perl.vim
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2019-02-23 15:04:17 +0100
committerBram Moolenaar <Bram@vim.org>2019-02-23 15:04:17 +0100
commit2472ae81dff8c30f5d63db8ad2c937deae8be646 (patch)
tree8b082f20d56657deaab682fb910a5aa652fbf352 /src/testdir/test_perl.vim
parent0d13cce3453b2274c93c5015faa1993baaebace9 (diff)
downloadvim-git-2472ae81dff8c30f5d63db8ad2c937deae8be646.tar.gz
patch 8.1.0978: blob not tested with Perlv8.1.0978
Problem: Blob not tested with Perl. Solution: Add more test coverage. Fixes a crash. (Dominique Pelle, closes #4037)
Diffstat (limited to 'src/testdir/test_perl.vim')
-rw-r--r--src/testdir/test_perl.vim7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/testdir/test_perl.vim b/src/testdir/test_perl.vim
index 03c5fa0d1..e24c04f7c 100644
--- a/src/testdir/test_perl.vim
+++ b/src/testdir/test_perl.vim
@@ -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'])