192 lines
8.5 KiB
Perl
Executable file
192 lines
8.5 KiB
Perl
Executable file
#! /usr/bin/perl -w -I ..
|
|
#
|
|
# Test check_snmp by having an actual SNMP agent running
|
|
#
|
|
|
|
use strict;
|
|
use Test::More;
|
|
use NPTest;
|
|
use FindBin qw($Bin);
|
|
|
|
my $tests = 41;
|
|
# Check that all dependent modules are available
|
|
eval {
|
|
require NetSNMP::OID;
|
|
require NetSNMP::agent;
|
|
require NetSNMP::ASN;
|
|
};
|
|
|
|
if ($@) {
|
|
plan skip_all => "Missing required module for test: $@";
|
|
} else {
|
|
if (-x "./check_snmp") {
|
|
plan tests => $tests;
|
|
} else {
|
|
plan skip_all => "No check_snmp compiled";
|
|
}
|
|
}
|
|
|
|
my $port_snmp = 16100 + int(rand(100));
|
|
|
|
|
|
# Start up server
|
|
my @pids;
|
|
my $pid = fork();
|
|
if ($pid) {
|
|
# Parent
|
|
push @pids, $pid;
|
|
# give our agent some time to startup
|
|
sleep(1);
|
|
} else {
|
|
# Child
|
|
#print "child\n";
|
|
|
|
print "Please contact SNMP at: $port_snmp\n";
|
|
close(STDERR); # Coment out to debug snmpd problems (most errors sent there are OK)
|
|
exec("snmpd -c tests/conf/snmpd.conf -C -f -r udp:$port_snmp");
|
|
}
|
|
|
|
END {
|
|
foreach my $pid (@pids) {
|
|
if ($pid) { print "Killing $pid\n"; kill "INT", $pid }
|
|
}
|
|
};
|
|
|
|
if ($ARGV[0] && $ARGV[0] eq "-d") {
|
|
while (1) {
|
|
sleep 100;
|
|
}
|
|
}
|
|
|
|
# We should merge that with $ENV{'NPTEST_CACHE'}, use one dir for all test data
|
|
$ENV{'NAGIOS_PLUGIN_STATE_DIRECTORY'} ||= "/var/tmp";
|
|
|
|
my $res;
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.0");
|
|
cmp_ok( $res->return_code, '==', 0, "Exit OK when querying a multi-line string" );
|
|
like($res->output, '/^SNMP OK - /', "String contains SNMP OK");
|
|
like($res->output, '/'.quotemeta('SNMP OK - Cisco Internetwork Operating System Software |
|
|
.1.3.6.1.4.1.8072.3.2.67.0:
|
|
"Cisco Internetwork Operating System Software
|
|
IOS (tm) Catalyst 4000 \"L3\" Switch Software (cat4000-I9K91S-M), Version
|
|
12.2(20)EWA, RELEASE SOFTWARE (fc1)
|
|
Technical Support: http://www.cisco.com/techsupport
|
|
Copyright (c) 1986-2004 by cisco Systems, Inc.
|
|
"').'/m', "String contains all lines");
|
|
|
|
# sysContact.0 is "Alice" (from our snmpd.conf)
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.0 -o sysContact.0 -o .1.3.6.1.4.1.8072.3.2.67.1");
|
|
cmp_ok( $res->return_code, '==', 0, "Exit OK when querying multi-line OIDs" );
|
|
like($res->output, '/^SNMP OK - /', "String contains SNMP OK");
|
|
like($res->output, '/'.quotemeta('SNMP OK - Cisco Internetwork Operating System Software Alice Kisco Outernetwork Oserating Gystem Totware |
|
|
.1.3.6.1.4.1.8072.3.2.67.0:
|
|
"Cisco Internetwork Operating System Software
|
|
IOS (tm) Catalyst 4000 \"L3\" Switch Software (cat4000-I9K91S-M), Version
|
|
12.2(20)EWA, RELEASE SOFTWARE (fc1)
|
|
Technical Support: http://www.cisco.com/techsupport
|
|
Copyright (c) 1986-2004 by cisco Systems, Inc.
|
|
"
|
|
.1.3.6.1.4.1.8072.3.2.67.1:
|
|
"Kisco Outernetwork Oserating Gystem Totware
|
|
Copyleft (c) 2400-2689 by kisco Systrems, Inc."').'/m', "String contains all lines with multiple OIDs");
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.2");
|
|
like($res->output, '/'.quotemeta('SNMP OK - This should not confuse check_snmp \"parser\" |
|
|
.1.3.6.1.4.1.8072.3.2.67.2:
|
|
"This should not confuse check_snmp \"parser\"
|
|
into thinking there is no 2nd line"').'/m', "Attempt to confuse parser No.1");
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.3");
|
|
like($res->output, '/'.quotemeta('SNMP OK - It\'s getting even harder if the line |
|
|
.1.3.6.1.4.1.8072.3.2.67.3:
|
|
"It\'s getting even harder if the line
|
|
ends with with this: C:\\\\"').'/m', "Attempt to confuse parser No.2");
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.4");
|
|
like($res->output, '/'.quotemeta('SNMP OK - And now have fun with with this: \"C:\\\\\" |
|
|
.1.3.6.1.4.1.8072.3.2.67.4:
|
|
"And now have fun with with this: \"C:\\\\\"
|
|
because we\'re not done yet!"').'/m', "Attempt to confuse parser No.3");
|
|
|
|
system("rm -f ".$ENV{'NAGIOS_PLUGIN_STATE_DIRECTORY'}."/check_snmp/*");
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -w 600" );
|
|
is($res->return_code, 0, "Returns OK");
|
|
is($res->output, "No previous data to calculate rate - assume okay");
|
|
|
|
# Need to sleep, otherwise duration=0
|
|
sleep 1;
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -w 600" );
|
|
is($res->return_code, 1, "WARNING - due to going above rate calculation" );
|
|
is($res->output, "SNMP RATE WARNING - *666* | iso.3.6.1.4.1.8072.3.2.67.10=666 ");
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -w 600" );
|
|
is($res->return_code, 3, "UNKNOWN - basically the divide by zero error" );
|
|
is($res->output, "Time duration between plugin calls is invalid");
|
|
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -l inoctets" );
|
|
is($res->return_code, 0, "OK for first call" );
|
|
is($res->output, "No previous data to calculate rate - assume okay" );
|
|
|
|
# Need to sleep, otherwise duration=0
|
|
sleep 1;
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -l inoctets" );
|
|
is($res->return_code, 0, "OK as no thresholds" );
|
|
is($res->output, "SNMP RATE OK - inoctets 666 | inoctets=666 ", "Check label");
|
|
|
|
sleep 2;
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -l inoctets" );
|
|
is($res->return_code, 0, "OK as no thresholds" );
|
|
is($res->output, "SNMP RATE OK - inoctets 333 | inoctets=333 ", "Check rate decreases due to longer interval");
|
|
|
|
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -l inoctets_per_minute --rate-multiplier=60" );
|
|
is($res->return_code, 0, "OK for first call" );
|
|
is($res->output, "No previous data to calculate rate - assume okay" );
|
|
|
|
# Need to sleep, otherwise duration=0
|
|
sleep 1;
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.10 --rate -l inoctets_per_minute --rate-multiplier=60" );
|
|
is($res->return_code, 0, "OK as no thresholds" );
|
|
is($res->output, "SNMP RATE OK - inoctets_per_minute 39960 | inoctets_per_minute=39960 ", "Checking multiplier");
|
|
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.11 -s '\"stringtests\"'" );
|
|
is($res->return_code, 0, "OK as string matches" );
|
|
is($res->output, 'SNMP OK - "stringtests" | ', "Good string match" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.11 -s ring" );
|
|
is($res->return_code, 2, "CRITICAL as string doesn't match (though is a substring)" );
|
|
is($res->output, 'SNMP CRITICAL - *"stringtests"* | ', "Failed string match" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.11 --invert-search -s '\"stringtests\"'" );
|
|
is($res->return_code, 2, "CRITICAL as string matches but inverted" );
|
|
is($res->output, 'SNMP CRITICAL - *"stringtests"* | ', "Inverted string match" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.11 --invert-search -s ring" );
|
|
is($res->return_code, 0, "OK as string doesn't match but inverted" );
|
|
is($res->output, 'SNMP OK - "stringtests" | ', "OK as inverted string no match" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.12 -w 4:5" );
|
|
is($res->return_code, 1, "Numeric in string test" );
|
|
is($res->output, 'SNMP WARNING - *3.5* | iso.3.6.1.4.1.8072.3.2.67.12=3.5 ', "WARNING threshold checks for string masquerading as number" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.13" );
|
|
is($res->return_code, 0, "Not really numeric test" );
|
|
is($res->output, 'SNMP OK - "87.4startswithnumberbutshouldbestring" | ', "Check string with numeric start is still string" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.14" );
|
|
is($res->return_code, 0, "Not really numeric test (trying best to fool it)" );
|
|
is($res->output, 'SNMP OK - "555\"I said\"" | ', "Check string with a double quote following is still a string (looks like the perl routine will always escape though)" );
|
|
|
|
$res = NPTest->testCmd( "./check_snmp -H 127.0.0.1 -C public -p $port_snmp -o .1.3.6.1.4.1.8072.3.2.67.15 -r 'CUSTOM CHECK OK'" );
|
|
is($res->return_code, 0, "String check should check whole string, not a parsed number" );
|
|
is($res->output, 'SNMP OK - "CUSTOM CHECK OK: foo is 12345" | ', "String check witn numbers returns whole string");
|
|
|