1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
use strict;
use Test::More qw(no_plan);
use lib qw( ../lib ./lib );
eval { chdir('t') };
use_ok( 'Nagios::Object::Config' );
ok( my $parser = Nagios::Object::Config->new(), "\$parser = Nagios::Object::Config->new()" );
ok( $parser->parse( 'testconfig.cfg' ), "\$parser->parse( 'testconfig.cfg' )" );
ok( $parser->resolve_objects, "\$parser->resolve_objects" );
ok( $parser->register_objects, "\$parser->register_objects" );
ok( $parser->resolve_objects, "\$parser->resolve_objects should be ok to call multiple times" );
ok( $parser->register_objects, "\$parser->register_objects should be ok to call multiple times" );
ok( my @hosts = $parser->list_hosts(), "\$parser->list_hosts()" );
|
