1 2#use diagnostics; 3use NetAddr::IP::Lite; 4 5$| = 1; 6 7print "1..12\n"; 8 9my $test = 1; 10sub ok() { 11 print 'ok ',$test++,"\n"; 12} 13 14my $net4 = NetAddr::IP::Lite->new('1.2.3.5/30'); 15my $net6 = NetAddr::IP::Lite->new('FF::85/126'); 16my @try = qw( 17 1.2.3.3 0 18 1.2.3.4 1 19 1.2.3.5 1 20 1.2.3.6 1 21 1.2.3.7 1 22 1.2.3.8 0 23 FF::83 0 24 FF::84 1 25 FF::85 1 26 FF::86 1 27 FF::87 1 28 FF::88 0 29); 30 31for (my $i=0;$i<@try;$i+=2) { 32 my $ip = NetAddr::IP::Lite->new($try[$i]); 33 my $rv = ($try[$i] =~ /:/) 34 ? $net6->contains($ip) 35 : $net4->contains($ip); 36 print "got: $rv, exp: $try[$i+1]\nnot " 37 unless $rv == $try[$i+1]; 38 &ok; 39} 40 41