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

Additional test classes

Browse Source
This commit is contained in:
Eric A. Miller
2018-04-01 22:09:50 -04:00
parent cc05fb927f
commit afeb37ae5e
6 changed files with 541 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
MANIFEST
View File

@@ -146,7 +146,16 @@ xt/10_remote_snmplabs.t
xt/20_run.t
xt/lib/My/Test/Class.pm
xt/lib/Test/SNMP/Info.pm
xt/lib/Test/SNMP/Info/AdslLine.pm
xt/lib/Test/SNMP/Info/Aggregate.pm
xt/lib/Test/SNMP/Info/Airespace.pm
xt/lib/Test/SNMP/Info/Layer1/Allied.pm
xt/lib/Test/SNMP/Info/Layer1/Asante.pm
xt/lib/Test/SNMP/Info/Layer1/Bayhub.pm
xt/lib/Test/SNMP/Info/Layer1/Cyclades.pm
xt/lib/Test/SNMP/Info/Layer1/S3000.pm
xt/lib/Test/SNMP/Info/Layer2/3Com.pm
xt/lib/Test/SNMP/Info/Layer2/Airespace.pm
xt/lib/Test/SNMP/Info/Layer2/Allied.pm
xt/lib/Test/SNMP/Info/Layer2/Baystack.pm
xt/lib/Test/SNMP/Info/Layer3/Timetra.pm

36
xt/lib/Test/SNMP/Info/AdslLine.pm Normal file
View File

@@ -0,0 +1,36 @@
# Test::SNMP::Info::AdslLine
#
# 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::AdslLine;
use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::AdslLine;
1;

226
xt/lib/Test/SNMP/Info/Airespace.pm Normal file
View File

@@ -0,0 +1,226 @@
# 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;

89
xt/lib/Test/SNMP/Info/Layer1/S3000.pm Normal file
View File

@@ -0,0 +1,89 @@
# Test::SNMP::Info::Layer1::S3000
#
# 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 COPYRIGHT 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::Layer1::S3000;
use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::Layer1::S3000;
# 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 = {
'_layers' => 1,
'_description' => 'NMM 3000 Hub SNMP/Telnet Agent v3.2.1',
'_id' => '.1.3.6.1.4.1.45.3.2.1',
'store' => {},
};
$test->{info}->cache($cache_data);
}
sub layers : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'layers');
is($test->{info}->layers(), '00000011', q(Layers returns '00000111'));
}
sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'synoptics', q(Vendor returns 'synoptics'));
}
sub vendor : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'vendor');
is($test->{info}->vendor(), 'nortel', q(Vendor returns 'nortel'));
}
sub model : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'model');
is($test->{info}->model(), '3000', q(Model is expected value));
$test->{info}->clear_cache();
is($test->{info}->model(), undef, q(No id returns undef model));
}
1;

84
xt/lib/Test/SNMP/Info/Layer2/Airespace.pm Normal file
View File

@@ -0,0 +1,84 @@
# Test::SNMP::Info::Layer2::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 COPYRIGHT 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::Layer2::Airespace;
use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::Layer2::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
my $cache_data = {
'_layers' => 2,
'_description' =>
'Cisco Controller',
'_id' => '.1.3.6.1.4.1.14179.1.1.4.2',
'_airespace_model' => 'AIR-WLC2006-K9',
'store' => {},
};
$test->{info}->cache($cache_data);
}
sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'cisco', q(Vendor returns 'cisco'));
}
sub vendor : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'vendor');
is($test->{info}->vendor(), 'cisco', q(Vendor returns 'cisco'));
}
sub model : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'model');
is($test->{info}->model(), 'AIR-WLC2006-K9', q(Model is expected value));
$test->{info}->clear_cache();
is($test->{info}->model(), undef, q(No id returns undef model));
}
1;

97
xt/lib/Test/SNMP/Info/Layer2/Allied.pm Normal file
View File

@@ -0,0 +1,97 @@
# Test::SNMP::Info::Layer2::Allied
#
# 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 COPYRIGHT 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::Layer2::Allied;
use Test::Class::Most parent => 'My::Test::Class';
use SNMP::Info::Layer2::Allied;
# 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 = {
'_layers' => 2,
# This is made up as no snmpwalk of device
'_description' => 'Allied Telesis AT-8000S/48POE version 3.0.0.45',
# AT-PRODUCT-MIB::atGS970M10
'_id' => '.1.3.6.1.4.1.207.1.4.317',
'store' => {},
};
$test->{info}->cache($cache_data);
}
sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'allied', q(Vendor returns 'allied'));
}
sub vendor : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'vendor');
is($test->{info}->vendor(), 'allied', q(Vendor returns 'allied'));
}
sub model : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'model');
is($test->{info}->model(), 'AT-8000S/48POE', q(Model is expected value));
$test->{info}->clear_cache();
is($test->{info}->model(), undef, q(No description returns undef model));
}
sub os_ver : Tests(3) {
my $test = shift;
can_ok($test->{info}, 'os_ver');
is($test->{info}->os_ver(), '3.0', q(OS version is expected value));
$test->{info}->clear_cache();
is($test->{info}->os_ver(), undef,
q(No description returns undef OS version));
}
1;