To: vim_dev@googlegroups.com
Subject: Patch 8.0.0350
Fcc: outbox
From: Bram Moolenaar <Bram@moolenaar.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
------------

Patch 8.0.0350
Problem:    Not enough test coverage for Perl.
Solution:   Add more Perl tests. (Dominique Perl, closes #1500)
Files:      src/testdir/test_perl.vim


*** ../vim-8.0.0349/src/testdir/test_perl.vim	2017-01-29 22:59:08.253373379 +0100
--- src/testdir/test_perl.vim	2017-02-23 13:43:48.118340300 +0100
***************
*** 26,32 ****
    call assert_equal('abc/def/', getline('$'))
  endfunc
  
! fu <SID>catch_peval(expr)
    try
      call perleval(a:expr)
    catch
--- 26,132 ----
    call assert_equal('abc/def/', getline('$'))
  endfunc
  
! func Test_buffer_Delete()
!   new
!   call setline(1, ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'])
!   perl $curbuf->Delete(7)
!   perl $curbuf->Delete(2, 5)
!   perl $curbuf->Delete(10)
!   call assert_equal(['a', 'f', 'h'],  getline(1, '$'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Append()
!   new
!   perl $curbuf->Append(1, '1')
!   perl $curbuf->Append(2, '2', '3', '4')
!   perl @l = ('5' ..'7')
!   perl $curbuf->Append(0, @l)
!   call assert_equal(['5', '6', '7', '', '1', '2', '3', '4'], getline(1, '$'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Set()
!   new
!   call setline(1, ['1', '2', '3', '4', '5'])
!   perl $curbuf->Set(2, 'a', 'b', 'c')
!   perl $curbuf->Set(4, 'A', 'B', 'C')
!   call assert_equal(['1', 'a', 'b', 'A', 'B'], getline(1, '$'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Get()
!   new
!   call setline(1, ['1', '2', '3', '4'])
!   call assert_equal('2:3', perleval('join(":", $curbuf->Get(2, 3))'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Count()
!   new
!   call setline(1, ['a', 'b', 'c'])
!   call assert_equal(3, perleval('$curbuf->Count()'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Name()
!   new
!   call assert_equal('', perleval('$curbuf->Name()'))
!   bwipe!
!   new Xfoo
!   call assert_equal('Xfoo', perleval('$curbuf->Name()'))
!   bwipe!
! endfunc
! 
! func Test_buffer_Number()
!   call assert_equal(bufnr('%'), perleval('$curbuf->Number()'))
! endfunc
! 
! func Test_window_Cursor()
!   new
!   call setline(1, ['line1', 'line2'])
!   perl $curwin->Cursor(2, 3)
!   call assert_equal('2:3', perleval('join(":", $curwin->Cursor())'))
!   " Col is numbered from 0 in Perl, and from 1 in Vim script.
!   call assert_equal([0, 2, 4, 0], getpos('.'))
!   bwipe!
! endfunc
! 
! func Test_window_SetHeight()
!   new
!   perl $curwin->SetHeight(2)
!   call assert_equal(2, winheight(0))
!   bwipe!
! endfunc
! 
! func Test_VIM_Windows()
!   new
!   " VIM::Windows() without argument in scalar and list context.
!   perl $winnr = VIM::Windows()
!   perl @winlist = VIM::Windows()
!   perl $curbuf->Append(0, $winnr, scalar(@winlist))
!   call assert_equal(['2', '2', ''], getline(1, '$'))
! 
!   " VIM::Windows() with window number argument.
!   perl VIM::Windows(VIM::Eval('winnr()'))->Buffer()->Set(1, 'bar')
!   call assert_equal('bar', getline(1))
!   bwipe!
! endfunc
! 
! func Test_VIM_Buffers()
!   new Xbar
!   " VIM::Buffers() without argument in scalar and list context.
!   perl $nbuf = VIM::Buffers()
!   perl @buflist = VIM::Buffers()
! 
!   " VIM::Buffers() with argument.
!   perl $mybuf = (VIM::Buffers('Xbar'))[0]
!   perl $mybuf->Append(0, $nbuf, scalar(@buflist))
!   call assert_equal(['2', '2', ''], getline(1, '$'))
!   bwipe!
! endfunc
! 
! func <SID>catch_peval(expr)
    try
      call perleval(a:expr)
    catch
***************
*** 36,42 ****
    return ''
  endfunc
  
! function Test_perleval()
    call assert_false(perleval('undef'))
  
    " scalar
--- 136,142 ----
    return ''
  endfunc
  
! func Test_perleval()
    call assert_false(perleval('undef'))
  
    " scalar
***************
*** 75,81 ****
    call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)')
  endfunc
  
! function Test_perldo()
    sp __TEST__
    exe 'read ' g:testname
    perldo s/perl/vieux_chameau/g
--- 175,181 ----
    call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)')
  endfunc
  
! func Test_perldo()
    sp __TEST__
    exe 'read ' g:testname
    perldo s/perl/vieux_chameau/g
***************
*** 99,105 ****
    bwipe!
  endfunc
  
! function Test_VIM_package()
    perl VIM::DoCommand('let l:var = "foo"')
    call assert_equal(l:var, 'foo')
  
--- 199,205 ----
    bwipe!
  endfunc
  
! func Test_VIM_package()
    perl VIM::DoCommand('let l:var = "foo"')
    call assert_equal(l:var, 'foo')
  
***************
*** 108,114 ****
    call assert_true(&et)
  endfunc
  
! function Test_stdio()
    redir =>l:out
    perl <<EOF
      VIM::Msg("&VIM::Msg");
--- 208,214 ----
    call assert_true(&et)
  endfunc
  
! func Test_stdio()
    redir =>l:out
    perl <<EOF
      VIM::Msg("&VIM::Msg");
***************
*** 119,125 ****
    call assert_equal(['&VIM::Msg', 'STDOUT', 'STDERR'], split(l:out, "\n"))
  endfunc
  
! function Test_SvREFCNT()
    new t
    perl <<--perl
    my ($b, $w);
--- 219,225 ----
    call assert_equal(['&VIM::Msg', 'STDOUT', 'STDERR'], split(l:out, "\n"))
  endfunc
  
! func Test_SvREFCNT()
    new t
    perl <<--perl
    my ($b, $w);
*** ../vim-8.0.0349/src/version.c	2017-02-23 12:20:30.205696184 +0100
--- src/version.c	2017-02-23 13:45:40.205635940 +0100
***************
*** 766,767 ****
--- 766,769 ----
  {   /* Add new patch number below this line */
+ /**/
+     350,
  /**/

-- 
A)bort, R)etry, D)o it right this time

 /// 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    ///