use Test::More tests => 61;
use strict; use warnings;
BEGIN { use_ok('Bot::Cobalt::Core::Loader') }
my $prefix = 'Bot::Cobalt::Plugin::';
my @core = map { $prefix.$_ } qw/
Alarmclock
Auth
Games
Info3
Master
PluginMgr
RDB
Rehash
Seen
Version
WWW
Extras::CPAN
Extras::DNS
Extras::Karma
Extras::Money
Extras::Relay
Extras::Shorten
Extras::TempConv
OutputFilters::StripColor
OutputFilters::StripFormat
/;
for my $module (@core) {
{
local $@;
my $plugin_obj = eval {
Bot::Cobalt::Core::Loader->load($module)
};
if ($@ || !$plugin_obj) {
fail("Could not Core::Loader->load() for $module: $@");
} else {
pass("load() appears successful for $module");
is(ref $plugin_obj, $module, "Instanced: $module")
}
my $is_reload =
Bot::Cobalt::Core::Loader->is_reloadable($plugin_obj);
ok( Bot::Cobalt::Core::Loader->unload($module), "unload() for $module" );
}
}