Merge remote-tracking branch 'upstream/master' into userreguserreg

1 files changed, 0 insertions, 311 deletions

diff --git a/src/nvim/testdir/test_perl.vim b/src/nvim/testdir/test_perl.vim
deleted file mode 100644
index 558d0a5d6b..0000000000
--- a/src/nvim/testdir/test_perl.vim
+++ /dev/null
@@ -1,311 +0,0 @@
-" Tests for Perl interface
-
-source check.vim
-CheckFeature perl
-CheckNotMSWindows
-
-" FIXME: RunTest don't see any error when Perl abort...
-perl $SIG{__WARN__} = sub { die "Unexpected warnings from perl: @_" };
-
-func Test_change_buffer()
-  call setline(line('$'), ['1 line 1'])
-  perl VIM::DoCommand("normal /^1\n")
-  perl $curline = VIM::Eval("line('.')")
-  perl $curbuf->Set($curline, "1 changed line 1")
-  call assert_equal('1 changed line 1', getline('$'))
-endfunc
-
-func Test_evaluate_list()
-  call setline(line('$'), ['2 line 2'])
-  perl VIM::DoCommand("normal /^2\n")
-  perl $curline = VIM::Eval("line('.')")
-  let l = ["abc", "def"]
-  perl << EOF
-  $l = VIM::Eval("l");
-  $curbuf->Append($curline, $l);
-EOF
-  normal j
-  .perldo s|\n|/|g
-  " call assert_equal('abc/def/', getline('$'))
-  call assert_equal('def', getline('$'))
-endfunc
-
-funct Test_VIM_Blob()
-  call assert_equal('0z',         perleval('VIM::Blob("")'))
-  call assert_equal('0z31326162', 'VIM::Blob("12ab")'->perleval())
-  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'])
-  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()')))[0]->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 $curbuf = (VIM::Buffers('Xbar'))[0]
-  perl $curbuf->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
-    return v:exception
-  endtry
-  call assert_report('no exception for `perleval("'.a:expr.'")`')
-  return ''
-endfunc
-
-func Test_perleval()
-  call assert_false(perleval('undef'))
-
-  " scalar
-  call assert_equal(0, perleval('0'))
-  call assert_equal(2, perleval('2'))
-  call assert_equal(-2, perleval('-2'))
-  if has('float')
-    call assert_equal(2.5, perleval('2.5'))
-  else
-    call assert_equal(2, perleval('2.5'))
-  end
-
-  " sandbox call assert_equal(2, perleval('2'))
-
-  call assert_equal('abc', perleval('"abc"'))
-  " call assert_equal("abc\ndef", perleval('"abc\0def"'))
-
-  " ref
-  call assert_equal([], perleval('[]'))
-  call assert_equal(['word', 42, [42],{}], perleval('["word", 42, [42], {}]'))
-
-  call assert_equal({}, perleval('{}'))
-  call assert_equal({'foo': 'bar'}, perleval('{foo => "bar"}'))
-
-  perl our %h; our @a;
-  let a = perleval('[\(%h, %h, @a, @a)]')
-  " call assert_true((a[0] is a[1]))
-  call assert_equal(a[0], a[1])
-  " call assert_true((a[2] is a[3]))
-  call assert_equal(a[2], a[3])
-  perl undef %h; undef @a;
-
-  " call assert_true(<SID>catch_peval('{"" , 0}') =~ 'Malformed key Dictionary')
-  " call assert_true(<SID>catch_peval('{"\0" , 0}') =~ 'Malformed key Dictionary')
-  " call assert_true(<SID>catch_peval('{"foo\0bar" , 0}') =~ 'Malformed key Dictionary')
-
-  call assert_equal('*VIM', perleval('"*VIM"'))
-  " call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)')
-endfunc
-
-func Test_perldo()
-  sp __TEST__
-  exe 'read ' g:testname
-  perldo s/perl/vieux_chameau/g
-  1
-  call assert_false(search('\Cperl'))
-  bw!
-
-  " Check deleting lines does not trigger ml_get error.
-  new
-  call setline(1, ['one', 'two', 'three'])
-  perldo VIM::DoCommand("%d_")
-  bwipe!
-
-  " Check switching to another buffer does not trigger ml_get error.
-  new
-  let wincount = winnr('$')
-  call setline(1, ['one', 'two', 'three'])
-  perldo VIM::DoCommand("new")
-  call assert_equal(wincount + 1, winnr('$'))
-  bwipe!
-  bwipe!
-endfunc
-
-func Test_VIM_package()
-  perl VIM::DoCommand('let l:var = "foo"')
-  call assert_equal(l:var, 'foo')
-
-  set noet
-  perl VIM::SetOption('et')
-  call assert_true(&et)
-endfunc
-
-func Test_stdio()
-  throw 'skipped: TODO: '
-  redir =>l:out
-  perl <<EOF
-    VIM::Msg("&VIM::Msg");
-    print "STDOUT";
-    print STDERR "STDERR";
-EOF
-  redir END
-  call assert_equal(['&VIM::Msg', 'STDOUT', 'STDERR'], split(l:out, "\n"))
-endfunc
-
-" Run first to get a clean namespace
-func Test_000_SvREFCNT()
-  throw 'skipped: TODO: '
-  for i in range(8)
-    exec 'new X'.i
-  endfor
-  new t
-  perl <<--perl
-#line 5 "Test_000_SvREFCNT()"
-  my ($b, $w);
-
-  my $num = 0;
-  for ( 0 .. 100 ) {
-      if ( ++$num >= 8 ) { $num = 0 }
-      VIM::DoCommand("buffer X$num");
-      $b = $curbuf;
-  }
-
-  VIM::DoCommand("buffer t");
-
-  $b = $curbuf      for 0 .. 100;
-  $w = $curwin      for 0 .. 100;
-  () = VIM::Buffers for 0 .. 100;
-  () = VIM::Windows for 0 .. 100;
-
-  VIM::DoCommand('bw! t');
-  if (exists &Internals::SvREFCNT) {
-      my $cb = Internals::SvREFCNT($$b);
-      my $cw = Internals::SvREFCNT($$w);
-      VIM::Eval("assert_equal(2, $cb, 'T1')");
-      VIM::Eval("assert_equal(2, $cw, 'T2')");
-      my $strongref;
-      foreach ( VIM::Buffers, VIM::Windows ) {
-	  VIM::DoCommand("%bw!");
-	  my $c = Internals::SvREFCNT($_);
-	  VIM::Eval("assert_equal(2, $c, 'T3')");
-	  $c = Internals::SvREFCNT($$_);
-	  next if $c == 2 && !$strongref++;
-	  VIM::Eval("assert_equal(1, $c, 'T4')");
-      }
-      $cb = Internals::SvREFCNT($$curbuf);
-      $cw = Internals::SvREFCNT($$curwin);
-      VIM::Eval("assert_equal(3, $cb, 'T5')");
-      VIM::Eval("assert_equal(3, $cw, 'T6')");
-  }
-  VIM::Eval("assert_false($$b)");
-  VIM::Eval("assert_false($$w)");
---perl
-  %bw!
-endfunc
-
-func Test_set_cursor()
-  " Check that setting the cursor position works.
-  new
-  call setline(1, ['first line', 'second line'])
-  normal gg
-  perldo $curwin->Cursor(1, 5)
-  call assert_equal([1, 6], [line('.'), col('.')])
-
-  " Check that movement after setting cursor position keeps current column.
-  normal j
-  call assert_equal([2, 6], [line('.'), col('.')])
-endfunc
-
-" Test for various heredoc syntax
-func Test_perl_heredoc()
-  perl << END
-VIM::DoCommand('let s = "A"')
-END
-  perl <<
-VIM::DoCommand('let s ..= "B"')
-.
-  call assert_equal('AB', s)
-endfunc
-
-" vim: shiftwidth=2 sts=2 expandtab