1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#!/usr/local/bin/perl -w
use strict;
use Test::More;
use Test::NoWarnings;
use lib qw( ../lib ./lib );
BEGIN { plan tests => 26 }
eval { chdir('t') };
use_ok('Nagios::StatusLog');
my $config = 'status.log';
ok( my $log = Nagios::StatusLog->new($config), "new()" );
ok( $log->update(), "update()" );
ok( my $host = $log->host('spaceghost'), "->host()" );
ok( my $svc = $log->service( 'localhost', 'SSH' ), "->service()" );
ok( my $pgm = $log->program(), "->program()" );
is( $host->host_name(), 'spaceghost',
"\$host->host_name() returns correct value" );
is( $svc->description(), 'SSH',
"\$svc->description() returns correct value" );
my $v2logfile = 'v2log.dat';
ok( my $v2log
= Nagios::StatusLog->new( Filename => $v2logfile, Version => '2.4' ),
"new()"
);
can_ok( $v2log, qw(host service program info) );
ok( my $i = $v2log->info, "info()" );
ok( my @services = $v2log->list_services(), "list_services()" );
ok( @services > 0, "More then 0 services." );
ok( my $h = $v2log->host('localhost'), "host()" );
ok( my $s = $v2log->service( 'localhost', $services[0] ), "service()" );
# bug reported by Edward J. Sabol
ok( grep( /^The Last Service$/, @services ),
"Got the last service in the file"
);
# bug reported by Duane Toler (included patch)
ok( my $s1 = $v2log->service( 'localhost', 'PENDING_OK_CHECK_PEND' ),
"get PENDING_OK_CHECK_PEND service for next test" );
is( $s1->has_been_checked, 0, "has_been_checked=0" );
is( $s1->status, 'PENDING', "Status is PENDING" );
ok( my $s2 = $v2log->service( 'localhost', 'PENDING_OK_CHECK_OK' ),
"get PENDING_OK_CHECK_OK service for next two tests"
);
is( $s2->has_been_checked, 1, "has_been_checked=1" );
is( $s2->status, 'OK', "Status is OK" );
# spot check
can_ok( $h, qw( host_name status check_command ) );
ok( $h->status, "status returns a non-null value" );
can_ok( $s, qw( host_name service_description last_time_ok ) );
exit 0;
|
