summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTon Voon <tonvoon@users.sourceforge.net>2006-03-07 10:23:31 (GMT)
committerTon Voon <tonvoon@users.sourceforge.net>2006-03-07 10:23:31 (GMT)
commit7a4818fb1224b2dc3dbf5a8042ce650ad958ddc8 (patch)
tree1ac4672cdb2f6d5f2dd5fb28634f78963e674dbf
parent43c2e6ec94efa424a87316f7e47cc3c3aa1a8ebe (diff)
downloadmonitoring-plugins-7a4818fb1224b2dc3dbf5a8042ce650ad958ddc8.tar.gz
Tests re-written in new object format
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1320 f882894a-f735-0410-b71e-b25c423dba1c
-rw-r--r--plugins/t/check_http.t46
1 files changed, 29 insertions, 17 deletions
diff --git a/plugins/t/check_http.t b/plugins/t/check_http.t
index d979914..598a423 100644
--- a/plugins/t/check_http.t
+++ b/plugins/t/check_http.t
@@ -6,31 +6,43 @@
6# 6#
7 7
8use strict; 8use strict;
9use Test; 9use Test::More;
10use NPTest; 10use NPTest;
11 11
12use vars qw($tests); 12my $successOutput = '/OK.*HTTP.*second/';
13BEGIN {$tests = 4; plan tests => $tests}
14 13
15my $host_tcp_http = getTestParameter( "host_tcp_http", "NP_HOST_TCP_HTTP", "localhost", 14my $res;
16 "A host providing the HTTP Service (a web server)" );
17 15
18my $host_nonresponsive = getTestParameter( "host_nonresponsive", "NP_HOST_NONRESPONSIVE", "10.0.0.1", 16my $host_tcp_http = getTestParameter( "NP_HOST_TCP_HTTP",
19 "The hostname of system not responsive to network requests" ); 17 "A host providing the HTTP Service (a web server)",
18 "localhost" );
20 19
21my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost", 20my $host_nonresponsive = getTestParameter( "NP_HOST_NONRESPONSIVE",
22 "An invalid (not known to DNS) hostname" ); 21 "The hostname of system not responsive to network requests",
22 "10.0.0.1" );
23 23
24my $successOutput = '/OK.*HTTP.*second/'; 24my $hostname_invalid = getTestParameter( "NP_HOSTNAME_INVALID",
25 "An invalid (not known to DNS) hostname",
26 "nosuchhost");
27
28plan tests => 6;
25 29
26my %exceptions = ( 2 => "No Web Server present?" );
27 30
28my $t; 31$res = NPTest->testCmd(
32 "./check_http $host_tcp_http -wt 300 -ct 600"
33 );
34cmp_ok( $res->return_code, '==', 0, "Webserver $host_tcp_http responded" );
35like( $res->output, $successOutput, "Output OK" );
29 36
30$t += checkCmd( "./check_http $host_tcp_http -wt 300 -ct 600", { 0 => 'continue', 2 => 'skip' }, $successOutput, %exceptions ); 37$res = NPTest->testCmd(
31$t += checkCmd( "./check_http $host_nonresponsive -wt 1 -ct 2", 2 ); 38 "./check_http $host_nonresponsive -wt 1 -ct 2"
32$t += checkCmd( "./check_http $hostname_invalid -wt 1 -ct 2", 2 ); 39 );
40cmp_ok( $res->return_code, '==', 2, "Webserver $host_nonresponsive not responding" );
41cmp_ok( $res->output, 'eq', "CRITICAL - Socket timeout after 10 seconds", "Output OK");
33 42
34exit(0) if defined($Test::Harness::VERSION); 43$res = NPTest->testCmd(
35exit($tests - $t); 44 "./check_http $hostname_invalid -wt 1 -ct 2"
45 );
46cmp_ok( $res->return_code, '==', 2, "Webserver $hostname_invalid not valid" );
47like( $res->output, "/Name or service not known.*/", "Output OK");
36 48