1 2#use diagnostics; 3use NetAddr::IP::Lite; 4 5$| = 1; 6 7print "1..3\n"; 8 9my $test = 1; 10sub ok() { 11 print 'ok ',$test++,"\n"; 12} 13 14my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 15my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); 16my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); 17 18## test bits lo 19$exp = 128; 20my $bits = $loip->bits; 21print "got: $bits, exp: $exp\nnot " 22 unless $bits == $exp; 23&ok; 24 25## test bits hi 26$exp = 128; 27$bits = $hiip->bits; 28print "got: $bits, exp: $exp\nnot " 29 unless $bits == $exp; 30&ok; 31 32## test dotquad bits 33$exp = 32; 34$bits = $dqip->bits; 35print "got: $bits, exp: $exp\nnot " 36 unless $bits == $exp; 37&ok; 38