view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

    61.1.255.255    ?
    62.12.95.255    CY
    62.12.96.0      ?
    62.12.127.255   ?
    62.12.128.0     CH
    172.15.255.255  ?
    172.16.0.0      **
    172.31.255.255  **
    172.32.0.0      ?
    192.167.255.255 ?
    192.168.0.0     **
    192.168.255.255 **
    192.169.0.0     ?
    217.198.128.241 UA
    217.255.255.255 DE
    218.0.0.0       ?
    218.0.0.1       ?
    218.0.0.111     ?
    218.0.111.111   ?
    218.111.111.111 ?
    224.111.111.111 ?
    254.111.111.111 ?
    255.255.255.255 ?
);

for(my $i=0; $i<@tests_v4; $i+=2) {
    my ($ip, $test_cc) = ($tests_v4[$i], $tests_v4[$i+1]);
    #print STDERR ("\n*** $ip $cc ", $ipcc->inet_atocc($ip));
    my $cc = $ipcc->inet_atocc($ip);
    $cc = '?' unless defined($cc);
    ok($cc eq $test_cc, "lookup $ip, got $cc, expected $test_cc");
}

my @tests_v6 = qw(
    ::                                      ?
    ::1                                     ?
    2001:5ff::                              ?
    2001:5ff:ffff:ffff:ffff:ffff:ffff:ffff  ?
    2001:600::                              EU
    2001:600:1fff:ffff::                    EU
    2001:600:2000::                         EU
    2001:600:ffff:ffff::                    EU
    2001:601::                              ?
    2a02:650:a3f0:4626:94f0:b695:a178:f9d2  DE
    2a02:660:ffff:ffff::                    RS
    2a02:661::                              ?
    d730:3039:322c:4516:bb78:caf4:1d88:c62f ?
    fbff:ffff:ffff:ffff::                   ?
    fc00::                                  **
    fdff:ffff:ffff:ffff::                   **
    fe00::                                  ?
    ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff ?
);

SKIP: {
    skip("Socket doesn't support IPv6", 18)
        if !$ipv6_supported;

    for (my $i = 0; $i < @tests_v6; $i += 2) {
        my ($ip, $test_cc) = ($tests_v6[$i], $tests_v6[$i+1]);
        my $cc = $ipcc->inet6_atocc($ip);
        $cc = '?' unless defined($cc);
        ok($cc eq $test_cc, "lookup $ip, got $cc, expected $test_cc");
    }
}

unlink($filename);