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) {
