To: vim_dev@googlegroups.com Subject: Patch 8.2.2120 Fcc: outbox From: Bram Moolenaar Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit ------------ 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 -- Bram@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 ///