Imported Upstream version 2.1
This commit is contained in:
parent
0841b5c7c7
commit
060ec72678
47 changed files with 1718 additions and 1420 deletions
|
|
@ -14,6 +14,8 @@
|
|||
'NP_HOST_SNMP' => '',
|
||||
'NP_HOST_TCP_FTP' => '',
|
||||
'NP_HOST_TCP_HPJD' => '',
|
||||
'NP_HOST_HPJD_PORT_INVALID' => '161',
|
||||
'NP_HOST_HPJD_PORT_VALID' => '',
|
||||
'NP_HOST_TCP_HTTP' => 'localhost',
|
||||
'NP_HOST_TCP_HTTP2' => 'labs.consol.de',
|
||||
'NP_HOST_TCP_IMAP' => 'imap.web.de',
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ use NPTest;
|
|||
|
||||
plan skip_all => "check_dns not compiled" unless (-x "check_dns");
|
||||
|
||||
plan tests => 14;
|
||||
plan tests => 16;
|
||||
|
||||
my $successOutput = '/DNS OK: [\.0-9]+ seconds? response time/';
|
||||
|
||||
|
|
@ -43,6 +43,12 @@ my $dns_server = getTestParameter(
|
|||
"A non default (remote) DNS server",
|
||||
);
|
||||
|
||||
my $host_nonresponsive = getTestParameter(
|
||||
"NP_HOST_NONRESPONSIVE",
|
||||
"The hostname of system not responsive to network requests",
|
||||
"10.0.0.1",
|
||||
);
|
||||
|
||||
my $res;
|
||||
|
||||
$res = NPTest->testCmd("./check_dns -H $hostname_valid -t 5");
|
||||
|
|
@ -54,7 +60,7 @@ cmp_ok( $res->return_code, '==', 2, "Critical threshold passed");
|
|||
|
||||
$res = NPTest->testCmd("./check_dns -H $hostname_valid -t 5 -w 0 -c 5");
|
||||
cmp_ok( $res->return_code, '==', 1, "Warning threshold passed");
|
||||
like( $res->output, "/\|time=[\d\.]+s;0.0*;5\.0*;0\.0*/", "Output performance data OK" );
|
||||
like( $res->output, '/\|time=[\d\.]+s;0.0*;5\.0*;0\.0*/', "Output performance data OK" );
|
||||
|
||||
$res = NPTest->testCmd("./check_dns -H $hostname_invalid -t 1");
|
||||
cmp_ok( $res->return_code, '==', 2, "Invalid $hostname_invalid");
|
||||
|
|
@ -66,6 +72,10 @@ like ( $res->output, $successOutput, "Output OK" );
|
|||
$res = NPTest->testCmd("./check_dns -H $hostname_invalid -s $dns_server -t 1");
|
||||
cmp_ok( $res->return_code, '==', 2, "Invalid $hostname_invalid on $dns_server");
|
||||
|
||||
$res = NPTest->testCmd("./check_dns -H $hostname_valid -a $hostname_valid_ip -s $host_nonresponsive -t 2");
|
||||
cmp_ok( $res->return_code, '==', 2, "Got no answer from unresponsive server");
|
||||
like ( $res->output, "/CRITICAL - /", "Output OK");
|
||||
|
||||
$res = NPTest->testCmd("./check_dns -H $hostname_valid -a $hostname_valid_ip -t 5");
|
||||
cmp_ok( $res->return_code, '==', 0, "Got expected address");
|
||||
|
||||
|
|
|
|||
|
|
@ -10,7 +10,6 @@ use NPTest;
|
|||
|
||||
plan skip_all => "check_hpjd not compiled" unless (-x "check_hpjd");
|
||||
|
||||
plan tests => 5;
|
||||
|
||||
my $successOutput = '/^Printer ok - /';
|
||||
my $failureOutput = '/Timeout: No [Rr]esponse from /';
|
||||
|
|
@ -20,31 +19,53 @@ my $host_tcp_hpjd = getTestParameter(
|
|||
"A host (usually a printer) providing the HP-JetDirect Services"
|
||||
);
|
||||
|
||||
my $host_hpjd_port_invalid = getTestParameter(
|
||||
"NP_HOST_HPJD_PORT_INVALID",
|
||||
"A port that HP-JetDirect Services is not listening on",
|
||||
"162"
|
||||
);
|
||||
|
||||
my $host_hpjd_port_valid = getTestParameter(
|
||||
"NP_HOST_HPJD_PORT_VALID",
|
||||
"The port that HP-JetDirect Services is currently listening on",
|
||||
"161"
|
||||
);
|
||||
|
||||
my $host_nonresponsive = getTestParameter(
|
||||
"NP_HOST_NONRESPONSIVE",
|
||||
"The hostname of system not responsive to network requests",
|
||||
"10.0.0.1",
|
||||
"10.0.0.1"
|
||||
);
|
||||
|
||||
my $hostname_invalid = getTestParameter(
|
||||
"NP_HOSTNAME_INVALID",
|
||||
"An invalid (not known to DNS) hostname",
|
||||
"nosuchhost",
|
||||
"nosuchhost"
|
||||
);
|
||||
|
||||
my $tests = $host_tcp_hpjd ? 9 : 5;
|
||||
plan tests => $tests;
|
||||
my $res;
|
||||
|
||||
SKIP: {
|
||||
skip "No HP JetDirect defined", 2 unless $host_tcp_hpjd;
|
||||
$res = NPTest->testCmd("./check_hpjd $host_tcp_hpjd");
|
||||
cmp_ok( $res->return_code, '==', 0, "Jetdirect responding" );
|
||||
$res = NPTest->testCmd("./check_hpjd -H $host_tcp_hpjd");
|
||||
cmp_ok( $res->return_code, 'eq', 0, "Jetdirect responding" );
|
||||
like ( $res->output, $successOutput, "Output correct" );
|
||||
|
||||
$res = NPTest->testCmd("./check_hpjd -H $host_tcp_hpjd -p $host_hpjd_port_valid");
|
||||
cmp_ok( $res->return_code, 'eq', 0, "Jetdirect responding on port $host_hpjd_port_valid" );
|
||||
like ( $res->output, $successOutput, "Output correct" );
|
||||
|
||||
$res = NPTest->testCmd("./check_hpjd -H $host_tcp_hpjd -p $host_hpjd_port_invalid");
|
||||
cmp_ok( $res->return_code, 'eq', 2, "Jetdirect not responding on port $host_hpjd_port_invalid" );
|
||||
like ( $res->output, $failureOutput, "Output correct" );
|
||||
}
|
||||
|
||||
$res = NPTest->testCmd("./check_hpjd $host_nonresponsive");
|
||||
$res = NPTest->testCmd("./check_hpjd -H $host_nonresponsive");
|
||||
cmp_ok( $res->return_code, 'eq', 2, "Host not responding");
|
||||
like ( $res->output, $failureOutput, "Output OK" );
|
||||
|
||||
$res = NPTest->testCmd("./check_hpjd $hostname_invalid");
|
||||
$res = NPTest->testCmd("./check_hpjd -H $hostname_invalid");
|
||||
cmp_ok( $res->return_code, 'eq', 3, "Hostname invalid");
|
||||
|
||||
|
|
|
|||
|
|
@ -35,8 +35,8 @@ my $ntp_okmatch1 = '/^NTP\sOK:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs/'
|
|||
my $ntp_warnmatch1 = '/^NTP\sWARNING:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs/';
|
||||
my $ntp_critmatch1 = '/^NTP\sCRITICAL:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs/';
|
||||
my $ntp_okmatch2 = '/^NTP\sOK:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs,\sjitter=[0-9]+\.[0-9]+,\sstratum=[0-9]{1,2},\struechimers=[0-9]+/';
|
||||
my $ntp_warnmatch2 = '/^NTP\sWARNING:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs,\sjitter=[0-9]+\.[0-9]+,\sstratum=[0-9]{1,2},\struechimers=[0-9]+/';
|
||||
my $ntp_critmatch2 = '/^NTP\sCRITICAL:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs,\sjitter=[0-9]+\.[0-9]+,\sstratum=[0-9]{1,2},\struechimers=[0-9]+/';
|
||||
my $ntp_warnmatch2 = '/^NTP\sWARNING:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs,\sjitter=[0-9]+\.[0-9]+,\sstratum=[0-9]{1,2}\s\(WARNING\),\struechimers=[0-9]+/';
|
||||
my $ntp_critmatch2 = '/^NTP\sCRITICAL:\sOffset\s-?[0-9]+(\.[0-9]+)?(e-[0-9]{2})?\ssecs,\sjitter=[0-9]+\.[0-9]+\s\(CRITICAL\),\sstratum=[0-9]{1,2},\struechimers=[0-9]+/';
|
||||
my $ntp_noresponse = '/^(CRITICAL - Socket timeout after 3 seconds)|(NTP CRITICAL: No response from NTP server)$/';
|
||||
my $ntp_nosuchhost = '/^check_ntp.*: Invalid hostname/address - ' . $hostname_invalid . '/';
|
||||
|
||||
|
|
|
|||
|
|
@ -6,6 +6,7 @@
|
|||
|
||||
use strict;
|
||||
use Test::More;
|
||||
use Cwd;
|
||||
use NPTest;
|
||||
|
||||
# 15 tests in the first part, 9 in timeout tests and 2 * 32 in the last loops
|
||||
|
|
@ -13,7 +14,7 @@ plan tests => 88;
|
|||
|
||||
my $res;
|
||||
|
||||
my $PWD = $ENV{PWD};
|
||||
my $PWD = getcwd();
|
||||
|
||||
$res = NPTest->testCmd( "./negate" );
|
||||
is( $res->return_code, 3, "Not enough parameters");
|
||||
|
|
@ -50,7 +51,7 @@ is( $res->output, "OK: a dummy okay", "The quoted string is passed through to su
|
|||
$res = NPTest->testCmd( "./negate '$PWD/check_dummy 0' 'a dummy okay'" );
|
||||
is( $res->output, "No data returned from command", "Bad command, as expected (trying to execute './check_dummy 0')");
|
||||
|
||||
$res = NPTest->testCmd( './negate $PWD/check_dummy 0 \'$$ a dummy okay\'' );
|
||||
$res = NPTest->testCmd( './negate '.$PWD.'/check_dummy 0 \'$$ a dummy okay\'' );
|
||||
is( $res->output, 'OK: $$ a dummy okay', 'Proves that $$ is not being expanded again' );
|
||||
|
||||
my %state = (
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue