|
Packit |
0b51a0 |
use Test::More;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
# $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my %cases =
|
|
Packit |
0b51a0 |
(
|
|
Packit |
0b51a0 |
'127.1' => '0000:0000:0000:0000:0000:0000:7f00:0001',
|
|
Packit |
0b51a0 |
'123.23.4.210' => '0000:0000:0000:0000:0000:0000:7b17:04d2',
|
|
Packit |
0b51a0 |
'DEAD:BEEF::1' => 'dead:beef:0000:0000:0000:0000:0000:0001',
|
|
Packit |
0b51a0 |
'1:2:3:4:5:6:7:8' => '0001:0002:0003:0004:0005:0006:0007:0008',
|
|
Packit |
0b51a0 |
'1234:5678:90AB:CDEF:0123:4567:890A:BCDE' => '1234:5678:90ab:cdef:0123:4567:890a:bcde',
|
|
Packit |
0b51a0 |
);
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my $tests = keys %cases;
|
|
Packit |
0b51a0 |
plan tests => 1 + $tests;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
SKIP: {
|
|
Packit |
0b51a0 |
use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests;
|
|
Packit |
0b51a0 |
for my $c (sort keys %cases)
|
|
Packit |
0b51a0 |
{
|
|
Packit |
0b51a0 |
my $ip = new NetAddr::IP $c;
|
|
Packit |
0b51a0 |
my $rv = lc $ip->full6;
|
|
Packit |
0b51a0 |
is($rv, $cases{$c}, "full6($c ) returns $rv");
|
|
Packit |
0b51a0 |
}
|
|
Packit |
0b51a0 |
}
|