WIP

jacquesg · Nov 25, 2019 · 4b69a7c · 4b69a7c
1 parent 591ffef
commit 4b69a7c
Show file tree

Hide file tree

Showing 5 changed files with 26 additions and 1 deletion.
diff --git a/lib/Neovim/Ext/Plugin/Host.pm b/lib/Neovim/Ext/Plugin/Host.pm
@@ -164,7 +164,7 @@ sub _unload
 	{
 		my $plugin = $this->_loaded->{$path};
 
-		foreach my $hook (@{$plugin->{module}->get_shutdown_hooks()})
+		foreach my $hook ($plugin->{module}->get_shutdown_hooks())
 		{
 			$hook->();
 		}

diff --git a/t/10-rplugin_load.t b/t/10-rplugin_load.t
@@ -0,0 +1,25 @@
+#!perl
+
+use lib '.', 't/';
+use File::Spec::Functions qw/rel2abs/;
+use Test::More;
+use TestNvim;
+use Neovim::Ext;
+
+my $tester = TestNvim->new;
+my $vim = $tester->start();
+my $host = Neovim::Ext::Plugin::Host->new ($vim);
+
+is scalar (keys %{$host->request_handlers}), 3;
+is scalar (keys %{$host->notification_handlers}), 1;
+
+$host->_load (rel2abs ('t/rplugin/perl/TestPlugin.pm'));
+is scalar (keys %{$host->request_handlers}), 4;
+is scalar (keys %{$host->notification_handlers}), 2;
+
+$host->_unload;
+is scalar (keys %{$host->request_handlers}), 3;
+is scalar (keys %{$host->notification_handlers}), 1;
+
+done_testing();
+
diff --git a/t/10-rplugin_setup.t → t/20-rplugin_setup.t b/t/10-rplugin_setup.t → t/20-rplugin_setup.t
diff --git a/t/11-rplugin_command.t → t/21-rplugin_command.t b/t/11-rplugin_command.t → t/21-rplugin_command.t
diff --git a/t/11-rplugin_function.t → t/21-rplugin_function.t b/t/11-rplugin_function.t → t/21-rplugin_function.t