135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#252 Unpack binary MAC if present in cdp_port

Browse Source 
Fix SNMPv1 cdp_run check
This commit is contained in:
Eric A. Miller
2018-05-09 22:49:53 -04:00
parent f27d76fa9d
commit 78119d6547
3 changed files with 154 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

136
xt/lib/Test/SNMP/Info/CDP.pm
View File

@@ -33,23 +33,139 @@ use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::CDP;
# Remove this startup override once we have full method coverage
sub startup : Tests(startup => 1) {
my $test = shift;
$test->SUPER::startup();
$test->todo_methods(1);
}
sub setup : Tests(setup) {
my $test = shift;
$test->SUPER::setup;
# Start with a common cache that will serve most tests
my $cache_data = {
'store' => {},
'_cdp_run' => 'true',
'_cdp_ip' => 1,
'_cdp_addr' => 1,
'_cdp_proto' => 1,
'_cdp_capabilities' => 1,
'_cdp_dev_id' => 1,
'_cdp_dev_port' => 1,
'store' => {
'cdp_addr' => {'2.1' => pack("H*", '0A141E28'), '3.1' => 'xyz'},
'cdp_proto' => {'2.1' => 'ip', '3.1' => 'chaos'},
'cdp_capabilities' => {'2.1' => pack("H*", '00000228')},
'cdp_dev_id' => {'2.1' => pack("H*", 'ABCD12345678')},
'cdp_dev_port' => {'2.1' => pack("H*", 'ABCD12345678')},
}
};
$test->{info}->cache($cache_data);
}
1;
sub hasCDP : Tests(4) {
my $test = shift;
can_ok($test->{info}, 'hasCDP');
is($test->{info}->hasCDP(), 1, q(Has 'cdpGlobalRun' has CDP));
delete $test->{info}{_cdp_run};
is($test->{info}->hasCDP(),
1, q(No 'cdpGlobalRun', but has neighbors, has CDP));
$test->{info}->clear_cache();
is($test->{info}->hasCDP(),
undef, q(No 'cdpGlobalRun' and no neighbors, no CDP));
}
sub cdp_if : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'cdp_if');
my $expected = {'2.1' => 2};
cmp_deeply($test->{info}->cdp_if(),
$expected, q(Mapping of CDP interface has expected value));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->cdp_if(), {}, q(No data returns empty hash));
}
sub cdp_ip : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'cdp_ip');
my $expected = {'2.1' => '10.20.30.40'};
cmp_deeply($test->{info}->cdp_ip(),
$expected, q(Remote CDP IPv4 has expected value));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->cdp_ip(), {}, q(No data returns empty hash));
}
sub cdp_cap : Tests(4) {
my $test = shift;
can_ok($test->{info}, 'cdp_cap');
my $expected = ['IGMP', 'Supports-STP-Dispute', 'Switch'];
my $caps = $test->{info}->cdp_cap();
cmp_set($caps->{'2.1'}, $expected, q(Caps emumerated correctly));
$test->{info}{store}{cdp_capabilities} = {'2.1' => pack("H*", '00000000')};
cmp_deeply($test->{info}->cdp_cap(), {}, q(Cap of zeros return empty hash));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->cdp_cap(), {}, q(No data returns empty hash));
}
sub cdp_id : Tests(4) {
my $test = shift;
can_ok($test->{info}, 'cdp_id');
my $expected = {'2.1' => 'ab:cd:12:34:56:78'};
cmp_deeply($test->{info}->cdp_id(),
$expected, q(Remote ID packed MAC has expected value));
$test->{info}{store}{cdp_dev_id} = {'2.1' => 'My-Device-Name'};
$expected = {'2.1' => 'My-Device-Name'};
cmp_deeply($test->{info}->cdp_id(),
$expected, q(Remote ID text has expected value));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->cdp_id(), {}, q(No data returns empty hash));
}
sub cdp_port : Tests(4) {
my $test = shift;
can_ok($test->{info}, 'cdp_port');
my $expected = {'2.1' => 'ab:cd:12:34:56:78'};
cmp_deeply($test->{info}->cdp_port(),
$expected, q(Remote ID packed MAC has expected value));
$test->{info}{store}{cdp_dev_port} = {'2.1' => 'My-Port-Name'};
$expected = {'2.1' => 'My-Port-Name'};
cmp_deeply($test->{info}->cdp_port(),
$expected, q(Remote ID text has expected value));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->cdp_port(), {}, q(No data returns empty hash));
}
sub munge_power : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'munge_power');
is(SNMP::Info::CDP::munge_power(123456),
'123.456', q(... munges millwatts to watts));
}
1;