summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_procs.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/t/check_procs.t')
-rw-r--r--plugins/t/check_procs.t53
1 files changed, 13 insertions, 40 deletions
diff --git a/plugins/t/check_procs.t b/plugins/t/check_procs.t
index da49ac6..cb5f122 100644
--- a/plugins/t/check_procs.t
+++ b/plugins/t/check_procs.t
@@ -1,51 +1,24 @@
1#! /usr/bin/perl -w 1#! /usr/bin/perl -w -I ..
2#
3# Process Tests via check_procs
4#
5# $Id$
6#
2 7
3use strict; 8use strict;
4use Cache;
5use Test; 9use Test;
6use vars qw($tests); 10use NPTest;
7 11
12use vars qw($tests);
8BEGIN {$tests = 10; plan tests => $tests} 13BEGIN {$tests = 10; plan tests => $tests}
9 14
10my $null = '';
11my $cmd;
12my $str;
13my $t; 15my $t;
14 16
15# Reverse Compatibility 17$t += checkCmd( "./check_procs -w 100000 -c 100000", 0, '/^PROCS OK: [0-9]+ process(es)?$/' );
16$cmd = "./check_procs -w 100000 -c 100000"; 18$t += checkCmd( "./check_procs -w 100000 -c 100000 -s Z", 0, '/^PROCS OK: [0-9]+ process(es)? with /' );
17$str = `$cmd`; 19$t += checkCmd( "./check_procs -w 0 -c 10000000", 1, '/^PROCS WARNING: [0-9]+ process(es)?$/' );
18$t += ok $?>>8,0; 20$t += checkCmd( "./check_procs -w 0 -c 0", 2, '/^PROCS CRITICAL: [0-9]+ process(es)?$/' );
19print "Test was: $cmd\n" if ($?); 21$t += checkCmd( "./check_procs -w 0 -c 0 -s S", 2, '/^PROCS CRITICAL: [0-9]+ process(es)? with /' );
20$t += ok $str, '/^PROCS OK: [0-9]+ process(es)?$/';
21
22# Reverse Compatibility
23$cmd = "./check_procs -w 100000 -c 100000 -s Z";
24$str = `$cmd`;
25$t += ok $?>>8,0;
26print "Test was: $cmd\n" if ($?);
27$t += ok $str, '/^PROCS OK: [0-9]+ process(es)? with /';
28
29# Reverse Compatibility
30$cmd = "./check_procs -w 0 -c 10000000";
31$str = `$cmd`;
32$t += ok $?>>8,1;
33print "Test was: $cmd\n" unless ($?);
34$t += ok $str, '/^PROCS WARNING: [0-9]+ process(es)?$/';
35
36# Reverse Compatibility
37$cmd = "./check_procs -w 0 -c 0";
38$str = `$cmd`;
39$t += ok $?>>8,2;
40print "Test was: $cmd\n" unless ($?);
41$t += ok $str, '/^PROCS CRITICAL: [0-9]+ process(es)?$/';
42
43# Reverse Compatibility
44$cmd = "./check_procs -w 0 -c 0 -s S";
45$str = `$cmd`;
46$t += ok $?>>8,2;
47print "Test was: $cmd\n" unless ($?);
48$t += ok $str, '/^PROCS CRITICAL: [0-9]+ process(es)? with /';
49 22
50exit(0) if defined($Test::Harness::VERSION); 23exit(0) if defined($Test::Harness::VERSION);
51exit($tests - $t); 24exit($tests - $t);