File: v4-split-bulk.t

package info (click to toggle)
libnetaddr-ip-perl 3.07-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 172 kB
  • ctags: 44
  • sloc: perl: 634; makefile: 50
file content (23 lines) | stat: -rw-r--r-- 471 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use NetAddr::IP;

my @addr = ( [ '10.0.0.0', 20, 32, 4096 ],
	     [ '10.0.0.0', 22, 32, 1024 ],
	     [ '10.0.0.0', 24, 32, 256 ],
	     [ '10.0.0.0', 19, 32, 8192 ]
	    );

my $count = $| = 1;
print "1..", (scalar @addr), "\n";

for my $a (@addr) {
    my $ip = new NetAddr::IP $a->[0], $a->[1];
    my $r = $ip->splitref($a->[2]);

    if (scalar @$r == $a->[3]) {
	print "ok ", $count++, "\n";
    }
    else {
	print "not ok ", $count++, " (number $a)\n";
    }

}