#!/usr/bin/env perl
use Test::More;
use Moses::Declare;
POE::Kernel->run;
bot SampleBot {
    server 'irc.perl.org';
    channels '#bots';
}

ok( my $bot = SampleBot->new(), 'new bot' );
is( $bot->get_server,   'irc.perl.org',     'right server' );
is( $bot->get_nickname, 'SampleBot',        'right nick' );
is( $bot->nick,         $bot->get_nickname, 'nick alias works' );
is_deeply( scalar $bot->get_channels, ['#bots'], 'right channels' );

plugin SamplePlugin {
    sub S_bot_addressed { }
}

ok( my $plugin = SamplePlugin->new(bot => $bot), 'new plugin' );
is_deeply( $plugin->_events, ['S_bot_addressed'], 'right events' );

done_testing;