view release on metacpan or  search on metacpan

t/compress.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 29;
use ApacheLog::Compressor;

sub is_hex($$;$) {
	my ($check, $expected, $txt) = @_;
	$txt = '' unless defined $txt;
	my @hex = split / /, $expected;
	is(unpack('H*', $check), join('', @hex), $txt);
}

my $comp = new_ok('ApacheLog::Compressor' => []);

my $buffer = '';
$comp = new_ok('ApacheLog::Compressor' => [