perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/t/conf extra.conf.in
Date Tue, 05 Aug 2003 18:51:11 GMT
stas        2003/08/05 11:51:11

  Modified:    ModPerl-Registry/t/conf extra.conf.in
  Added:       ModPerl-Registry/t flush.t
               ModPerl-Registry/t/cgi-bin flush.pl
  Log:
  a new flushing test which will work, once mod_deflate is fixed
  
  Revision  Changes    Path
  1.1                  modperl-2.0/ModPerl-Registry/t/flush.t
  
  Index: flush.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw(GET_BODY);
  
  plan tests => 1, have 'Compress::Zlib', 'deflate',
      have_min_apache_version("2.0.49");
  
  #XXX which release the mod_deflate bug is fixed in? Apache/2.0.49? 
  # should probably submit a bug report and use the bug id here so
  # others can track the problem
  
  require Compress::Zlib;
  
  my $url = "/registry_bb_deflate/flush.pl";
  
  my $expected = "yet another boring test string";
  my $received = GET_BODY $url, 'Accept-encoding' => 'gzip';
  my $decompressed = Compress::Zlib::memGunzip($received);
  
  ok t_cmp(
      $expected,
      $decompressed,
      "test flush body"
     );
  
  
  
  
  1.1                  modperl-2.0/ModPerl-Registry/t/cgi-bin/flush.pl
  
  Index: flush.pl
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  local $| = 1; # unbuffered mode
  
  my $r = shift;
  
  print "Content-Type: text/html\n\n";
  print "yet another boring test string";
  
  # This line passes a bucket brigade with a single bucket FLUSH
  # it was causing problems in the mod_deflate filter which was trying to
  # deflate empty output buffer, (the previous print has already flushed
  # all the output) (the fix in mod_deflate.c was to check whether the
  # buffer is full)
  print "";
  
  
  
  
  1.10      +18 -0     modperl-2.0/ModPerl-Registry/t/conf/extra.conf.in
  
  Index: extra.conf.in
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/conf/extra.conf.in,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- extra.conf.in	6 Feb 2003 23:57:08 -0000	1.9
  +++ extra.conf.in	5 Aug 2003 18:51:10 -0000	1.10
  @@ -128,3 +128,21 @@
       Options +ExecCGI
       PerlResponseHandler ModPerl::Registry
   </Location>
  +
  +### deflate tests ###
  +
  +Alias /registry_bb_deflate/ @ServerRoot@/cgi-bin/
  +
  +#PerlOutputFilterHandler ModPerl::TestFilterDebug::snoop_connection
  +PerlModule ModPerl::RegistryBB
  +<Location /registry_bb_deflate>
  +    PerlOptions +GlobalRequest
  +    SetHandler perl-script
  +    Options +ExecCGI
  +    PerlResponseHandler ModPerl::RegistryBB
  +    PerlOptions +ParseHeaders
  +    #PerlOutputFilterHandler ModPerl::TestFilterDebug::snoop_request
  +    <IfModule mod_deflate.c>
  +        SetOutputFilter DEFLATE
  +    </IfModule>
  +</Location>
  \ No newline at end of file
  
  
  

Mime
View raw message