← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to plugins/t/check_procs.t

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/t/check_procs.t
 
1
#! /usr/bin/perl -w
 
2
 
 
3
use strict;
 
4
use Cache;
 
5
use Test;
 
6
use vars qw($tests);
 
7
 
 
8
BEGIN {$tests = 10; plan tests => $tests}
 
9
 
 
10
my $null = '';
 
11
my $cmd;
 
12
my $str;
 
13
my $t;
 
14
 
 
15
# Reverse Compatibility
 
16
$cmd = "./check_procs -w 100000 -c 100000";
 
17
$str = `$cmd`;
 
18
$t += ok $?>>8,0;
 
19
print "Test was: $cmd\n" if ($?);
 
20
$t += ok $str, '/^OK - [0-9]+ processes running$/';
 
21
 
 
22
# Reverse Compatibility
 
23
$cmd = "./check_procs -w 100000 -c 100000 -s Z";
 
24
$str = `$cmd`;
 
25
$t += ok $?>>8,0;
 
26
print "Test was: $cmd\n" if ($?);
 
27
$t += ok $str, '/^OK - [0-9]+ processes running with /';
 
28
 
 
29
# Reverse Compatibility
 
30
$cmd = "./check_procs -w 0 -c 10000000";
 
31
$str = `$cmd`;
 
32
$t += ok $?>>8,1;
 
33
print "Test was: $cmd\n" unless ($?);
 
34
$t += ok $str, '/^WARNING - [0-9]+ processes running$/';
 
35
 
 
36
# Reverse Compatibility
 
37
$cmd = "./check_procs -w 0 -c 0";
 
38
$str = `$cmd`;
 
39
$t += ok $?>>8,2;
 
40
print "Test was: $cmd\n" unless ($?);
 
41
$t += ok $str, '/^CRITICAL - [0-9]+ processes running$/';
 
42
 
 
43
# Reverse Compatibility
 
44
$cmd = "./check_procs -w 0 -c 0 -s S";
 
45
$str = `$cmd`;
 
46
$t += ok $?>>8,2;
 
47
print "Test was: $cmd\n" unless ($?);
 
48
$t += ok $str, '/^CRITICAL - [0-9]+ processes running with /';
 
49
 
 
50
exit(0) if defined($Test::Harness::VERSION);
 
51
exit($tests - $t);