use Test::Mojo::IRC -ua;
my $t = Test::Mojo::IRC->new;
my $server = $t->start_server;
my $irc = Mojo::IRC::UA->new(server => $server, user => "test$$");
$irc->connect(sub { Mojo::IOLoop->stop });
Mojo::IOLoop->start;
$t->run(
[qr{LIST} => ['main', 'channel-list.irc']],
sub {
my ($err, $channels);
$irc->channels(sub { ($err, $channels) = @_[1, 2]; Mojo::IOLoop->stop });
Mojo::IOLoop->start;
is $err, '', 'err';
is_deeply($channels,
{'#test123' => {n_users => 1, topic => ''}, '#convos' => {n_users => 4, topic => 'some cool topic'}}, 'channels');
},
);
done_testing;
__DATA__
@@ channel-list.irc
:hybrid8.debian.local 321 test10409 Channel :Users Name
:hybrid8.debian.local 322 test10409 #test123 1 :[+nt]
:hybrid8.debian.local 322 test10409 #convos 4 :[+nt] some cool topic
:hybrid8.debian.local 323 test10409 :End of /LIST