One Hat Cyber Team

Your IP: 216.73.216.67
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 : v4-range.t

use NetAddr::IP::Lite;

use Test::More;

my @ranges = (
	      [ '10.0.0.0/8', '10.0.0.0', '10.255.255.255' ],
	      [ '192.168.0.0/16', '192.168.0.0', '192.168.255.255' ],
	      );

my @weird = (
	     [ '128.111.12.0', '128.111.12.129' ],
	     );

plan tests => 6 * @ranges + 2 * @weird + 28;

for my $r (@ranges) {
    my $r1 = new NetAddr::IP::Lite $r->[1] . '-' . $r->[2];
    isa_ok($r1, 'NetAddr::IP::Lite');
    is($r1, $r->[0], "Correct interpretation (with space)");

    $r1 = new NetAddr::IP::Lite $r->[1] . ' - ' . $r->[2];
    isa_ok($r1, 'NetAddr::IP::Lite');
    is($r1, $r->[0], "Correct interpretation (w/o space)");

    $r1 = new NetAddr::IP::Lite $r->[0];
    isa_ok($r1, 'NetAddr::IP::Lite');
    is($r1->range, $r->[1] . ' - ' . $r->[2], "Correct reverse");
}

for my $r (@weird)
{
    my $r1 = new NetAddr::IP::Lite $r->[0] . '-' . $r->[1];
    ok(! defined $r1, "Weird range w/o space produces undef");
    $r1 = new NetAddr::IP::Lite $r->[0] . ' - ' . $r->[1];
    ok(! defined $r1, "Weird range with space produces undef");
}

for my $o (254, 252, 248, 240, 224, 192, 128)
{
    my $r1 = new NetAddr::IP::Lite '0.0.0.0 - ' . $o . '.0.0.0';
    ok(! defined $r1, "Weird $o range, first octet");
    $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.' . $o . '.0.0';
    ok(! defined $r1, "Weird $o range, second octet");
    $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.' . $o . '.0';
    ok(! defined $r1, "Weird $o range, third octet");
    $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.0.' . $o;
    ok(! defined $r1, "Weird $o range, fourth octet");
}