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