2013-11-26 22:53:19 +00:00
|
|
|
#! /usr/bin/perl -w -I ..
|
|
|
|
#
|
|
|
|
# Process Tests via check_procs
|
|
|
|
#
|
|
|
|
#
|
|
|
|
|
|
|
|
use strict;
|
2013-11-26 22:55:28 +00:00
|
|
|
use Test::More;
|
2013-11-26 22:53:19 +00:00
|
|
|
use NPTest;
|
|
|
|
|
|
|
|
my $t;
|
|
|
|
|
2013-11-26 22:56:50 +00:00
|
|
|
if (`uname -s` eq "SunOS\n" && ! -x "/usr/local/nagios/libexec/pst3") {
|
2013-11-26 22:55:28 +00:00
|
|
|
plan skip_all => "Ignoring tests on solaris because of pst3";
|
|
|
|
} else {
|
2014-07-11 19:01:00 +00:00
|
|
|
plan tests => 14;
|
2013-11-26 22:55:28 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
my $result;
|
|
|
|
|
|
|
|
$result = NPTest->testCmd( "./check_procs -w 100000 -c 100000" );
|
|
|
|
is( $result->return_code, 0, "Checking less than 10000 processes" );
|
2013-11-26 22:59:47 +00:00
|
|
|
like( $result->output, '/^PROCS OK: [0-9]+ process(es)? | procs=[0-9]+;100000;100000;0;$/', "Output correct" );
|
2013-11-26 22:55:28 +00:00
|
|
|
|
|
|
|
$result = NPTest->testCmd( "./check_procs -w 100000 -c 100000 -s Z" );
|
|
|
|
is( $result->return_code, 0, "Checking less than 100000 zombie processes" );
|
|
|
|
like( $result->output, '/^PROCS OK: [0-9]+ process(es)? with /', "Output correct" );
|
|
|
|
|
2014-07-11 19:01:00 +00:00
|
|
|
if(fork() == 0) { exec("sleep 7"); } else { sleep(1) } # fork a test process in child and give child time to fork in parent
|
|
|
|
$result = NPTest->testCmd( "./check_procs -a 'sleep 7'" );
|
|
|
|
is( $result->return_code, 0, "Parent process is ignored" );
|
|
|
|
like( $result->output, '/^PROCS OK: 1 process?/', "Output correct" );
|
|
|
|
|
2013-11-26 22:55:28 +00:00
|
|
|
$result = NPTest->testCmd( "./check_procs -w 0 -c 100000" );
|
|
|
|
is( $result->return_code, 1, "Checking warning if processes > 0" );
|
2013-11-26 22:59:47 +00:00
|
|
|
like( $result->output, '/^PROCS WARNING: [0-9]+ process(es)? | procs=[0-9]+;0;100000;0;$/', "Output correct" );
|
2013-11-26 22:55:28 +00:00
|
|
|
|
|
|
|
$result = NPTest->testCmd( "./check_procs -w 0 -c 0" );
|
|
|
|
is( $result->return_code, 2, "Checking critical if processes > 0" );
|
2013-11-26 22:59:47 +00:00
|
|
|
like( $result->output, '/^PROCS CRITICAL: [0-9]+ process(es)? | procs=[0-9]+;0;0;0;$/', "Output correct" );
|
2013-11-26 22:55:28 +00:00
|
|
|
|
2013-11-26 23:00:57 +00:00
|
|
|
$result = NPTest->testCmd( "./check_procs -w 0 -c 0 -s Ss" );
|
2013-11-26 22:55:28 +00:00
|
|
|
is( $result->return_code, 2, "Checking critical if sleeping processes" );
|
|
|
|
like( $result->output, '/^PROCS CRITICAL: [0-9]+ process(es)? with /', "Output correct" );
|
|
|
|
|
|
|
|
$result = NPTest->testCmd( "./check_procs -w 0 -c 100000 -p 1" );
|
|
|
|
is( $result->return_code, 1, "Checking warning for processes by parentid = 1" );
|
|
|
|
like( $result->output, '/^PROCS WARNING: [0-9]+ process(es)? with PPID = 1/', "Output correct" );
|
2013-11-26 22:53:19 +00:00
|
|
|
|