use NetAddr::IP::Lite;

my @yes_pairs = (
		 [ [ '127.0.0.0', '255.0.0.0' ],
		   [ '127.0.0.1', '255.255.255.255'] ],
		 [ [ '10.0.0.0', '255.255.255.0' ],
		   [ '10.0.0.128', '255.255.255.128' ] ],
		 [ [ '10.0.0.0', '255.0.0.0' ],
		   [ '10.0.0.0', '255.0.0.0' ]],
		 [ [ '10.0.0.0', '255.0.0.0' ],
		   [ '10.0.0.1', '255.0.0.0' ]],
		 [ [ '10.0.0.0', '255.255.255.254' ],
		   [ '10.0.0.1', '255.255.255.254' ]],
		 [ [ '10.0.0.0', '255.255.255.254' ],
		   [ '10.0.0.1', '255.255.255.255' ]],
		 [ [ '10.0.0.1', '255.0.0.0' ],
		   [ '10.0.0.1', '255.255.255.255' ]],
		 [ [ 'default', 'default' ],
		   [ '10.0.0.1', '255.255.255.254' ]],
		 [ [ 'default', 'default' ],
		   [ 'broadcast', undef ]],
		 [ [ 'loopback', '255.0.0.0' ],
		   [ '127.0.0.0', '255.0.0.0' ] ],
		 );

my @no_pairs = (
		[ [ '127.0.0.1', '255.255.255.255' ],
		  [ '127.0.0.0', '255.0.0.0' ] ],
		[ [ '10.0.0.0', '255.0.0.0' ],
		  [ '11.0.0.0', '255.0.0.0' ] ],
		[ [ '10.0.1.0', '255.255.255.0' ],
		  [ '10.0.2.0', '255.255.255.0' ] ],
		 [ [ '10.0.0.1', '255.255.255.254' ],
		   [ 'default', '0' ] ],
		);

$| = 1;
print "1..", 2 * (scalar @yes_pairs + scalar @no_pairs), "\n";

my $count = 1;

for my $p (@yes_pairs) {
    my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1];
    my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1];
    print (($ip_a->contains($ip_b) ? '' : 'not '), 'ok ', $count++, "\n");
    print (($ip_b->within($ip_a) ? '' : 'not '), 'ok ', $count++, "\n");

#    print "a = ", $ip_a->addr, "/", $ip_a->mask, "\n";
#    print "b = ", $ip_b->addr, "/", $ip_b->mask, "\n";

}

for my $p (@no_pairs) {
    my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1];
    my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1];
    print (($ip_a->contains($ip_b) ? 'not ' : ''), 'ok ', $count++, "\n");
    print (($ip_b->within($ip_a) ? 'not ' : ''), 'ok ', $count++, "\n");
}