mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 03:05:11 -07:00
323 lines
8.1 KiB
VimL
323 lines
8.1 KiB
VimL
" 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()
|
|
throw 'skipped: flaky '
|
|
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()
|
|
throw 'skipped: flaky '
|
|
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 << trim 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"')
|
|
.
|
|
perl << trim END
|
|
VIM::DoCommand('let s ..= "C"')
|
|
END
|
|
perl << trim
|
|
VIM::DoCommand('let s ..= "D"')
|
|
.
|
|
perl << trim eof
|
|
VIM::DoCommand('let s ..= "E"')
|
|
eof
|
|
call assert_equal('ABCDE', s)
|
|
endfunc
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|