1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Protocol::IRC::Message;
sub test_argnames
{
my $testname = shift;
my $line = shift;
my %asserts = @_;
my $msg = Protocol::IRC::Message->new_from_line( $line );
exists $asserts{names} and
is_deeply( $msg->arg_names, $asserts{names}, "$testname arg_names" );
exists $asserts{args} and
is_deeply( $msg->named_args, $asserts{args}, "$testname named_args" );
}
test_argnames "PING",
":server PING 1234",
names => { text => 0 },
args => { text => "1234" };
test_argnames "PRIVMSG",
":TheirNick!user\@server PRIVMSG YourNick :A message",
names => { targets => 0, text => 1 },
args => { targets => "YourNick", text => "A message" };
test_argnames "MODE",
":TheirNick!user\@server MODE #somechannel +oo Some Friends",
names => { target_name => 0, modechars => "1", modeargs => "2.." },
args => { target_name => "#somechannel", modechars => "+oo", modeargs => [ "Some", "Friends" ] };
test_argnames "PART",
":TheirNick!user\@server PART #somechannel :A leaving message",
names => { target_name => 0, text => 1 },
args => { target_name => "#somechannel", text => "A leaving message" };
test_argnames "005",
":server 005 YourNick RED=red BLUE=blue :are supported by this server",
names => { isupport => "1..-2", text => -1 },
args => { isupport => [qw( RED=red BLUE=blue )], text => "are supported by this server" };
test_argnames "324",
":server 324 YourNick #somechannel +ntl 300",
names => { target_name => 1, modechars => "2", modeargs => "3.." },
args => { target_name => "#somechannel", modechars => "+ntl", modeargs => [ "300" ] };
test_argnames "319",
":server 319 YourNick Someone :#foo #bar #splot #wibble",
args => { target_name => 'Someone', channels => ['#foo', '#bar', '#splot', '#wibble'] };
{
my $msg = Protocol::IRC::Message->new_from_line( ":server 372 YourNick :- message here -" );
is( $msg->gate_disposition, "-motd", '372 gate_disposition' );
}
is_deeply( Protocol::IRC::Message->arg_names( "PING" ),
{ text => 0 },
'Protocol::IRC::Message->arg_names as a class method' );
done_testing;
|
