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::Tabular::ListCompDef;

my $file = 'list_comp_def.txt';

my $fixed_test =
  Test::Siebel::Srvrmgr::ListParser::Output::Tabular::ListCompDef->new(
    {
        structure_type => 'fixed',
        output_file    => [ 't', 'output', 'fixed', $file ]
    }
  );

my $delimited_test =
  Test::Siebel::Srvrmgr::ListParser::Output::Tabular::ListCompDef->new(
    {
        structure_type => 'delimited',
        col_sep        => '|',
        output_file    => [ 't', 'output', 'delimited', $file ]
    }
  );

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