view release on metacpan or  search on metacpan

t/00-decompress.t  view on Meta::CPAN

	return 200;
}

sub Apache::Constants::SERVER_ERROR
{
	return 500;
}

sub Apache::Constants::NOT_FOUND
{
	return 404;
}

Apache::Precompress::handler($request);

# Compare the file to the data below
my $contents = "";

open (FH,'<',$dir . '/baseline.html');
{
	local $/ = undef;

t/01-gzip.t  view on Meta::CPAN

	return 200;
}

sub Apache::Constants::SERVER_ERROR
{
	return 500;
}

sub Apache::Constants::NOT_FOUND
{
	return 404;
}

Apache::Precompress::handler($request);

# We now have compressed content. Check that it matches the
# file. Decompress here and check that it matches the 
# baseline.

open($fh, '>', $filename);
binmode($fh);