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/Lite/t/

View File Name : bin_ips.t

#use diagnostics;
use NetAddr::IP::Lite;

$| = 1;

sub ok() {
  print 'ok ',$test++,"\n";
}

print "1..10\n";

$test = 1;

############## test new6

my $exp = '0:0:0:0:0:0:0:3039/1';

my $ip = NetAddr::IP::Lite->new6(12345,1);
my $got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

$ip = NetAddr::IP::Lite->new6('12345',1);
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

$ip = NetAddr::IP::Lite->new6('12345/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;


# 2^127	170141183460469231731687303715884105728

$exp = '8000:0:0:0:0:0:0:0/1';

$ip = NetAddr::IP::Lite->new6('170141183460469231731687303715884105728/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

# 2^128	340282366920938463463374607431768211456
# minus one

$exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF/1';

$ip = NetAddr::IP::Lite->new6('340282366920938463463374607431768211455/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

############# test new

$exp = '0.0.48.57/1';

$ip = NetAddr::IP::Lite->new(12345,1);
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

$ip = NetAddr::IP::Lite->new('12345',1);
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

$ip = NetAddr::IP::Lite->new('12345/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;


# 2^127	170141183460469231731687303715884105728

$exp = '8000:0:0:0:0:0:0:0/1';

$ip = NetAddr::IP::Lite->new('170141183460469231731687303715884105728/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;

# 2^128	340282366920938463463374607431768211456
# minus one

$exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF/1';

$ip = NetAddr::IP::Lite->new('340282366920938463463374607431768211455/1');
$got = $ip->cidr();
print "got: $got\nexp: $exp\nnot "
	unless $got eq $exp;
&ok;