plugins/t/check_dig.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Domain Name Server (DNS) Tests via check_dig
   4 #
   5 # $Id$
   6 #
   7
   8 use strict;
   9 use Test::More;
  10 use NPTest;
  11
  12 plan skip_all => "check_dig not compiled" unless (-x "check_dig");
  13
  14 plan tests => 12;
  15
  16 my $successOutput = '/DNS OK - [\.0-9]+ seconds? response time/';
  17
  18 my $hostname_valid = getTestParameter(
  19                         "NP_HOSTNAME_VALID",
  20                         "A valid (known to DNS) hostname",
  21                         "nagios.com"
  22                         );
  23
  24 my $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
  30 my $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
  36 my $hostname_invalid = getTestParameter(
  37                         "NP_HOSTNAME_INVALID",
  38                         "An invalid (not known to DNS) hostname",
  39                         "nosuchhost.altinity.com",
  40                         );
  41
  42 my $dns_server       = getTestParameter(
  43                         "NP_DNS_SERVER",
  44                         "A non default (remote) DNS server",
  45                         );
  46
  47 my $res;
  48
  49 SKIP: {
  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 }