Patch 8.2.2120

[Bram Moolenaar]

Patch 8.2.2120
Problem: Not all Perl functionality is tested.
Solution: Add a few more test cases. (Dominique Pellé, closes #7440)
Files: src/testdir/test_perl.vim


*** ../vim-8.2.2119/src/testdir/test_perl.vim 2020-05-01 14:10:10.188390740 +0200
--- src/testdir/test_perl.vim 2020-12-09 16:02:25.087412541 +0100
***************
*** 182,190 ****
--- 182,202 ----

call assert_equal('*VIM', perleval('"*VIM"'))
call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)')
+
+ " typeglob
+ call assert_equal('*main::STDOUT', perleval('*STDOUT'))
+ '
+ call perleval("++-$foo")
+ let messages = split(execute('message'), "\n")
+ call assert_match("Can't modify negation", messages[-1])
endfunc

func Test_perldo()
+ new
+ " :perldo in empty buffer does nothing.
+ perldo ++$counter
+ call assert_equal(0, perleval("$counter"))
+
sp __TEST__
exe 'read ' g:testname
perldo s/perl/vieux_chameau/g
***************
*** 204,211 ****
call setline(1, ['one', 'two', 'three'])
perldo VIM::DoCommand("new")
call assert_equal(wincount + 1, winnr('$'))
! bwipe!
! bwipe!
endfunc

func Test_VIM_package()
--- 216,222 ----
call setline(1, ['one', 'two', 'three'])
perldo VIM::DoCommand("new")
call assert_equal(wincount + 1, winnr('$'))
! %bwipe!
endfunc

func Test_VIM_package()
***************
*** 311,314 ****
--- 322,331 ----
call assert_equal('ABCDE', s)
endfunc

+ func Test_perl_in_sandbox()
+ sandbox perl print 'test'
+ let messages = split(execute('message'), "\n")
+ call assert_match("'print' trapped by operation mask", messages[-1])
+ endfunc
+
" vim: shiftwidth=2 sts=2 expandtab
*** ../vim-8.2.2119/src/version.c 2020-12-09 15:53:21.865279582 +0100
--- src/version.c 2020-12-09 16:02:14.635440957 +0100
***************
*** 752,753 ****
--- 752,755 ----
{ /* Add new patch number below this line */
+ /**/
+ 2120,
/**/

--
Violators can be fined, arrested or jailed for making ugly faces at a dog.
[real standing law in Oklahoma, United States of America]

/// Bram Moolenaar -- Br...@Moolenaar.net -- http://www.Moolenaar.net \\\
/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
\\\ an exciting new programming language -- http://www.Zimbu.org ///
\\\ help me help AIDS victims -- http://ICCF-Holland.org ///