plugins/t/check_procs.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Process Tests via check_procs
   4 #
   5 # $Id$
   6 #
   7
   8 use strict;
   9 use Test::More;
  10 use NPTest;
  11
  12 my $t;
  13
  14 if (`uname -s` eq "SunOS\n") {
  15         plan skip_all => "Ignoring tests on solaris because of pst3";
  16 } else {
  17         plan tests => 12;
  18 }
  19
  20 my $result;
  21
  22 $result = NPTest->testCmd( "./check_procs -w 100000 -c 100000" );
  23 is( $result->return_code, 0, "Checking less than 10000 processes" );
  24 like( $result->output, '/^PROCS OK: [0-9]+ process(es)?$/', "Output correct" );
  25
  26 $result = NPTest->testCmd( "./check_procs -w 100000 -c 100000 -s Z" );
  27 is( $result->return_code, 0, "Checking less than 100000 zombie processes" );
  28 like( $result->output, '/^PROCS OK: [0-9]+ process(es)? with /', "Output correct" );
  29
  30 $result = NPTest->testCmd( "./check_procs -w 0 -c 100000" );
  31 is( $result->return_code, 1, "Checking warning if processes > 0" );
  32 like( $result->output, '/^PROCS WARNING: [0-9]+ process(es)?$/', "Output correct" );
  33
  34 $result = NPTest->testCmd( "./check_procs -w 0 -c 0" );
  35 is( $result->return_code, 2, "Checking critical if processes > 0" );
  36 like( $result->output, '/^PROCS CRITICAL: [0-9]+ process(es)?$/', "Output correct" );
  37
  38 $result = NPTest->testCmd( "./check_procs -w 0 -c 0 -s S" );
  39 is( $result->return_code, 2, "Checking critical if sleeping processes" );
  40 like( $result->output, '/^PROCS CRITICAL: [0-9]+ process(es)? with /', "Output correct" );
  41
  42 $result = NPTest->testCmd( "./check_procs -w 0 -c 100000 -p 1" );
  43 is( $result->return_code, 1, "Checking warning for processes by parentid = 1" );
  44 like( $result->output, '/^PROCS WARNING: [0-9]+ process(es)? with PPID = 1/', "Output correct" );
  45