use strict; use warnings FATAL => 'all'; use lib 't/inc'; use POE; use POE::Component::Server::IRC; use Test::More tests => 2; my $ircd = POE::Component::Server::IRC->spawn(auth => 0); isa_ok($ircd, 'POE::Component::Server::IRC'); POE::Session->create( package_states => [ main => [ qw(_start) ] ], ); $poe_kernel->run(); sub _start { my ($kernel) = $_[KERNEL]; pass('Session started'); $ircd->yield('shutdown'); }