summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_users.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/t/check_users.t')
-rw-r--r--plugins/t/check_users.t31
1 files changed, 14 insertions, 17 deletions
diff --git a/plugins/t/check_users.t b/plugins/t/check_users.t
index 593f1737..4b313d30 100644
--- a/plugins/t/check_users.t
+++ b/plugins/t/check_users.t
@@ -1,28 +1,25 @@
1#! /usr/bin/perl -w 1#! /usr/bin/perl -w -I ..
2#
3# Logged in Users Tests via check_users
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 = 4; plan tests => $tests} 13BEGIN {$tests = 4; plan tests => $tests}
9 14
10my $null = ''; 15my $successOutput = '/^USERS OK - [0-9]+ users currently logged in/';
11my $cmd; 16my $failureOutput = '/^USERS CRITICAL - [0-9]+ users currently logged in/';
12my $str;
13my $t;
14 17
15$cmd = "./check_users 1000 1000"; 18my $t;
16$str = `$cmd`;
17$t += ok $?>>8,0;
18print "Test was: $cmd\n" if ($?);
19$t += ok $str, '/^USERS OK - +[0-9]+ users currently logged in$/';
20 19
21$cmd = "./check_users 0 0"; 20$t += checkCmd( "./check_users 1000 1000", 0, $successOutput );
22$str = `$cmd`; 21$t += checkCmd( "./check_users 0 0", 2, $failureOutput );
23$t += ok $?>>8,2;
24print "Test was: $cmd\n" unless ($?);
25$t += ok $str, '/^USERS CRITICAL - [0-9]+ +users currently logged in$/';
26 22
27exit(0) if defined($Test::Harness::VERSION); 23exit(0) if defined($Test::Harness::VERSION);
28exit($tests - $t); 24exit($tests - $t);
25