227 lines
7.4 KiB
Perl
227 lines
7.4 KiB
Perl
# Test::SNMP::Info::Airespace
|
|
#
|
|
# Copyright (c) 2018 Eric Miller
|
|
# All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions are met:
|
|
#
|
|
# * Redistributions of source code must retain the above copyright notice,
|
|
# this list of conditions and the following disclaimer.
|
|
# * Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
# * Neither the name of the University of California, Santa Cruz nor the
|
|
# names of its contributors may be used to endorse or promote products
|
|
# derived from this software without specific prior written permission.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRSNMP::Info::AdslLineIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
# POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
package Test::SNMP::Info::Airespace;
|
|
|
|
use Test::Class::Most parent => 'My::Test::Class';
|
|
|
|
use SNMP::Info::Airespace;
|
|
|
|
# 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
|
|
# ieee8023adLag example from Cisco 65xx VSS snmpwalk
|
|
my $cache_data = {
|
|
'_airespace_serial' => 'ABC1234567D',
|
|
'_i_index' => 1,
|
|
'_i_name' => 1,
|
|
'_i_description' => 1,
|
|
'_i_type' => 1,
|
|
'_i_up' => 1,
|
|
'_airespace_apif_slot' => 1,
|
|
'_airespace_if_name' => 1,
|
|
'_airespace_ap_name' => 1,
|
|
'_airespace_ap_loc' => 1,
|
|
'_airespace_apif_type' => 1,
|
|
'_airespace_if_type' => 1,
|
|
'_airespace_apif' => 1,
|
|
'_airespace_apif_admin' => 1,
|
|
'store' => {
|
|
'i_index' => {'1' => 1,},
|
|
'i_name' => {'1' => 'Unit - 0 Slot - 1 Port - 1',},
|
|
'i_description' =>
|
|
{'1' => 'Unit: 0 Slot: 1 Port: 1 Gigabit - Level 0x50a0001',},
|
|
'i_type' => {'1' => 'ethernetCsmacd',},
|
|
'i_up' => {'1' => 'up',},
|
|
'airespace_apif_slot' =>
|
|
{'0.11.133.20.89.48.0' => 0, '0.11.133.20.89.48.1' => 1,},
|
|
'airespace_if_name' => {
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'management',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'ssid-int',
|
|
},
|
|
'airespace_ap_name' => {'0.11.133.20.89.48' => 'My AP Name',},
|
|
'airespace_ap_loc' => {'0.11.133.20.89.48' => 'My AP location',},
|
|
'airespace_apif_type' =>
|
|
{'0.11.133.20.89.48.0' => 'dot11a', '0.11.133.20.89.48.1' => 'dot11b',},
|
|
'airespace_if_type' => {
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'static',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'dynamic',
|
|
},
|
|
'airespace_apif' =>
|
|
{'0.11.133.20.89.48.0' => 'up', '0.11.133.20.89.48.1' => 'down',},
|
|
'airespace_apif_admin' => {
|
|
'0.11.133.20.89.48.0' => 'enable',
|
|
'0.11.133.20.89.48.1' => 'disable',
|
|
},
|
|
}
|
|
};
|
|
$test->{info}->cache($cache_data);
|
|
}
|
|
|
|
sub layers : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'layers');
|
|
is($test->{info}->layers(), '00000111', q(Layers returns '00000111'));
|
|
}
|
|
|
|
sub serial : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'serial');
|
|
is($test->{info}->serial(), 'ABC1234567D', q(Serial returns expected value));
|
|
}
|
|
|
|
sub i_index : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_index');
|
|
|
|
my $expected = {
|
|
'1' => 1,
|
|
'0.11.133.20.89.48.0' => '00:0b:85:14:59:30.0',
|
|
'0.11.133.20.89.48.1' => '00:0b:85:14:59:30.1',
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'management',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'ssid-int',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_index(),
|
|
$expected, q(Interface indices have expected values));
|
|
}
|
|
|
|
sub interfaces : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'interfaces');
|
|
|
|
my $expected = {
|
|
'1' => '1.1',
|
|
'0.11.133.20.89.48.0' => '00:0b:85:14:59:30.0',
|
|
'0.11.133.20.89.48.1' => '00:0b:85:14:59:30.1',
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'management',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'ssid-int',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->interfaces(),
|
|
$expected, q(Interfaces have expected values));
|
|
}
|
|
|
|
sub i_name : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_name');
|
|
|
|
my $expected = {
|
|
'1' => 'Unit - 0 Slot - 1 Port - 1',
|
|
'0.11.133.20.89.48.0' => 'My AP Name',
|
|
'0.11.133.20.89.48.1' => 'My AP Name',
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'management',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'ssid-int',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_name(),
|
|
$expected, q(Interface names have expected values));
|
|
}
|
|
|
|
sub i_description : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_description');
|
|
|
|
my $expected = {
|
|
'1' => 'Unit: 0 Slot: 1 Port: 1 Gigabit - Level 0x50a0001',
|
|
'0.11.133.20.89.48.0' => 'My AP location',
|
|
'0.11.133.20.89.48.1' => 'My AP location',
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'management',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'ssid-int',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_description(),
|
|
$expected, q(Interface descriptions have expected values));
|
|
}
|
|
|
|
sub i_type : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_type');
|
|
|
|
my $expected = {
|
|
'1' => 'ethernetCsmacd',
|
|
'0.11.133.20.89.48.0' => 'dot11a',
|
|
'0.11.133.20.89.48.1' => 'dot11b',
|
|
'10.109.97.110.97.103.101.109.101.110.116' => 'static',
|
|
'9.115.116.118.45.100.104.99.112.97' => 'dynamic',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_type(),
|
|
$expected, q(Interface types have expected values));
|
|
}
|
|
|
|
sub i_up : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_up');
|
|
|
|
my $expected = {
|
|
'1' => 'up',
|
|
'0.11.133.20.89.48.0' => 'up',
|
|
'0.11.133.20.89.48.1' => 'down',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_up(),
|
|
$expected, q(Interface types have expected values));
|
|
}
|
|
|
|
sub i_up_admin : Tests(2) {
|
|
my $test = shift;
|
|
|
|
can_ok($test->{info}, 'i_up_admin');
|
|
|
|
my $expected = {
|
|
'1' => 'up',
|
|
'0.11.133.20.89.48.0' => 'enable',
|
|
'0.11.133.20.89.48.1' => 'disable',
|
|
};
|
|
|
|
cmp_deeply($test->{info}->i_up_admin(),
|
|
$expected, q(Interface types have expected values));
|
|
}
|
|
|
|
1;
|