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