← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test.pl.in

  • 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:
test.pl.in
 
1
#!/usr/bin/perl -w
 
2
use strict;
 
3
 
 
4
my $file = '../Cache';
 
5
unless (-f "$file.pm") {
 
6
        open(CACHE,">$file.pm") or die "Cannot open cache";
 
7
        print CACHE "package Cache;
 
8
require Exporter;
 
9
\@ISA=qw(Exporter);
 
10
\@EXPORT=qw();
 
11
1;
 
12
";
 
13
        close CACHE;
 
14
}
 
15
 
 
16
use Helper;
 
17
my ($tstdir,$spath,$hostname,$mailhost,$noserver,$nullhost,$quickcheck);
 
18
 
 
19
use Getopt::Long;
 
20
GetOptions
 
21
        ("tstdir:s"=>\$tstdir,
 
22
         "spath:s"=>\$spath,
 
23
         "hostname:s"=>\$hostname,
 
24
         "mailhost:s"=>\$mailhost,
 
25
         "noserver:s"=>\$noserver,
 
26
         "nullhost:s"=>\$nullhost,
 
27
         "quickcheck"=>\$quickcheck);
 
28
 
 
29
$spath = "." unless ($spath);
 
30
 
 
31
unless ($quickcheck) {
 
32
    
 
33
        $hostname = get_option("hostname","host for FTP/HTTP/UDP tests")        unless ($hostname);
 
34
        $mailhost = get_option("mailhost","host for SMTP/IMAP/POP tests")       unless ($mailhost);
 
35
        $noserver = get_option("noserver","host that rejects above services")   unless ($noserver);
 
36
        # This machine should not be locatable from your network.  Use IP
 
37
        # private addresses like 10.x.x.x and pick one that does not exist
 
38
        # on your LAN/WAN
 
39
        $nullhost = get_option("nullhost","nonexistent IP address (e.g., 10.0.0.0)")    unless ($nullhost);
 
40
}
 
41
 
 
42
my @dots;
 
43
if (@ARGV) {
 
44
        @dots = @ARGV;
 
45
} else {
 
46
        unless ($tstdir) {
 
47
                if (-d './t') {
 
48
                        $tstdir = './t';
 
49
                } else {
 
50
                        $tstdir = $ENV{PWD};
 
51
                        $tstdir = `/bin/pwd` unless defined($tstdir);
 
52
                        chomp $tstdir;
 
53
                        if (defined($tstdir)) {
 
54
                                $tstdir =~ s|^(.*)/([^/]+)/?$|$1/$2|;
 
55
                                if (-d "../../$2/t") {
 
56
                                        $tstdir = "../../$2/t";
 
57
                                } elsif (-d "$tstdir/t") {
 
58
                                        $tstdir = "$tstdir/t";
 
59
                                }
 
60
                        } else {
 
61
                                die "Could not get PWD from environment\n";
 
62
                        }
 
63
                }
 
64
        }
 
65
        $tstdir = './t' unless ($tstdir);
 
66
        opendir(DIR, $tstdir) || die "can't opendir $tstdir: $!";
 
67
        while ($file = readdir(DIR)) {
 
68
                push @dots, "$tstdir/$file" if ($file =~ m/^[^\.]+\.t$/);
 
69
        }
 
70
        closedir DIR;
 
71
}
 
72
my $prog;
 
73
my $test;
 
74
my @progs;
 
75
foreach $test (@dots) {
 
76
        $prog=`basename $test .t`;
 
77
        chomp $prog;
 
78
        if ( -e "$prog" ){
 
79
                push @progs, "$test";
 
80
        }else{
 
81
                print "No binary found for $prog\n";
 
82
        }
 
83
}
 
84
 
 
85
use Test::Harness;
 
86
#$Test::Harness::verbose=1;
 
87
runtests(@progs);