use lib 't';
use Test::Siebel::Srvrmgr::Daemon::Action::Check::Component;
use Test::Most tests => 8;
use Test::Moose;
my $comp = Test::Siebel::Srvrmgr::Daemon::Action::Check::Component->new(
{
alias => 'SynchMgr',
description => 'foobar',
componentGroup => 'foobar',
OKStatus => 'Running',
taskOKStatus => 'Running',
criticality => 5
}
);
does_ok( $comp, 'Siebel::Srvrmgr::Daemon::Action::Check::Component' );
foreach (qw(alias description componentGroup OKStatus criticality)) {
has_attribute_ok( $comp, $_, "$comp has the attribute $_" );
}
dies_ok(
sub {
my $comp =
Test::Siebel::Srvrmgr::Daemon::Action::Check::Component->new();
},
'constructor cannot accept missing attributes declaration'
);
dies_ok(
sub {
my $comp =
Test::Siebel::Srvrmgr::Daemon::Action::Check::Component->new(
{
alias => '',
description => 'foo',
componentGroup => 'foo',
OKStatus => 'foo',
taskOKStatus => 'foo',
criticality => '1'
}
);
},
'constructor cannot accept string based attributes without value'
);