view release on metacpan or  search on metacpan

t/Combine.t  view on Meta::CPAN

}

sub tests {
    use_ok( $CLASS, 'combine' );
    can_ok( __PACKAGE__, 'combine' );
    cleanup();
    link( 't/res/merge.head', 't/merge.head' );
    link( 't/res/merge.raw', 't/merge.raw' );
    combine( 't/merge' );

    local $/ = '';
    open( my $merge, '<', 't/merge' );
    my $data = <$merge>;
    is(
        $data,
        <<EOT,
z,y,x,d,c,b,a
,,,4,3,2,1
,,,4,3,2,1
,,,4,3,2,1
9,8,,,,2,1