httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache limits.t
Date Wed, 07 Nov 2001 02:31:33 GMT
coar        01/11/06 18:31:33

  Modified:    perl-framework/t/apache limits.t
  Log:
  	Add the subtest number to the request header to make packet-level
  	protocol debugging a *lot* easier.
  
  Revision  Changes    Path
  1.5       +7 -4      httpd-test/perl-framework/t/apache/limits.t
  
  Index: limits.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/limits.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- limits.t	2001/11/06 22:09:17	1.4
  +++ limits.t	2001/11/07 02:31:33	1.5
  @@ -64,7 +64,7 @@
               }
               print "# Testing LimitRequestFields; should $goodbad\n";
               ok t_cmp(($goodbad eq 'fail' ? 400 : 200),
  -                     GET_RC("/", %fields),
  +                     GET_RC("/", %fields, 'X-Subtest' => $testnum),
                        "Test #$testnum");
               $testnum++;
           }
  @@ -94,6 +94,7 @@
                       $url = Apache::TestRequest::resolve_url('/');
                       $req = HTTP::Request->new(GET => $url);
                       $req->content_type('text/plain');
  +                    $req->header('X-Subtest' => $testnum);
                       $req->content(chunk_it($param));
                       $resp = Apache::TestRequest::user_agent->request($req);
                       ok t_cmp(($goodbad eq 'succeed' ? 200 : 413),
  @@ -108,7 +109,8 @@
                   else {
                       ok t_cmp(($goodbad eq 'succeed' ? 200 : 413),
                                GET_RC('/', content_type => 'text/plain',
  -                                    content => $param),
  +                                    content => $param,
  +                                    'X-Subtest' => $testnum),
                                "Test #$testnum");
                   }
                   $testnum++;
  @@ -117,14 +119,15 @@
           elsif ($cond eq 'fieldsize') {
               print "# Testing LimitRequestFieldSize; should $goodbad\n";
               ok t_cmp(($goodbad eq 'fail' ? 400 : 200),
  -                     GET_RC("/", "X-overflow-field" => $param),
  +                     GET_RC("/", 'X-Subtest' => $testnum,
  +                            'X-overflow-field' => $param),
                        "Test #$testnum");
               $testnum++;
           }
           elsif ($cond eq 'requestline') {
               print "# Testing LimitRequestLine; should $goodbad\n";
               ok t_cmp(($goodbad eq 'fail' ? 414 : 200),
  -                     GET_RC($param),
  +                     GET_RC($param, 'X-Subtest' => $testnum),
                        "Test #$testnum");
               $testnum++;
           }
  
  
  

Mime
View raw message