summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_http.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/t/check_http.t')
-rw-r--r--plugins/t/check_http.t36
1 files changed, 25 insertions, 11 deletions
diff --git a/plugins/t/check_http.t b/plugins/t/check_http.t
index 5be549a..56d939b 100644
--- a/plugins/t/check_http.t
+++ b/plugins/t/check_http.t
@@ -1,22 +1,36 @@
1#! /usr/bin/perl -w 1#! /usr/bin/perl -w -I ..
2#
3# HyperText Transfer Protocol (HTTP) Test via check_http
4#
5# $Id$
6#
2 7
3use strict; 8use strict;
4use Cache;
5use Test; 9use Test;
10use NPTest;
11
6use vars qw($tests); 12use vars qw($tests);
13BEGIN {$tests = 4; plan tests => $tests}
7 14
8BEGIN {$tests = 3; plan tests => $tests} 15my $host_tcp_http = getTestParameter( "host_tcp_http", "NP_HOST_TCP_HTTP", "localhost",
16 "A host providing the HTTP Service (a web server)" );
9 17
10my $null = ''; 18my $host_nonresponsive = getTestParameter( "host_nonresponsive", "NP_HOST_NONRESPONSIVE", "10.0.0.1",
11my $str; 19 "The hostname of system not responsive to network requests" );
12my $t;
13 20
14$str = `./check_http $Cache::httphost -wt 300 -ct 600`; 21my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost",
15$t += ok $?>>8,0; 22 "An invalid (not known to DNS) hostname" );
16$t += ok $str, '/(HTTP\s[o|O][k|K]\s)?\s?HTTP\/1.[01]\s[0-9]{3}\s(OK|Found)\s-\s+[0-9]+\sbytes\sin\s+([0-9]+|[0-9]+\.[0-9]+)\sseconds/';
17 23
18$str = `./check_http $Cache::nullhost -wt 1 -ct 2`; 24my $successOutput = '/(HTTP\s[o|O][k|K]\s)?\s?HTTP\/1.[01]\s[0-9]{3}\s(OK|Found)\s-\s+[0-9]+\sbytes\sin\s+([0-9]+|[0-9]+\.[0-9]+)\sseconds/';
19$t += ok $?>>8,2; 25
26my %exceptions = ( 2 => "No Web Server present?" );
27
28my $t;
29
30$t += checkCmd( "./check_http $host_tcp_http -wt 300 -ct 600", { 0 => 'continue', 2 => 'skip' }, $successOutput, %exceptions );
31$t += checkCmd( "./check_http $host_nonresponsive -wt 1 -ct 2", 2 );
32$t += checkCmd( "./check_http $hostname_invalid -wt 1 -ct 2", 2 );
20 33
21exit(0) if defined($Test::Harness::VERSION); 34exit(0) if defined($Test::Harness::VERSION);
22exit($tests - $t); 35exit($tests - $t);
36