bzlib-src/t/01-baseline.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

# -*- mode: perl -*-

use Test::More tests => 6;
#use Test::More qw(no_plan);

our ( $debugf, $BZIP );

do 't/lib.pl';

my $PREFIX = catfile( qw(t 01-tmp) );

#display_file( 'words1' );

foreach my $insuffix ( qw( ref bz2 ) ) {
  my $outsuffix = $insuffix eq 'ref' ? 'bz2' : 'ref';
  foreach my $sampleno ( 1..3 ) {
    my $opts = $insuffix eq 'ref' ? "-$sampleno" : $sampleno < 3 ? "-d" : "-ds";

    system( "$::BZIP $opts  < sample$sampleno.$insuffix > $PREFIX-sample$sampleno-tst.$outsuffix" );
    ok ( compare_binary_files( "sample$sampleno.$outsuffix", "$PREFIX-sample$sampleno-tst.$outsuffix" ),
	 ($insuffix eq 'ref' ? 'compress' : 'uncompress'). " sample$sampleno.$insuffix successful" );
  }
}

#display_file( 'words3' );