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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
use strict;
use Test;
BEGIN {
eval { require Math::Base85; };
if ($@) {
print "1..0 # Math::Base85 is not installed\n";
exit 0;
}
}
BEGIN { plan test => 29; }
use Net::IPv6Addr;
ok(1);
# Test ipv6_parse_base85 with garbage.
eval { Net::IPv6Addr::ipv6_parse_base85("\n"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_base85 with a bad character.
eval { Net::IPv6Addr::ipv6_parse_base85("abcdefghi klmnopqrst"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_base85 with a bad length.
eval { Net::IPv6Addr::ipv6_parse_base85("abcdefghijklmnopqrs"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_base85 with good stuff.
# Example stolen from rfc1924.txt
my @pieces = Net::IPv6Addr::ipv6_parse_base85("4)+k&C#VzJ4br>0wv%Yp");
ok($pieces[0], 0x1080);
ok($pieces[1], 0);
ok($pieces[2], 0);
ok($pieces[3], 0);
ok($pieces[4], 0x8);
ok($pieces[5], 0x800);
ok($pieces[6], 0x200C);
ok($pieces[7], 0x417A);
my $x;
# Test new with bad base85 digits.
eval { $x = new Net::IPv6Addr("0123456789ABCDEF GHI"); };
ok($@);
ok($@, qr/invalid IPv6 address/);
# Test new with bad base85 length.
eval { $x = new Net::IPv6Addr("0123456789ABCDEFGHI"); };
ok($@);
ok($@, qr/invalid IPv6 address/);
# Test new with good base85.
$x = new Net::IPv6Addr("4)+k&C#VzJ4br>0wv%Yp");
ok(ref $x, 'Net::IPv6Addr');
ok($x->[0], 0x1080);
ok($x->[1], 0);
ok($x->[2], 0);
ok($x->[3], 0);
ok($x->[4], 8);
ok($x->[5], 0x800);
ok($x->[6], 0x200C);
ok($x->[7], 0x417A);
# Test to_string_base85.
ok($x->to_string_base85(), "4)+k&C#VzJ4br>0wv%Yp");
|
