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++;
}
