The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib 't';
use Test::Siebel::Srvrmgr::ListParser::Output::ListComp::Server;

my $fixed_test = Test::Siebel::Srvrmgr::ListParser::Output::ListComp::Server->new(
    {
        structure_type => 'fixed',
        output_file    => [ 't', 'output', 'fixed', 'list_comp.txt' ]
    }
);

my $delimited_test = Test::Siebel::Srvrmgr::ListParser::Output::ListComp::Server->new(
    {
        structure_type => 'delimited',
        col_sep        => '|',
        output_file    => [ 't', 'output', 'delimited', 'list_comp.txt' ]
    }
);

Test::Class->runtests( $fixed_test, $delimited_test );