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
82
83
84
|
use strict;
use Test;
BEGIN { plan test => 39; }
use Net::IPv6Addr;
ok(1);
my @x;
# Test ipv6_parse_ipv4_compressed, with garbage.
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("life, in a nutshell"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, bad ipv6 digits.
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::fffe:10.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, bad ipv4 digits.
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0.0.x"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, too many adjacent :
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed(":::ffff:10.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, too many ipv6 digits.
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::fffff:10.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, too many ipv4 digits.
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0.0.9999"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, too many :
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::0:ffff:10.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, not enough :
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed(":ffff:10.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, too many .
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0.0.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, not enough .
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, adjacent .
eval { @x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0..0.1"); };
ok($@);
ok($@, qr/invalid address/);
# Test ipv6_parse_ipv4_compressed, with good stuff.
@x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::ffff:10.0.0.1");
ok($x[0], 0);
ok($x[1], 0);
ok($x[2], 0);
ok($x[3], 0);
ok($x[4], 0);
ok($x[5], 0xffff);
ok($x[6], 0xa00);
ok($x[7], 1);
@x = Net::IPv6Addr::ipv6_parse_ipv4_compressed("::10.0.0.1");
ok($x[0], 0);
ok($x[1], 0);
ok($x[2], 0);
ok($x[3], 0);
ok($x[4], 0);
ok($x[5], 0);
ok($x[6], 0xa00);
ok($x[7], 1);
|
