plugins/tests/check_procs.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Test check_procs using input files
   4 #
   5
   6 use strict;
   7 use Test::More;
   8 use NPTest;
   9
  10 if (-x "./check_procs") {
  11         plan tests => 50;
  12 } else {
  13         plan skip_all => "No check_procs compiled";
  14 }
  15
  16 my $result;
  17 my $command = "./check_procs --input-file=tests/var/ps-axwo.darwin";
  18
  19 $result = NPTest->testCmd( "$command" );
  20 is( $result->return_code, 0, "Run with no options" );
  21 like( $result->output, '/^PROCS OK: 95 processes$/', "Output correct" );
  22
  23 $result = NPTest->testCmd( "$command -w 5" );
  24 is( $result->return_code, 1, "Checking > 5 processes" );
  25 like( $result->output, '/^PROCS WARNING: 95 processes$/', "Output correct" );
  26
  27 $result = NPTest->testCmd( "$command -w 4 -c 44" );
  28 is( $result->return_code, 2, "Checking critical" );
  29 like( $result->output, '/^PROCS CRITICAL: 95 processes$/', "Output correct" );
  30
  31 $result = NPTest->testCmd( "$command -w 100 -c 200" );
  32 is( $result->return_code, 0, "Checking no threshold breeched" );
  33 like( $result->output, '/^PROCS OK: 95 processes$/', "Output correct" );
  34
  35 $result = NPTest->testCmd( "$command -C launchd -c 5" );
  36 is( $result->return_code, 2, "Checking processes filtered by command name" );
  37 like( $result->output, '/^PROCS CRITICAL: 6 processes with command name \'launchd\'$/', "Output correct" );
  38
  39 $result = NPTest->testCmd( "$command -u 501 -w 39 -c 41" );
  40 is( $result->return_code, 1, "Checking processes filtered by userid" );
  41 like( $result->output, '/^PROCS WARNING: 40 processes with UID = 501 (.*)$/', "Output correct" );
  42
  43 $result = NPTest->testCmd( "$command -C launchd -u 501" );
  44 is( $result->return_code, 0, "Checking processes filtered by command name and userid" );
  45 like( $result->output, '/^PROCS OK: 1 process with command name \'launchd\', UID = 501 (.*)$/', "Output correct" );
  46
  47 $result = NPTest->testCmd( "$command -u -2 -w 2:2" );
  48 is( $result->return_code, 1, "Checking processes with userid=-2" );
  49 like( $result->output, '/^PROCS WARNING: 3 processes with UID = -2 \(nobody\)$/', "Output correct" );
  50
  51 $result = NPTest->testCmd( "$command -u -2 -w 3:3" );
  52 is( $result->return_code, 0, "Checking processes with userid=-2 past threshold" );
  53 like( $result->output, '/^PROCS OK: 3 processes with UID = -2 \(nobody\)$/', "Output correct" );
  54
  55 $result = NPTest->testCmd( "$command -u -2 -a usb" );
  56 is( $result->return_code, 0, "Checking processes with userid=-2 and usb in arguments" );
  57 like( $result->output, '/^PROCS OK: 1 process with UID = -2 \(nobody\), args \'usb\'/', "Output correct" );
  58
  59 $result = NPTest->testCmd( "$command -u -2 -a UsB" );
  60 is( $result->return_code, 0, "Checking case sensitivity of args" );
  61 like( $result->output, '/^PROCS OK: 0 processes with UID = -2 \(nobody\), args \'UsB\'/', "Output correct" );
  62
  63 $result = NPTest->testCmd( "$command --ereg-argument-array='mdworker.*501'" );
  64 is( $result->return_code, 0, "Checking regexp search of arguments" );
  65 is( $result->output, "PROCS OK: 1 process with regex args 'mdworker.*501'", "Output correct" );
  66
  67 $result = NPTest->testCmd( "$command --vsz 1000000" );
  68 is( $result->return_code, 0, "Checking filter by VSZ" );
  69 like( $result->output, '/^PROCS OK: 24 processes with VSZ >= 1000000$/', "Output correct" );
  70
  71 $result = NPTest->testCmd( "$command --rss 100000" );
  72 is( $result->return_code, 0, "Checking filter by RSS" );
  73 like( $result->output, '/^PROCS OK: 3 processes with RSS >= 100000$/', "Output correct" );
  74
  75 $result = NPTest->testCmd( "$command -s S" );
  76 is( $result->return_code, 0, "Checking filter for sleeping processes" );
  77 like( $result->output, '/^PROCS OK: 44 processes with STATE = S/', "Output correct" );
  78
  79 $result = NPTest->testCmd( "$command -s Z" );
  80 is( $result->return_code, 0, "Checking filter for zombies" );
  81 like( $result->output, '/^PROCS OK: 1 process with STATE = Z/', "Output correct" );
  82
  83 $result = NPTest->testCmd( "$command -p 1 -c 30" );
  84 is( $result->return_code, 2, "Checking filter for parent id = 1" );
  85 like( $result->output, '/^PROCS CRITICAL: 39 processes with PPID = 1/', "Output correct" );
  86
  87 $result = NPTest->testCmd( "$command -P 0.71" );
  88 is( $result->return_code, 0, "Checking filter for percentage cpu > 0.71" );
  89 is( $result->output, 'PROCS OK: 7 processes with PCPU >= 0.71', "Output correct" );
  90
  91 $result = NPTest->testCmd( "$command -P 0.70" );
  92 is( $result->return_code, 0, "Checking filter for percentage cpu > 0.70" );
  93 is( $result->output, 'PROCS OK: 8 processes with PCPU >= 0.70', "Output correct" );
  94
  95 $result = NPTest->testCmd( "$command --metric=CPU -w 8" );
  96 is( $result->return_code, 1, "Checking against metric of CPU > 8" );
  97 is( $result->output, 'CPU WARNING: 1 warn out of 95 processes', "Output correct" );
  98
  99 # TODO: Because of a conversion to int, if CPU is 1.45%, will not alert, but 2.01% will.
 100 $result = NPTest->testCmd( "$command --metric=CPU -w 1 -u 501 -v" );
 101 is( $result->return_code, 1, "Checking against metric of CPU > 1 with uid=501 - TODO" );
 102 is( $result->output, 'CPU WARNING: 2 warn out of 40 processes with UID = 501 (tonvoon) [Skype, PubSubAgent]', "Output correct" );
 103
 104 $result = NPTest->testCmd( "$command --metric=VSZ -w 1200000 -v" );
 105 is( $result->return_code, 1, "Checking against VSZ > 1.2GB" );
 106 is( $result->output, 'VSZ WARNING: 4 warn out of 95 processes [WindowServer, Safari, Mail, Skype]', "Output correct" );
 107
 108 $result = NPTest->testCmd( "$command --metric=VSZ -w 1200000 -v" );
 109 is( $result->return_code, 1, "Checking against VSZ > 1.2GB" );
 110 is( $result->output, 'VSZ WARNING: 4 warn out of 95 processes [WindowServer, Safari, Mail, Skype]', "Output correct" );
 111
 112 $result = NPTest->testCmd( "$command --metric=RSS -c 70000 -v" );
 113 is( $result->return_code, 2, "Checking against RSS > 70MB" );
 114 is( $result->output, 'RSS CRITICAL: 5 crit, 0 warn out of 95 processes [WindowServer, SystemUIServer, Safari, Mail, Safari]', "Output correct" );
 115
 116 $result = NPTest->testCmd( "$command --ereg-argument-array='(nosuchname|nosuch2name)'" );
 117 is( $result->return_code, 0, "Checking no pipe symbol in output" );
 118 is( $result->output, "PROCS OK: 0 processes with regex args '(nosuchname,nosuch2name)'", "Output correct" );
 119