43 lines
1.1 KiB
Perl
43 lines
1.1 KiB
Perl
#! /usr/bin/perl -w -I ..
|
|
#
|
|
# Domain Name Server (DNS) Tests via check_dns
|
|
#
|
|
# $Id: check_dns.t,v 1.3 2005/07/25 01:47:14 illumino Exp $
|
|
#
|
|
|
|
use strict;
|
|
use Test;
|
|
use NPTest;
|
|
|
|
use vars qw($tests);
|
|
BEGIN {$tests = 6; plan tests => $tests}
|
|
|
|
my $successOutput = '/DNS OK: [\.0-9]+ seconds response time/';
|
|
|
|
my $hostname_valid = getTestParameter( "hostname_valid", "NP_HOSTNAME_VALID", "localhost",
|
|
"A valid (known to DNS) hostname" );
|
|
|
|
my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost",
|
|
"An invalid (not known to DNS) hostname" );
|
|
|
|
my $dns_server = getTestParameter( "dns_server", "NP_DNS_SERVER", undef,
|
|
"A non default (remote) DNS server" );
|
|
|
|
my $t;
|
|
|
|
#
|
|
# Default DNS Server
|
|
#
|
|
$t += checkCmd( "./check_dns -H $hostname_valid -t 5", 0, $successOutput );
|
|
$t += checkCmd( "./check_dns -H $hostname_invalid -t 1", 2 );
|
|
|
|
#
|
|
# Specified DNS Server
|
|
#
|
|
$t += checkCmd( "./check_dns -H $hostname_valid -s $dns_server -t 5", 0, $successOutput );
|
|
$t += checkCmd( "./check_dns -H $hostname_invalid -s $dns_server -t 1", 2 );
|
|
|
|
exit(0) if defined($Test::Harness::VERSION);
|
|
exit($tests - $t);
|
|
|