view release on metacpan or  search on metacpan

t/01-simple.t  view on Meta::CPAN

#               my $channel_name = $raw->{params}->[0];
#               my $msg          = $raw->{params}->[1];
#               my $command      = $raw->{command};
#               note 'test1';
#               is $channel, '#foo';
#               is $command, 'PRIVMSG';
#               is $who, 'testbot!~testbot@fushihara.anyevent.server.irc';
#               is $msg, 'yo', 'publicmsg';
#           },
            sub {
                my ($channel, $raw) = @_;
                my $who          = $raw->{prefix} || '*';
                my $channel_name = $raw->{params}->[0];
                my $msg          = $raw->{params}->[1];
                my $command      = $raw->{command};
                note 'test2';
                is $channel, '#foo';
                is $command, 'PRIVMSG';
                is $who, 'kan!kan@fushihara.anyevent.server.irc';
                is $msg, 'YEAAAAH!', 'publicmsg';
            },
        );

        my $irc = AnyEvent::IRC::Client->new();
        $irc->reg_cb(
            'irc_001' => sub {
                ok 1, 'irc_001';
            },
            registered => sub {
                ok 1, 'registered';
                $irc->send_srv(JOIN => '#foo');
                $irc->send_srv(PRIVMSG => '#foo', 'yo');
                $irc->send_srv(TOPIC => 'boo');
            },
            sent => sub {
                ok 1, 'sentsrv';
            },
            'irc_privmsg' => sub {
                # use Data::Dumper; warn Dumper($_[1]);
            },
            'publicmsg' => sub {
                my ($irc, $channel, $raw) = @_;
                my $cb = shift @callbacks;
                $cb->($channel, $raw);
                if (scalar(@callbacks) == 0) {
                    $cv->send();
                }
            },
            'join' => sub {
                ok 1, 'join event';
                $cv_join->send();
            },
        );
        $irc->connect(
            '127.0.0.1',
            $port,
            {
                nick     => 'testbot',
                user     => 'testbot',
                real     => 'test bot',
                password => 'kogaidan'
            }
        );

        $cv->recv();
        $cv_join->recv();

        done_testing;
    },
    server => sub {
        my $port = shift;
        my $cv = AE::cv();

        my $ircd = AnyEvent::IRC::Server->new(
            port         => $port,
            'servername' => 'fushihara.anyevent.server.irc'
        );
        $ircd->reg_cb(
            daemon_privmsg => sub {
                my ($ircd, $nick, $chan, $text) = @_;
                if ($text eq 'yo') {
                    ok 1, 'privmsg callback!';
                    $ircd->daemon_cmd_privmsg('kan', '#foo', 'YEAAAAH!');
                }
            },
        );
        $ircd->run();

        $cv->recv();
    },
);