httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From gben...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm
Date Tue, 13 Nov 2001 18:55:31 GMT
gbenson     01/11/13 10:55:31

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  Ensure that responses have headers
  
  Revision  Changes    Path
  1.52      +7 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
  
  Index: TestRequest.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
  retrieving revision 1.51
  retrieving revision 1.52
  diff -u -r1.51 -r1.52
  --- TestRequest.pm	2001/11/05 17:36:29	1.51
  +++ TestRequest.pm	2001/11/13 18:55:31	1.52
  @@ -293,6 +293,13 @@
       unless ($shortcut) {
           #GET, HEAD, POST
           $r = $UA->request($r);
  +        my $proto = $r->protocol;
  +        if ($proto !~ /^HTTP\/(\d\.\d)$/) {
  +            die "response had no protocol (is LWP broken or something?)";
  +        }
  +        if ($1 ne "1.0" && $1 ne "1.1") {
  +            die "response had protocol HTTP/$1 (headers not sent?)";
  +        }
       }
   
       if ($DebugLWP and not $shortcut) {
  
  
  

Mime
View raw message