summaryrefslogtreecommitdiffstats
path: root/plugins
diff options
context:
space:
mode:
Diffstat (limited to 'plugins')
-rw-r--r--plugins/t/check_jabber.t55
1 files changed, 55 insertions, 0 deletions
diff --git a/plugins/t/check_jabber.t b/plugins/t/check_jabber.t
new file mode 100644
index 0000000..be232f2
--- /dev/null
+++ b/plugins/t/check_jabber.t
@@ -0,0 +1,55 @@
1#! /usr/bin/perl -w -I ..
2#
3# Jabber Server Tests via check_jabber
4#
5# $Id$
6#
7
8use strict;
9use Test;
10use NPTest;
11
12use vars qw($tests);
13BEGIN {$tests = 10; plan tests => $tests}
14
15my $host_tcp_jabber = getTestParameter(
16 "NP_HOST_TCP_JABBER",
17 "A host providing the Jabber Service",
18 "jabber.org"
19 );
20
21my $host_nonresponsive = getTestParameter(
22 "NP_HOST_NONRESPONSIVE",
23 "The hostname of system not responsive to network requests",
24 "10.0.0.1",
25 );
26
27my $hostname_invalid = getTestParameter(
28 "NP_HOSTNAME_INVALID",
29 "An invalid (not known to DNS) hostname",
30 "nosuchhost",
31 );
32
33my %exceptions = ( 2 => "No Jabber Server present?" );
34
35my $jabberOK = '/JABBER OK\s-\s\d+\.\d+\ssecond response time on port 5222/';
36
37my $jabberUnresponsive = '/CRITICAL\s-\sSocket timeout after\s\d+\sseconds/';
38
39my $jabberInvalid = '/check_JABBER: Invalid hostname, address or socket\s-\s.+/';
40
41my $t;
42
43$t += checkCmd( "./check_jabber $host_tcp_jabber", 0, $jabberOK );
44
45$t += checkCmd( "./check_jabber -H $host_tcp_jabber -w 9 -c 9 -t 10", 0, $jabberOK );
46
47$t += checkCmd( "./check_jabber $host_tcp_jabber -wt 9 -ct 9 -to 10", 0, $jabberOK );
48
49$t += checkCmd( "./check_jabber $host_nonresponsive", 2, $jabberUnresponsive );
50
51$t += checkCmd( "./check_jabber $hostname_invalid", 2, $jabberInvalid );
52
53exit(0) if defined($Test::Harness::VERSION);
54exit($tests - $t);
55