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
|
# $Id: parse_oui.t 1334 2004-09-01 04:16:02Z comdog $
use Test::More tests => 5;
use_ok( 'Net::MAC::Vendor' );
my @oui = (
# # # # # # # # # # # # # # # # # # #
["00-0D-07 (hex) Calrec Audio Ltd
000D07 (base 16) Calrec Audio Ltd
Nutclough Mill
Hebden Bridge West Yorkshire HX7 8EZ
UNITED KINGDOM",
[
'Calrec Audio Ltd',
'Nutclough Mill',
'Hebden Bridge West Yorkshire HX7 8EZ',
'UNITED KINGDOM',
]
],
# # # # # # # # # # # # # # # # # # #
);
foreach my $elem ( @oui )
{
my $parsed = Net::MAC::Vendor::parse_oui( $elem->[0] );
foreach my $i ( 0 .. $#$parsed )
{
is( $parsed->[$i], $elem->[1][$i], "Line $i matches" );
}
}
|
