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
|
use Test::More qw(no_plan); #tests => 28;
use_ok('NetAddr::IP');
my $ip = new NetAddr::IP('ffff:a123:b345:c789::/48');
my $rv;
ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48");
my $nets = $ip->splitref(48);
ok($nets,'there is a net');
ok(@$nets == 1,'one item net');
ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48");
$nets = $ip->splitref(49,50);
ok($nets,'there are nets');
ok(($rv = @$nets) == 3,"$rv is 3 item net");
my @exp = qw(
FFFF:A123:B345:0:0:0:0:0/49
FFFF:A123:B345:8000:0:0:0:0/50
FFFF:A123:B345:C000:0:0:0:0/50
);
foreach(0..$#{$nets}) {
ok(($rv = sprintf("%s",$nets->[$_])) eq $exp[$_], "$rv eq $exp[$_]");
}
|
