# This -*- perl -*- code excercises the basic v6 functionality

# $Id: v6-base.t,v 1.4 2002/12/17 05:09:50 lem Exp $

BEGIN { our @addr = qw(:: ::1 f34::123/40 ); };

use NetAddr::IP;
use Test::More tests => 4 * @addr + 4;

my($a, $ip, $test);

for $a (@addr) {
	$ip = new NetAddr::IP $a;
	$a =~ s,/\d+,,;
	isa_ok($ip, 'NetAddr::IP');
	is($ip->compact_addr, $a);
	is($ip->bits, 128);
	is($ip->version, 6);
}

$test = new NetAddr::IP f34::1;
isa_ok($test, 'NetAddr::IP');
ok($ip->network->contains($test), "->contains");

$test = new NetAddr::IP f35::1/40;
isa_ok($test, 'NetAddr::IP');
ok(!$ip->network->contains($test), "!->contains");