1#@!#!123s

32759 1#@!#!123s

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

Filename : rfc3021.t

back

use NetAddr::IP;

$| = 1;

print '1..4', "\n";

my $test = 1;

my $ip = new NetAddr::IP('192.168.1.8/31');
my @hosts = $ip->hostenum;

print scalar(@hosts)," found where none expected\nnot "
	if @hosts;
print "ok ",$test++,"\n";

NetAddr::IP::import qw(:rfc3021);

@hosts = $ip->hostenum;

print scalar(@hosts)," found where 2 expected\nnot "
	unless @hosts == 2;
print "ok ",$test++,"\n";

print "got: $hosts[0], exp: 192.168.1.8/32\nnot "
	unless "$hosts[0]" eq '192.168.1.8/32';
print "ok ",$test++,"\n";

print "got: $hosts[1], exp: 192.168.1.9/32\nnot "
	unless "$hosts[1]" eq '192.168.1.9/32';
print "ok ",$test++,"\n";