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
|
# $Id$
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Net-MAC.t'
#########################
use Test::More tests => 150;
BEGIN { use_ok('Net::MAC') };
# Creating base 16 Net::MAC objects
my @macs = ();
my $hex_mac = Net::MAC->new('mac' => '08:20:00:AB:CD:EF');
ok($hex_mac);
is($hex_mac->get_mac(), '08:20:00:AB:CD:EF');
is($hex_mac->get_bit_group(), 8);
is($hex_mac->get_base(), 16);
is($hex_mac->get_delimiter(), ':');
#ok($hex_mac->get_internal_mac() eq '082000ABCDEF');
is($hex_mac->get_internal_mac(), '082000abcdef');
## check AUTOLOAD as_* methods
## also, check that the sub gets installed properly by running it twice
for my $round (1,2)
{
is($hex_mac->as_Cisco, '0820.00ab.cdef', "as_Cisco (round $round)");
is($hex_mac->as_IEEE, '08:20:00:AB:CD:EF', "as_IEEE (round $round)");
is($hex_mac->as_Microsoft, '08-20-00-AB-CD-EF', "as_Microsoft (round $round)");
is($hex_mac->as_Sun, '8:20:0:ab:cd:ef', "as_Sun (round $round)");
}
# Converting a base 16 MAC to a base 10 MAC
my $dec_mac = $hex_mac->convert(
'base' => 10,
'bit_group' => 8,
'delimiter' => '.'
);
ok($dec_mac);
is($dec_mac->get_mac(), '8.32.0.171.205.239');
is($dec_mac->get_bit_group(), 8);
is($dec_mac->get_base(), 10);
# Converting a base 10 MAC to a base 16 MAC
my $hex_mac_2 = $dec_mac->convert(
'base' => 16,
'bit_group' => 16,
'delimiter' => ':'
);
ok($hex_mac_2);
is($hex_mac_2->get_mac(), '0820:00ab:cdef');
is($hex_mac_2->get_bit_group(), 16);
is($hex_mac_2->get_base(), 16);
is($hex_mac_2->get_internal_mac(), '082000abcdef');
# Creating a base 10 Net::MAC object
my $dec_mac_2 = Net::MAC->new(
'mac' => '0.7.14.6.43.3',
'base' => 10
);
ok($dec_mac_2);
is($dec_mac_2->get_mac(), '0.7.14.6.43.3');
is($dec_mac_2->get_bit_group(), 8);
is($dec_mac_2->get_base(), 10);
is($dec_mac_2->get_internal_mac(), '00070e062b03');
my $hex_mac_3 = $dec_mac_2->convert(
'base' => 16,
'bit_group' => 16,
'delimiter' => '.'
);
ok($hex_mac_3);
is($hex_mac_3->get_mac(), '0007.0e06.2b03');
is($hex_mac_3->get_bit_group(), 16);
is($hex_mac_3->get_base(), 16);
is($hex_mac_3->get_internal_mac(), '00070e062b03');
# Creating a base 16 dash delimited Net::MAC object
my $hex_mac_4 = Net::MAC->new('mac' => '12-23-34-45-a4-ff');
ok($hex_mac_4);
is($hex_mac_4->get_mac(), '12-23-34-45-a4-ff');
is($hex_mac_4->get_bit_group(), 8);
is($hex_mac_4->get_base(), 16);
is($hex_mac_4->get_internal_mac(),'12233445a4ff');
my (%delim_mac) = (
'.' => ['08.00.20.ab.cd.ef', '8.0.20.ab.cd.ef', '08.00.20.AB.CD.EF', '122.255.0.16.1.1'],
':' => ['08:00:20:ab:cd:ef', '8:0:20:ab:cd:ef', '08:00:20:AB:CD:EF'],
'-' => ['08-00-20-ab-cd-ef', '8-0-20-ab-cd-ef', '08-00-20-AB-CD-EF'],
' ' => ['08 00 20 ab cd ef', '8 0 20 ab cd ef', '08 00 20 AB CD EF'],
'none' => ['080020abcdef', '080020ABCDEF'],
);
foreach my $delim (keys %delim_mac) {
foreach my $test_mac (@{$delim_mac{$delim}}) {
my $mac = Net::MAC->new('mac' => $test_mac);
is($mac, $test_mac, "test with delimiter '$delim'");
my $test_delim = $mac->get_delimiter();
if ($delim eq 'none') {
#diag "null delimiter";
ok(!defined($test_delim), 'delimiter \"none\"');
}
else {
is($test_delim, $delim, "delimiter '$delim'");
}
}
}
my (%base_mac) = (
'10' => ['122.255.0.16.1.1', '0.0.90.12.255.255', '8.0.20.55.1.1'],
'16' => ['08.00.20.ab.cd.ef', '8:0:20:ab:cd:ef', '8:0:20:AB:CD:EF']
);
foreach my $base (keys %base_mac) {
foreach my $test_mac_2 (@{$base_mac{$base}}) {
my $mac = Net::MAC->new(
'mac' => $test_mac_2,
'base' => $base
);
is($mac, $test_mac_2, "mac correct for base '$base'");
my $mac_base = $mac->get_base();
is($mac_base, $base, "base $base");
}
}
my (%bit_mac) = (
48 => ['8080abe4c9ff', '8080ABE4C9FF', 'ABCDEFABCDEF', '0123456789ab'],
16 => ['8080.abe4.c9ff', '8080.ABE4.C9FF', 'ABCD.EFAB.CDEF', '0123.4567.89ab'],
8 => ['80.80.ab.e4.c9.ff', '80:80:ab:e4:c9:ff', '80-80-ab-e4-c9-ff', '80 80 AB E4 C9 FF']
);
foreach my $bit (keys %bit_mac) {
foreach my $test_mac_3 (@{$bit_mac{$bit}}) {
my $mac = Net::MAC->new('mac' => $test_mac_3);
is($mac, $test_mac_3, "mac correct for grouping '$bit'");
my $mac_bit = $mac->get_bit_group();
is($mac_bit, $bit, "bit grouping correct $bit");
}
}
# Test against a battery of base 16 MAC addresses
my @mac = ('08.00.20.ab.cd.ef', '8:0:20:ab:cd:ef', '8:0:20:AB:CD:EF', '8080abe4c9ff', '8080ABE4C9FF', 'ABCDEFABCDEF', '0123456789ab', '8080.abe4.c9ff', '8080.ABE4.C9FF', 'ABCD.EFAB.CDEF', '0123.4567.89ab', '80.80.ab.e4.c9.ff', '80:80:ab:e4:c9:ff', '80-80-ab-e4-c9-ff', '80 80 AB E4 C9 FF');
foreach my $test_mac (@mac) {
ok(Net::MAC->new('mac' => $test_mac));
}
no warnings;
my @invalid_mac = (':::::', ' : : : : : ', '..', '\s\s\s\s\s', '-----', '---', ' - - ', ' ', '99.6', '888:76.12', '1', '000000000000000000111111', '256.256.256.256.256.256', '128.123.123.234.345.456', 'abcdefghijkl');
foreach my $invalid_mac (@invalid_mac) {
my $no_die = Net::MAC->new(mac => $invalid_mac, die => 0);
ok($no_die, "testing 'die' attribute for invalid mac '$invalid_mac'");
ok($no_die->get_error(), "testing get_error() method for invalid mac '$invalid_mac'");
}
use warnings;
|
