jorton 2004/02/18 08:51:24
Modified: perl-framework/t/ssl http.t
Log:
Enable APACHE_TEST_HTTP_09_OK to prevent TestRequest croaking on an
"HTTP/0.9" response, and skip the status-code test in that case.
Revision Changes Path
1.11 +15 -4 httpd-test/perl-framework/t/ssl/http.t
Index: http.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/http.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -w -d -u -r1.10 -r1.11
--- http.t 3 Apr 2002 09:14:48 -0000 1.10
+++ http.t 18 Feb 2004 16:51:24 -0000 1.11
@@ -4,6 +4,11 @@
use Apache::TestRequest;
use Apache::TestUtil;
+BEGIN {
+ # prevent TestRequest from croaking on an HTTP/0.9 response
+ $ENV{APACHE_TEST_HTTP_09_OK} = 1;
+}
+
#verify we can send an non-ssl http request to the ssl port
#without dumping core.
@@ -25,10 +30,16 @@
my $rurl = "http://$hostport$url";;
my $res = GET($rurl);
+my $proto = $res->protocol;
+
+if ($proto and $proto eq "HTTP/0.9") {
+ skip "server gave HTTP/0.9 response";
+} else {
ok t_cmp(400,
$res->code,
"Expected bad request from 'GET $rurl'"
);
+}
ok t_cmp(qr{speaking plain HTTP to an SSL-enabled server port},
$res->content,
