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

Return empty hash peth_port_ifindex() for consistency

Browse Source 
Cover PowerEthernet methods with tests
This commit is contained in:
Eric A. Miller
2018-04-25 22:34:55 -04:00
parent 7f31038462
commit a6fdb107b4
2 changed files with 38 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
xt/lib/Test/SNMP/Info/PowerEthernet.pm
View File

@@ -33,23 +33,51 @@ use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::PowerEthernet;
# 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' => {},
'_peth_port_status' => 1,
'_peth_port_class' => 1,
'store' => {
'peth_port_status' => {'1.1' => 'searching', '1.3' => 'otherFault', '1.24' => 'deliveringPower'},
'peth_port_class' => {'1.1' => 'class0', '1.3' => 'class0', '1.24' => 'class3'},
},
};
$test->{info}->cache($cache_data);
}
sub peth_port_ifindex : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'peth_port_ifindex');
my $expected = {'1.1' => 1, '1.3' => 3, '1.24' => 24},;
cmp_deeply($test->{info}->peth_port_ifindex(),
$expected, q(POE port 'ifIndex' mapping returns expected values));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->peth_port_ifindex(),
{}, q(No data returns empty hash));
}
sub peth_port_neg_power : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'peth_port_neg_power');
my $expected
= {'1.24' => 12950};
cmp_deeply($test->{info}->peth_port_neg_power(),
$expected, q(POE port negotiated power returns expected values));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->peth_port_neg_power(),
{}, q(No data returns empty hash));
}
1;