You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by jw...@apache.org on 2002/02/25 00:07:06 UTC
cvs commit: httpd-test/perl-framework/t/ssl http.t
jwoolley 02/02/24 15:07:06
Modified: perl-framework/t/ssl http.t
Log:
This test is failing for me. This gives slightly more verbose -v output.
Revision Changes Path
1.7 +4 -1 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.6
retrieving revision 1.7
diff -u -d -u -r1.6 -r1.7
--- http.t 22 Dec 2001 01:30:19 -0000 1.6
+++ http.t 24 Feb 2002 23:07:06 -0000 1.7
@@ -2,6 +2,7 @@
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
#verify we can send an non-ssl http request to the ssl port
#without dumping core.
@@ -27,6 +28,8 @@
print "GET $rurl\n";
my $res = GET($url);
-ok $res->code == 400; #HTTP_BAD_REQUEST
+ok t_cmp(400,
+ $res->code,
+ "Expected bad request from 'GET $rurl'");