use strict;
use lib 't/lib';  # distributed here until changes are incorporated into the real version
use Apache::test qw(test);
use Test;

my %requests = 
  (
   2  => '/docs/simple.html',
   3  => {uri=>'/docs/simple.html',
          headers=>{'Accept-Encoding' => 'gzip'},
         },
  );


my %special_tests = 
  (
   3 => {content => \&decomp}, 
  );

plan tests => 1+keys(%requests);
ok 1;

foreach my $testnum (sort {$a<=>$b} keys %requests) {
  my $response = Apache::test->fetch($requests{$testnum});
  my $content = $response->content;
  
  if ($special_tests{$testnum}{content}) {
    $content = $special_tests{$testnum}{content}->($content);
  }
  unless (ok $content, scalar `cat t/check/$testnum`) {
    print $response->headers_as_string();
  }
}

######################################################################
use Compress::Zlib;

sub decomp {
  my $content = shift;
  my $file = 't/tmp';
  open TMP, ">$file" or die "Can't create $file: $!";
  print TMP $content;
  close TMP;
  
  my $gz = gzopen($file, 'rb') or die $!;
  my $buffer;
  $gz->gzread($buffer, 400);
  
  unlink $file;
  return $buffer;
}