# This -*- perl -*- code excercises the basic v6 functionality # $Id: v6-base.t,v 1.9 2003/10/10 18:46:53 lem Exp $ our @addr = ( ['::', 3, '0000:0000:0000:0000:0000:0000:0000:0000/128'], ['::1', 3, '0000:0000:0000:0000:0000:0000:0000:0001/128'], ['f34::123/40', 3, '0f34:0000:0000:0000:0000:0000:0000:0003/40'], ['dead:beef::1/40', 3, 'dead:beef:0000:0000:0000:0000:0000:0003/40'], ['dead:beef::1/40', 4, 'dead:beef:0000:0000:0000:0000:0000:0004/40'], ['dead:beef::1/40', 5, 'dead:beef:0000:0000:0000:0000:0000:0005/40'], ['dead:beef::1/40', 6, 'dead:beef:0000:0000:0000:0000:0000:0006/40'], ['dead:beef::1/40', 7, 'dead:beef:0000:0000:0000:0000:0000:0007/40'], ['dead:beef::1/40', 8, 'dead:beef:0000:0000:0000:0000:0000:0008/40'], ['dead:beef::1/40', 9, 'dead:beef:0000:0000:0000:0000:0000:0009/40'], ['dead:beef::1/40', 255, 'dead:beef:0000:0000:0000:0000:0000:00ff/40'], ['dead:beef::1/40', 256, 'dead:beef:0000:0000:0000:0000:0000:0100/40'], ['dead:beef::1/40', 257, 'dead:beef:0000:0000:0000:0000:0000:0101/40'], ['dead:beef::1/40', 65536, 'dead:beef:0000:0000:0000:0000:0001:0000/40'], ['dead:beef::1/40', 65537, 'dead:beef:0000:0000:0000:0000:0001:0001/40'], ); use NetAddr::IP; use Test::More; my($a, $ip, $test); plan tests => 5 * @addr + 4; for $a (@addr) { $ip = new NetAddr::IP $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP'); is($ip->compact_addr, $a->[0]); is($ip->bits, 128); is($ip->version, 6); is($ip->nth($a->[1]), $a->[2]); } $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");