cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestClient.pm

[stas]

stas        2003/06/05 18:29:01

  Modified:    perl-framework/Apache-Test Changes
               perl-framework/Apache-Test/lib/Apache TestClient.pm
  Log:
  handle correctly responses with no body
  
  Revision  Changes    Path
  1.25      +2 -0      httpd-test/perl-framework/Apache-Test/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
  retrieving revision 1.24
  retrieving revision 1.25
  diff -u -r1.24 -r1.25
  --- Changes   28 May 2003 01:48:14 -0000      1.24
  +++ Changes   6 Jun 2003 01:29:01 -0000       1.25
  @@ -8,6 +8,8 @@
   
   =item 1.03-dev - 
   
  +Apache::TestClient now handles correctly responses with no body [Stas]
  +
   add skip helper shortcuts: have_min_perl_version,
   have_min_module_version [Stas]
   
  
  
  
  1.5       +4 -0      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm
  
  Index: TestClient.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TestClient.pm     30 Dec 2002 01:11:28 -0000      1.4
  +++ TestClient.pm     6 Jun 2003 01:29:01 -0000       1.5
  @@ -92,6 +92,10 @@
       }
       close $s;
   
  +    # an empty body is a valid response
  +    $res->{content} = '' 
  +        unless exists $res->{content} and defined $res->{content};
  +
       $res->{headers_as_string} =~ s/\015//g; #for as_string
   
       bless $res, 'Apache::TestClientResponse';