One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/NetAddr-IP-4.079-0/t/

View File Name : splitref.t

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[$_]");
}