use lib 't';
use Test::Siebel::Srvrmgr::Daemon::Action::CheckComps;
my $filename = 'list_comp.txt';
my $fixed = Test::Siebel::Srvrmgr::Daemon::Action::CheckComps->new(
{
structure_type => 'fixed',
output_file => [ qw(t output fixed), $filename ]
}
);
my $delimited = Test::Siebel::Srvrmgr::Daemon::Action::CheckComps->new(
{
col_sep => '|',
structure_type => 'delimited',
output_file => [ qw(t output delimited), $filename ]
}
);
Test::Class->runtests( $fixed, $delimited );