# Before `make install' is performed this script should be runnable with
# make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
use Test::More tests => 200;
#use diagnostics;
# test 1
BEGIN { use_ok( 'Net::Interface',qw(
mask2cidr
)); }
my $loaded = 1;
END {print "not ok 1\n" unless $loaded;}
# should fail
foreach (qw( a33 b5555 c15151515151515 d1717171717171717)) {
eval {
mask2cidr($_);
};
ok($@,"forced croak on bad address length ". length($_));
}
my @results = qw(
0000:0000:0000:0000:0000:0000:0000:0000
8000:0000:0000:0000:0000:0000:0000:0000
C000:0000:0000:0000:0000:0000:0000:0000
E000:0000:0000:0000:0000:0000:0000:0000
F000:0000:0000:0000:0000:0000:0000:0000
F800:0000:0000:0000:0000:0000:0000:0000
FC00:0000:0000:0000:0000:0000:0000:0000
FE00:0000:0000:0000:0000:0000:0000:0000
FF00:0000:0000:0000:0000:0000:0000:0000
FF80:0000:0000:0000:0000:0000:0000:0000
FFC0:0000:0000:0000:0000:0000:0000:0000
FFE0:0000:0000:0000:0000:0000:0000:0000
FFF0:0000:0000:0000:0000:0000:0000:0000
FFF8:0000:0000:0000:0000:0000:0000:0000
FFFC:0000:0000:0000:0000:0000:0000:0000
FFFE:0000:0000:0000:0000:0000:0000:0000
FFFF:0000:0000:0000:0000:0000:0000:0000
FFFF:8000:0000:0000:0000:0000:0000:0000
FFFF:C000:0000:0000:0000:0000:0000:0000
FFFF:E000:0000:0000:0000:0000:0000:0000
FFFF:F000:0000:0000:0000:0000:0000:0000
FFFF:F800:0000:0000:0000:0000:0000:0000
FFFF:FC00:0000:0000:0000:0000:0000:0000
FFFF:FE00:0000:0000:0000:0000:0000:0000
FFFF:FF00:0000:0000:0000:0000:0000:0000
FFFF:FF80:0000:0000:0000:0000:0000:0000
FFFF:FFC0:0000:0000:0000:0000:0000:0000
FFFF:FFE0:0000:0000:0000:0000:0000:0000
FFFF:FFF0:0000:0000:0000:0000:0000:0000
FFFF:FFF8:0000:0000:0000:0000:0000:0000
FFFF:FFFC:0000:0000:0000:0000:0000:0000
FFFF:FFFE:0000:0000:0000:0000:0000:0000
FFFF:FFFF:0000:0000:0000:0000:0000:0000
FFFF:FFFF:8000:0000:0000:0000:0000:0000
FFFF:FFFF:C000:0000:0000:0000:0000:0000
FFFF:FFFF:E000:0000:0000:0000:0000:0000
FFFF:FFFF:F000:0000:0000:0000:0000:0000
FFFF:FFFF:F800:0000:0000:0000:0000:0000
FFFF:FFFF:FC00:0000:0000:0000:0000:0000
FFFF:FFFF:FE00:0000:0000:0000:0000:0000
FFFF:FFFF:FF00:0000:0000:0000:0000:0000
FFFF:FFFF:FF80:0000:0000:0000:0000:0000
FFFF:FFFF:FFC0:0000:0000:0000:0000:0000
FFFF:FFFF:FFE0:0000:0000:0000:0000:0000
FFFF:FFFF:FFF0:0000:0000:0000:0000:0000
FFFF:FFFF:FFF8:0000:0000:0000:0000:0000
FFFF:FFFF:FFFC:0000:0000:0000:0000:0000
FFFF:FFFF:FFFE:0000:0000:0000:0000:0000
FFFF:FFFF:FFFF:0000:0000:0000:0000:0000
FFFF:FFFF:FFFF:8000:0000:0000:0000:0000
FFFF:FFFF:FFFF:C000:0000:0000:0000:0000
FFFF:FFFF:FFFF:E000:0000:0000:0000:0000
FFFF:FFFF:FFFF:F000:0000:0000:0000:0000
FFFF:FFFF:FFFF:F800:0000:0000:0000:0000
FFFF:FFFF:FFFF:FC00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FE00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FF00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FF80:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFC0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFE0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFF0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFF8:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFC:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFE:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:8000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:C000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:E000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:F000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:F800:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FC00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FE00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FF00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FF80:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFC0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFE0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFF0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFF8:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFC:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFE:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:8000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:C000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:E000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:F000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:F800:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FC00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FE00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FF00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FF80:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFC0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFE0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFF0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFF8:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFC:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:8000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:C000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:E000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F800:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FC00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FE00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF80:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFC0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFE0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF8:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:8000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:C000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:E000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F800
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FC00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FE00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF80
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFC0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFE0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF8
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF
);
foreach (0..$#results) {
my @hex = split(/:/,$results[$_]);
foreach(0..$#hex) {
$hex[$_] = hex($hex[$_] || 0);
}
ok(mask2cidr(pack("n8",@hex)) == $_);
}
@results = qw(
00000000
80000000
c0000000
e0000000
f0000000
f8000000
fc000000
fe000000
ff000000
ff800000
ffc00000
ffe00000
fff00000
fff80000
fffc0000
fffe0000
ffff0000
ffff8000
ffffc000
ffffe000
fffff000
fffff800
fffffc00
fffffe00
ffffff00
ffffff80
ffffffc0
ffffffe0
fffffff0
fffffff8
fffffffc
fffffffe
ffffffff
);
foreach (0..$#results) {
$results[$_] =~ /(\w{4})(\w{4})/;
my @hex = (hex($1) || 0,hex($2) || 0);
ok(mask2cidr((pack("n2",@hex))) == $_);
}
my $bo = _bo Net::Interface;
foreach (0..$#results) {
$results[$_] =~ /(\w{4})(\w{4})/;
my @hex = (hex($1) || 0,hex($2) || 0);
ok($bo->mask2cidr((pack("n2",@hex))) == $_);
}