← 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_users.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_users.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 = 4; plan tests => $tests}
 
9
 
 
10
my $null = '';
 
11
my $cmd;
 
12
my $str;
 
13
my $t;
 
14
 
 
15
$cmd = "./check_users 1000 1000";
 
16
$str = `$cmd`;
 
17
$t += ok $?>>8,0;
 
18
print "Test was: $cmd\n" if ($?);
 
19
$t += ok $str, '/^USERS OK - +[0-9]+ users currently logged in$/';
 
20
 
 
21
$cmd = "./check_users 0 0";
 
22
$str = `$cmd`;
 
23
$t += ok $?>>8,2;
 
24
print "Test was: $cmd\n" unless ($?);
 
25
$t += ok $str, '/^USERS CRITICAL - [0-9]+ +users currently logged in$/';
 
26
 
 
27
exit(0) if defined($Test::Harness::VERSION);
 
28
exit($tests - $t);