File: 04_pocosi.t

package info (click to toggle)
libpoe-component-irc-perl 6.93%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, trixie
  • size: 1,532 kB
  • sloc: perl: 16,219; makefile: 5
file content (23 lines) | stat: -rw-r--r-- 447 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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');
}