|
Packit |
0b51a0 |
use NetAddr::IP::Lite;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
use Test::More;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my @ranges = (
|
|
Packit |
0b51a0 |
[ '10.0.0.0/8', '10.0.0.0', '10.255.255.255' ],
|
|
Packit |
0b51a0 |
[ '192.168.0.0/16', '192.168.0.0', '192.168.255.255' ],
|
|
Packit |
0b51a0 |
);
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my @weird = (
|
|
Packit |
0b51a0 |
[ '128.111.12.0', '128.111.12.129' ],
|
|
Packit |
0b51a0 |
);
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
plan tests => 6 * @ranges + 2 * @weird + 28;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
for my $r (@ranges) {
|
|
Packit |
0b51a0 |
my $r1 = new NetAddr::IP::Lite $r->[1] . '-' . $r->[2];
|
|
Packit |
0b51a0 |
isa_ok($r1, 'NetAddr::IP::Lite');
|
|
Packit |
0b51a0 |
is($r1, $r->[0], "Correct interpretation (with space)");
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite $r->[1] . ' - ' . $r->[2];
|
|
Packit |
0b51a0 |
isa_ok($r1, 'NetAddr::IP::Lite');
|
|
Packit |
0b51a0 |
is($r1, $r->[0], "Correct interpretation (w/o space)");
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite $r->[0];
|
|
Packit |
0b51a0 |
isa_ok($r1, 'NetAddr::IP::Lite');
|
|
Packit |
0b51a0 |
is($r1->range, $r->[1] . ' - ' . $r->[2], "Correct reverse");
|
|
Packit |
0b51a0 |
}
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
for my $r (@weird)
|
|
Packit |
0b51a0 |
{
|
|
Packit |
0b51a0 |
my $r1 = new NetAddr::IP::Lite $r->[0] . '-' . $r->[1];
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird range w/o space produces undef");
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite $r->[0] . ' - ' . $r->[1];
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird range with space produces undef");
|
|
Packit |
0b51a0 |
}
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
for my $o (254, 252, 248, 240, 224, 192, 128)
|
|
Packit |
0b51a0 |
{
|
|
Packit |
0b51a0 |
my $r1 = new NetAddr::IP::Lite '0.0.0.0 - ' . $o . '.0.0.0';
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird $o range, first octet");
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.' . $o . '.0.0';
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird $o range, second octet");
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.' . $o . '.0';
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird $o range, third octet");
|
|
Packit |
0b51a0 |
$r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.0.' . $o;
|
|
Packit |
0b51a0 |
ok(! defined $r1, "Weird $o range, fourth octet");
|
|
Packit |
0b51a0 |
}
|