jwoolley 02/04/01 23:20:34
Modified: perl-framework/t/ssl http.t
Log:
Okay, well the test works now, but it still fails at the moment because
mod_ssl really is broken. :)
Revision Changes Path
1.8 +3 -7 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.7
retrieving revision 1.8
diff -u -d -u -r1.7 -r1.8
--- http.t 24 Feb 2002 23:07:06 -0000 1.7
+++ http.t 2 Apr 2002 07:20:34 -0000 1.8
@@ -20,14 +20,10 @@
plan tests => 1, @todo;
my $config = Apache::Test::config();
-my $vars = Apache::Test::vars();
-local $vars->{port} = $config->port('mod_ssl');
-local $vars->{scheme} = 'http';
-
-my $rurl = Apache::TestRequest::resolve_url($url);
-print "GET $rurl\n";
+my $hostport = $config->{vhosts}->{mod_ssl}->{hostport};
+my $rurl = "http://$hostport$url";;
-my $res = GET($url);
+my $res = GET($rurl);
ok t_cmp(400,
$res->code,
"Expected bad request from 'GET $rurl'");
