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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
# Before `make install' is performed this script should be runnable with
# make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
use Test::More tests => 200;
#use diagnostics;
# test 1
BEGIN { use_ok( 'Net::Interface',qw(
mask2cidr
)); }
my $loaded = 1;
END {print "not ok 1\n" unless $loaded;}
# should fail
foreach (qw( a33 b5555 c15151515151515 d1717171717171717)) {
eval {
mask2cidr($_);
};
ok($@,"forced croak on bad address length ". length($_));
}
my @results = qw(
0000:0000:0000:0000:0000:0000:0000:0000
8000:0000:0000:0000:0000:0000:0000:0000
C000:0000:0000:0000:0000:0000:0000:0000
E000:0000:0000:0000:0000:0000:0000:0000
F000:0000:0000:0000:0000:0000:0000:0000
F800:0000:0000:0000:0000:0000:0000:0000
FC00:0000:0000:0000:0000:0000:0000:0000
FE00:0000:0000:0000:0000:0000:0000:0000
FF00:0000:0000:0000:0000:0000:0000:0000
FF80:0000:0000:0000:0000:0000:0000:0000
FFC0:0000:0000:0000:0000:0000:0000:0000
FFE0:0000:0000:0000:0000:0000:0000:0000
FFF0:0000:0000:0000:0000:0000:0000:0000
FFF8:0000:0000:0000:0000:0000:0000:0000
FFFC:0000:0000:0000:0000:0000:0000:0000
FFFE:0000:0000:0000:0000:0000:0000:0000
FFFF:0000:0000:0000:0000:0000:0000:0000
FFFF:8000:0000:0000:0000:0000:0000:0000
FFFF:C000:0000:0000:0000:0000:0000:0000
FFFF:E000:0000:0000:0000:0000:0000:0000
FFFF:F000:0000:0000:0000:0000:0000:0000
FFFF:F800:0000:0000:0000:0000:0000:0000
FFFF:FC00:0000:0000:0000:0000:0000:0000
FFFF:FE00:0000:0000:0000:0000:0000:0000
FFFF:FF00:0000:0000:0000:0000:0000:0000
FFFF:FF80:0000:0000:0000:0000:0000:0000
FFFF:FFC0:0000:0000:0000:0000:0000:0000
FFFF:FFE0:0000:0000:0000:0000:0000:0000
FFFF:FFF0:0000:0000:0000:0000:0000:0000
FFFF:FFF8:0000:0000:0000:0000:0000:0000
FFFF:FFFC:0000:0000:0000:0000:0000:0000
FFFF:FFFE:0000:0000:0000:0000:0000:0000
FFFF:FFFF:0000:0000:0000:0000:0000:0000
FFFF:FFFF:8000:0000:0000:0000:0000:0000
FFFF:FFFF:C000:0000:0000:0000:0000:0000
FFFF:FFFF:E000:0000:0000:0000:0000:0000
FFFF:FFFF:F000:0000:0000:0000:0000:0000
FFFF:FFFF:F800:0000:0000:0000:0000:0000
FFFF:FFFF:FC00:0000:0000:0000:0000:0000
FFFF:FFFF:FE00:0000:0000:0000:0000:0000
FFFF:FFFF:FF00:0000:0000:0000:0000:0000
FFFF:FFFF:FF80:0000:0000:0000:0000:0000
FFFF:FFFF:FFC0:0000:0000:0000:0000:0000
FFFF:FFFF:FFE0:0000:0000:0000:0000:0000
FFFF:FFFF:FFF0:0000:0000:0000:0000:0000
FFFF:FFFF:FFF8:0000:0000:0000:0000:0000
FFFF:FFFF:FFFC:0000:0000:0000:0000:0000
FFFF:FFFF:FFFE:0000:0000:0000:0000:0000
FFFF:FFFF:FFFF:0000:0000:0000:0000:0000
FFFF:FFFF:FFFF:8000:0000:0000:0000:0000
FFFF:FFFF:FFFF:C000:0000:0000:0000:0000
FFFF:FFFF:FFFF:E000:0000:0000:0000:0000
FFFF:FFFF:FFFF:F000:0000:0000:0000:0000
FFFF:FFFF:FFFF:F800:0000:0000:0000:0000
FFFF:FFFF:FFFF:FC00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FE00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FF00:0000:0000:0000:0000
FFFF:FFFF:FFFF:FF80:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFC0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFE0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFF0:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFF8:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFC:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFE:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:0000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:8000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:C000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:E000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:F000:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:F800:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FC00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FE00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FF00:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FF80:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFC0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFE0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFF0:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFF8:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFC:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFE:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:0000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:8000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:C000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:E000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:F000:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:F800:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FC00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FE00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FF00:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FF80:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFC0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFE0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFF0:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFF8:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFC:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:8000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:C000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:E000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F000:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F800:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FC00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FE00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF80:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFC0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFE0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF8:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:8000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:C000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:E000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F000
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:F800
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FC00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FE00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF80
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFC0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFE0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF8
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE
FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF
);
foreach (0..$#results) {
my @hex = split(/:/,$results[$_]);
foreach(0..$#hex) {
$hex[$_] = hex($hex[$_] || 0);
}
ok(mask2cidr(pack("n8",@hex)) == $_);
}
@results = qw(
00000000
80000000
c0000000
e0000000
f0000000
f8000000
fc000000
fe000000
ff000000
ff800000
ffc00000
ffe00000
fff00000
fff80000
fffc0000
fffe0000
ffff0000
ffff8000
ffffc000
ffffe000
fffff000
fffff800
fffffc00
fffffe00
ffffff00
ffffff80
ffffffc0
ffffffe0
fffffff0
fffffff8
fffffffc
fffffffe
ffffffff
);
foreach (0..$#results) {
$results[$_] =~ /(\w{4})(\w{4})/;
my @hex = (hex($1) || 0,hex($2) || 0);
ok(mask2cidr((pack("n2",@hex))) == $_);
}
my $bo = _bo Net::Interface;
foreach (0..$#results) {
$results[$_] =~ /(\w{4})(\w{4})/;
my @hex = (hex($1) || 0,hex($2) || 0);
ok($bo->mask2cidr((pack("n2",@hex))) == $_);
}
|
