view release on metacpan or  search on metacpan

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

use Test::TCP;
use AnyEvent::IRC::Server;
use AE;

test_tcp(
    client => sub {
        my $port = shift;
        my $cv = AE::cv();
        my $cv_join = AE::cv();

        my @callbacks = (
#           sub {
#               my ($channel, $raw) = @_;
#               my $who          = $raw->{prefix} || '*';
#               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';

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

                $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',