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
|
#!/usr/bin/perl
use Test::More tests => 14;
#use diagnostics;
BEGIN { use_ok('Net::Interface',qw(ipV6compress :lower)); }
my $loaded = 1;
END { print "not ok 1\n" unless $loaded; }
my @hex = qw(
0:0:0:0:f:0:0:0 ::f:0:0:0
0:0:0:f:0:0:0:0 0:0:0:f::
0:0:0:f:0:0:0:f ::f:0:0:0:f
ab00:ffff:0:f:: ab00:ffff:0:f::
:: ::
120:00:345::789 120:0:345::789
0:A:b:c:d:6:7:8 0:a:b:c:d:6:7:8
9:a:B:c:d:6:7:0 9:a:b:c:d:6:7:0
0:0:0:0:5::8 ::5:0:0:8
1::4:0:0:0:8 1:0:0:4::8
1:000f:a:b:00c:d00:0e00:9 1:f:a:b:c:d00:e00:9
1:0::0:1 1::1
1::127.0.0.1 1::7f00:1
);
for(my $i=0; $i<@hex; $i+=2) {
my $got = ipV6compress($hex[$i]);
ok ($got eq $hex[$i+1],"$got eq $hex[$i+1]");
}
|
