← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to plugins/t/check_dns.t

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/t/check_dns.t
 
1
#! /usr/bin/perl -w
 
2
 
 
3
use strict;
 
4
use Cache;
 
5
use Test;
 
6
use vars qw($tests);
 
7
 
 
8
BEGIN {$tests = 3; plan tests => $tests}
 
9
 
 
10
#`nslookup localhost > /dev/null 2>&1` || exit(77);
 
11
 
 
12
my $null = '';
 
13
my $cmd;
 
14
my $str;
 
15
my $t;
 
16
 
 
17
$cmd = "./check_dns 127.0.0.1 -to 5";
 
18
$str = `$cmd`;
 
19
$t += ok $?>>8,0;
 
20
print "Test was: $cmd\n" if ($?);
 
21
$t += ok $str, '/DNS ok - +[\.0-9]+ seconds response time, Address\(es\) is\/are /';
 
22
 
 
23
$cmd = "./check_dns $Cache::nullhost -to 1";
 
24
$str = `$cmd`;
 
25
$t += ok $?>>8,2;
 
26
print "Test was: $cmd\n" unless ($?);
 
27
 
 
28
exit(0) if defined($Test::Harness::VERSION);
 
29
exit($tests - $t);