1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use Test::More;
# $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $
my %cases =
(
'127.1' => '127.0.0.1',
'127.0.1.1' => '127.0.1.1',
'127.1.0.1' => '127.1.0.1',
'DEAD:BEEF::1' => 'dead:beef::1',
'::1' => '::1',
'::' => '::',
'2001:620:600::1' => '2001:620:600::1',
'2001:620:600:0:1::1' => '2001:620:600:0:1::1',
'2001:620:601:0:1::1' => '2001:620:601::1:0:0:1',
);
my $tests = 2 * keys %cases;
plan tests => 1 + $tests;
SKIP: {
use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests;
for my $c (sort keys %cases)
{
my $ip = new NetAddr::IP $cases{$c};
isa_ok($ip, 'NetAddr::IP', "$cases{$c}");
unless (is($ip->short, $c, "short() returns $c"))
{
diag "ip=$ip";
}
}
}
|
