mirror of
https://github.com/neovim/neovim.git
synced 2024-09-17 20:58:20 -04:00
052498ed42
Specifically, functions that are run in the context of the test runner are put in module `test/testutil.lua` while the functions that are run in the context of the test session are put in `test/functional/testnvim.lua`. Closes https://github.com/neovim/neovim/issues/27004.
141 lines
3.3 KiB
Lua
141 lines
3.3 KiB
Lua
local t = require('test.testutil')
|
|
local n = require('test.functional.testnvim')()
|
|
|
|
local eq, clear = t.eq, n.clear
|
|
local missing_provider = n.missing_provider
|
|
local command = n.command
|
|
local write_file = t.write_file
|
|
local eval = n.eval
|
|
local retry = t.retry
|
|
local api = n.api
|
|
local insert = n.insert
|
|
local expect = n.expect
|
|
local feed = n.feed
|
|
|
|
do
|
|
clear()
|
|
local reason = missing_provider('perl')
|
|
if reason then
|
|
pending(
|
|
string.format('Missing perl host, or perl version is too old (%s)', reason),
|
|
function() end
|
|
)
|
|
return
|
|
end
|
|
end
|
|
|
|
before_each(function()
|
|
clear()
|
|
end)
|
|
|
|
describe('legacy perl provider', function()
|
|
it('feature test', function()
|
|
eq(1, eval('has("perl")'))
|
|
end)
|
|
|
|
it(':perl command', function()
|
|
command('perl $vim->vars->{set_by_perl} = [100, 0];')
|
|
eq({ 100, 0 }, eval('g:set_by_perl'))
|
|
end)
|
|
|
|
it(':perlfile command', function()
|
|
local fname = 'perlfile.pl'
|
|
write_file(fname, '$vim->command("let set_by_perlfile = 123")')
|
|
command('perlfile perlfile.pl')
|
|
eq(123, eval('g:set_by_perlfile'))
|
|
os.remove(fname)
|
|
end)
|
|
|
|
it(':perldo command', function()
|
|
-- :perldo 1; doesn't change $_,
|
|
-- the buffer should not be changed
|
|
command('normal :perldo 1;')
|
|
eq(false, api.nvim_get_option_value('modified', {}))
|
|
-- insert some text
|
|
insert('abc\ndef\nghi')
|
|
expect([[
|
|
abc
|
|
def
|
|
ghi]])
|
|
-- go to top and select and replace the first two lines
|
|
feed('ggvj:perldo $_ = reverse ($_)."$linenr"<CR>')
|
|
expect([[
|
|
cba1
|
|
fed2
|
|
ghi]])
|
|
end)
|
|
|
|
it('perleval()', function()
|
|
eq({ 1, 2, { ['key'] = 'val' } }, eval([[perleval('[1, 2, {"key" => "val"}]')]]))
|
|
end)
|
|
end)
|
|
|
|
describe('perl provider', function()
|
|
teardown(function()
|
|
os.remove('Xtest-perl-hello.pl')
|
|
os.remove('Xtest-perl-hello-plugin.pl')
|
|
end)
|
|
|
|
it('works', function()
|
|
local fname = 'Xtest-perl-hello.pl'
|
|
write_file(
|
|
fname,
|
|
[[
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
use Neovim::Ext;
|
|
use Neovim::Ext::MsgPack::RPC;
|
|
|
|
my $session = Neovim::Ext::MsgPack::RPC::socket_session($ENV{NVIM});
|
|
my $nvim = Neovim::Ext::from_session($session);
|
|
$nvim->command('let g:job_out = "hello"');
|
|
1;
|
|
]]
|
|
)
|
|
command('let g:job_id = jobstart(["perl", "' .. fname .. '"])')
|
|
retry(nil, 3000, function()
|
|
eq('hello', eval('g:job_out'))
|
|
end)
|
|
end)
|
|
|
|
it('plugin works', function()
|
|
local fname = 'Xtest-perl-hello-plugin.pl'
|
|
write_file(
|
|
fname,
|
|
[[
|
|
package TestPlugin;
|
|
use strict;
|
|
use warnings;
|
|
use parent qw(Neovim::Ext::Plugin);
|
|
|
|
__PACKAGE__->register;
|
|
|
|
@{TestPlugin::commands} = ();
|
|
@{TestPlugin::specs} = ();
|
|
sub test_command :nvim_command('TestCommand')
|
|
{
|
|
my ($this) = @_;
|
|
$this->nvim->command('let g:job_out = "hello-plugin"');
|
|
}
|
|
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
use Neovim::Ext;
|
|
use Neovim::Ext::MsgPack::RPC;
|
|
|
|
my $session = Neovim::Ext::MsgPack::RPC::socket_session($ENV{NVIM});
|
|
my $nvim = Neovim::Ext::from_session($session);
|
|
my $plugin = TestPlugin->new($nvim);
|
|
$plugin->test_command();
|
|
1;
|
|
]]
|
|
)
|
|
command('let g:job_id = jobstart(["perl", "' .. fname .. '"])')
|
|
retry(nil, 3000, function()
|
|
eq('hello-plugin', eval('g:job_out'))
|
|
end)
|
|
end)
|
|
end)
|