summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_dig.t
diff options
context:
space:
mode:
authorMatthias Eble <psychotrahe@users.sourceforge.net>2008-06-09 19:47:36 (GMT)
committerMatthias Eble <psychotrahe@users.sourceforge.net>2008-06-09 19:47:36 (GMT)
commitd8577e19942b4885ac642513540fc1791a0fa38b (patch)
treee31b28007cee8baf4c76ed5a3eb2312d0a6fdac8 /plugins/t/check_dig.t
parent5c3d4aea27de408cb7b04f5aab83558efbf841f4 (diff)
downloadmonitoring-plugins-d8577e19942b4885ac642513540fc1791a0fa38b.tar.gz
Added testcases for check_dig
check_dig's -l option is mandatory now (#1986306) git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2011 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins/t/check_dig.t')
-rw-r--r--plugins/t/check_dig.t85
1 files changed, 85 insertions, 0 deletions
diff --git a/plugins/t/check_dig.t b/plugins/t/check_dig.t
new file mode 100644
index 0000000..937eec3
--- /dev/null
+++ b/plugins/t/check_dig.t
@@ -0,0 +1,85 @@
1#! /usr/bin/perl -w -I ..
2#
3# Domain Name Server (DNS) Tests via check_dig
4#
5# $Id$
6#
7
8use strict;
9use Test::More;
10use NPTest;
11
12plan skip_all => "check_dig not compiled" unless (-x "check_dig");
13
14plan tests => 12;
15
16my $successOutput = '/DNS OK - [\.0-9]+ seconds? response time/';
17
18my $hostname_valid = getTestParameter(
19 "NP_HOSTNAME_VALID",
20 "A valid (known to DNS) hostname",
21 "nagios.com"
22 );
23
24my $hostname_valid_ip = getTestParameter(
25 "NP_HOSTNAME_VALID_IP",
26 "The IP address of the valid hostname $hostname_valid",
27 "66.118.156.50",
28 );
29
30my $hostname_valid_reverse = getTestParameter(
31 "NP_HOSTNAME_VALID_REVERSE",
32 "The hostname of $hostname_valid_ip",
33 "66-118-156-50.static.sagonet.net.",
34 );
35
36my $hostname_invalid = getTestParameter(
37 "NP_HOSTNAME_INVALID",
38 "An invalid (not known to DNS) hostname",
39 "nosuchhost.altinity.com",
40 );
41
42my $dns_server = getTestParameter(
43 "NP_DNS_SERVER",
44 "A non default (remote) DNS server",
45 );
46
47my $res;
48
49SKIP: {
50 skip "check_dig.t: not enough parameters given",
51 12 unless ($hostname_valid && $hostname_valid_ip && $hostname_valid_reverse && $hostname_invalid && $dns_server);
52
53 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -t 5");
54 cmp_ok( $res->return_code, '==', 0, "Found $hostname_valid");
55 like ( $res->output, $successOutput, "Output OK" );
56
57 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -t 5 -w 0.000001 -c 0.00001");
58 cmp_ok( $res->return_code, '==', 2, "Critical threshold passed");
59
60 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -t 5 -w 0.000001 -c 5");
61 cmp_ok( $res->return_code, '==', 1, "Warning threshold passed");
62
63 $res = NPTest->testCmd("./check_dig -H $dns_server -t 1");
64 cmp_ok( $res->return_code, '==', 3, "Invalid command line -l missing");
65
66 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_invalid -t 1");
67 cmp_ok( $res->return_code, '==', 2, "Invalid $hostname_invalid");
68
69 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -t 5");
70 cmp_ok( $res->return_code, '==', 0, "Found $hostname_valid on $dns_server");
71 like ( $res->output, $successOutput, "Output OK" );
72
73 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -a $hostname_valid_ip -t 5");
74 cmp_ok( $res->return_code, '==', 0, "Got expected address");
75
76 $res = NPTest->testCmd("./check_dig -H $dns_server -l $hostname_valid -a 10.10.10.10 -t 5");
77 cmp_ok( $res->return_code, '==', 1, "Got wrong address");
78
79 my $ip_reverse = $hostname_valid_ip;
80 $ip_reverse =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$4.$3.$2.$1.in-addr.arpa/;
81 $res = NPTest->testCmd("./check_dig -H $dns_server -l $ip_reverse -a $hostname_valid_reverse -T PTR -t 5");
82 cmp_ok( $res->return_code, '==', 0, "Got expected fqdn");
83 like ( $res->output, $successOutput, "Output OK");
84
85}