summaryrefslogtreecommitdiffstats
path: root/plugins
diff options
context:
space:
mode:
Diffstat (limited to 'plugins')
-rw-r--r--plugins/t/check_ping.t83
1 files changed, 65 insertions, 18 deletions
diff --git a/plugins/t/check_ping.t b/plugins/t/check_ping.t
index 0dba91b..b8323a0 100644
--- a/plugins/t/check_ping.t
+++ b/plugins/t/check_ping.t
@@ -6,32 +6,79 @@
6# 6#
7 7
8use strict; 8use strict;
9use Test; 9use Test::More;
10use NPTest; 10use NPTest;
11 11
12use vars qw($tests); 12plan tests => 18;
13
14BEGIN {$tests = 8; plan tests => $tests}
15 13
16my $successOutput = '/PING (ok|OK) - Packet loss = +[0-9]{1,2}\%, +RTA = [\.0-9]+ ms/'; 14my $successOutput = '/PING (ok|OK) - Packet loss = +[0-9]{1,2}\%, +RTA = [\.0-9]+ ms/';
17my $failureOutput = '/Packet loss = +[0-9]{1,2}\%, +RTA = [\.0-9]+ ms/'; 15my $failureOutput = '/Packet loss = +[0-9]{1,2}\%, +RTA = [\.0-9]+ ms/';
18 16
19my $host_responsive = getTestParameter( "host_responsive", "NP_HOST_RESPONSIVE", "localhost", 17my $host_responsive = getTestParameter( "NP_HOST_RESPONSIVE",
20 "The hostname of system responsive to network requests" ); 18 "The hostname of system responsive to network requests",
19 "localhost" );
20
21my $host_nonresponsive = getTestParameter( "NP_HOST_NONRESPONSIVE",
22 "The hostname of system not responsive to network requests",
23 "10.0.0.1" );
24
25my $hostname_invalid = getTestParameter( "NP_HOSTNAME_INVALID",
26 "An invalid (not known to DNS) hostname",
27 "nosuchhost" );
28
29my $res;
30
31$res = NPTest->testCmd(
32 "./check_ping -H $host_responsive -w 10,100% -c 10,100% -p 1"
33 );
34is( $res->return_code, 0, "Syntax ok" );
35like( $res->output, $successOutput, "Output OK" );
36
37$res = NPTest->testCmd(
38 "./check_ping -H $host_responsive -w 0,0% -c 10,100% -p 1"
39 );
40is( $res->return_code, 1, "Syntax ok, with forced warning" );
41like( $res->output, $failureOutput, "Output OK" );
42
43$res = NPTest->testCmd(
44 "./check_ping -H $host_responsive -w 0,0% -c 0,0% -p 1"
45 );
46is( $res->return_code, 2, "Syntax ok, with forced critical" );
47like( $res->output, $failureOutput, "Output OK" );
48
49$res = NPTest->testCmd(
50 "./check_ping $host_responsive 100 100 1000 1000 -p 1"
51 );
52is( $res->return_code, 0, "Old syntax ok" );
53like( $res->output, $successOutput, "Output OK" );
54
55$res = NPTest->testCmd(
56 "./check_ping $host_responsive 0 0 0 0 -p 1"
57 );
58is( $res->return_code, 2, "Old syntax, with forced critical" );
59like( $res->output, $failureOutput, "Output OK" );
21 60
22my $host_nonresponsive = getTestParameter( "host_nonresponsive", "NP_HOST_NONRESPONSIVE", "10.0.0.1", 61$res = NPTest->testCmd(
23 "The hostname of system not responsive to network requests" ); 62 "./check_ping -H $host_nonresponsive -w 10,100% -c 10,100% -p 1 -t 1"
63 );
64is( $res->return_code, 2, "Timeout - host nonresponsive" );
65like( $res->output, '/100%/', "Error contains '100%' string (for 100% packet loss)" );
24 66
25my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost", 67$res = NPTest->testCmd(
26 "An invalid (not known to DNS) hostname" ); 68 "./check_ping $host_nonresponsive -p 1 -t 1 100 100 1000 10000"
69 );
70is( $res->return_code, 2, "Old syntax: Timeout - host nonresponsive" );
71like( $res->output, '/100%/', "Error contains '100%' string (for 100% packet loss)" );
27 72
28my $t; 73$res = NPTest->testCmd(
74 "./check_ping $hostname_invalid 0 0 0 0 -p 1 -t 1"
75 );
76is( $res->return_code, 3, "Invalid hostname" );
77like( $res->output, '/invalid hostname/i', "Error contains 'invalid hostname' string");
29 78
30$t += checkCmd( "./check_ping $host_responsive 100 100 1000 1000 -p 1", 0, $successOutput ); 79$res = NPTest->testCmd(
31$t += checkCmd( "./check_ping $host_responsive 0 0 0 0 -p 1", 2, $failureOutput ); 80 "./check_ping -w 100,10% -c 200,20%"
32$t += checkCmd( "./check_ping $host_nonresponsive 0 0 0 0 -p 1 -to 1", 2 ); 81 );
33$t += checkCmd( "./check_ping $hostname_invalid 0 0 0 0 -p 1 -to 1", 3 ); 82is( $res->return_code, 3, "No hostname" );
34$t += checkCmd( "./check_ping -w 100,10% -c 200,20%" , 3 , "/You must specify a server address or host name.*/"); 83like( $res->output, '/You must specify a server address or host name/', "Output with appropriate error message");
35 84
36exit(0) if defined($Test::Harness::VERSION);
37exit($tests - $t);