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
69
70
71
72
73
74
75
76
77
78
79
80
81
|
use strict;
use Test::More;
use Net::IPv6Addr;
if (! Net::IPv6Addr::base85ok ()) {
plan skip_all => 'Math::Base85 is not installed',
};
# Test ipv6_parse_base85 with garbage.
eval { Net::IPv6Addr::ipv6_parse_base85("\n"); };
ok($@);
like ($@, qr/invalid address/);
# Test ipv6_parse_base85 with a bad character.
eval { Net::IPv6Addr::ipv6_parse_base85("abcdefghi klmnopqrst"); };
ok($@);
like ($@, qr/invalid address/);
# Test ipv6_parse_base85 with a bad length.
eval { Net::IPv6Addr::ipv6_parse_base85("abcdefghijklmnopqrs"); };
ok($@);
like ($@, 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");
is ($pieces[0], 0x1080);
is ($pieces[1], 0);
is ($pieces[2], 0);
is ($pieces[3], 0);
is ($pieces[4], 0x8);
is ($pieces[5], 0x800);
is ($pieces[6], 0x200C);
is ($pieces[7], 0x417A);
my $x;
# Test new with bad base85 digits.
eval { $x = new Net::IPv6Addr("0123456789ABCDEF GHI"); };
ok($@);
like ($@, qr/invalid IPv6 address/);
# Test new with bad base85 length.
eval { $x = new Net::IPv6Addr("0123456789ABCDEFGHI"); };
ok($@);
like ($@, qr/invalid IPv6 address/);
# Test new with good base85.
$x = new Net::IPv6Addr("4)+k&C#VzJ4br>0wv%Yp");
is (ref $x, 'Net::IPv6Addr');
is ($x->[0], 0x1080);
is ($x->[1], 0);
is ($x->[2], 0);
is ($x->[3], 0);
is ($x->[4], 8);
is ($x->[5], 0x800);
is ($x->[6], 0x200C);
is ($x->[7], 0x417A);
# Test to_string_base85.
is ($x->to_string_base85(), "4)+k&C#VzJ4br>0wv%Yp");
# https://rt.cpan.org/Ticket/Display.html?id=132826
my $rt132826 = 'FortyGigabitEthernet1/0/100';
my $rt132826_ok = Net::IPv6Addr::is_ipv6 ($rt132826);
ok (! $rt132826_ok, "$rt132826 is disallowed");
# Exactly twenty characters in the first part.
# 01234567890123456789
my $rt132826_1 = 'FortyGigabitEthernet/0/100';
my ($rt132826_first) = split qr!/!, $rt132826_1;
ok (length ($rt132826_first) == 20, "Twenty characters in first part");
my $rt132826_1_ok = Net::IPv6Addr::is_ipv6 ($rt132826_1);
ok (! $rt132826_1_ok, "$rt132826_1 is disallowed");
# The following nonsense is still allowed, though.
my $rt132826_2 = 'FortyGigabitEthernet/0';
my $rt132826_2_ok = Net::IPv6Addr::is_ipv6 ($rt132826_2);
ok ($rt132826_2_ok, "$rt132826_2 is allowed");
done_testing ();
|
