Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 60896 invoked by uid 500); 2 Apr 2003 03:01:28 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 60885 invoked by uid 500); 2 Apr 2003 03:01:28 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 2 Apr 2003 03:01:27 -0000 Message-ID: <20030402030127.75304.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/filter in_bbs_msg.t in_str_msg.t X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 2003/04/01 19:01:27 Modified: t/filter in_bbs_msg.t in_str_msg.t Log: make sure to die if the server hasn't returned anything, rather than have the tests skipped Revision Changes Path 1.2 +10 -2 modperl-2.0/t/filter/in_bbs_msg.t Index: in_bbs_msg.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/filter/in_bbs_msg.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- in_bbs_msg.t 15 Jan 2003 06:47:15 -0000 1.1 +++ in_bbs_msg.t 2 Apr 2003 03:01:27 -0000 1.2 @@ -1,7 +1,8 @@ -use Apache::TestRequest; use Apache::Test (); use Apache::TestUtil; +use Apache::TestRequest 'GET'; + my $module = 'TestFilter::in_bbs_msg'; Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl @@ -11,4 +12,11 @@ my $hostport = Apache::TestRequest::hostport($config); t_debug("connecting to $hostport"); -print GET_BODY("/input_filter.html"); +my $res = GET "/input_filter.html"; +if ($res->is_success) { + print $res->content; +} +else { + die "server side has failed (response code: ", $res->code, "),\n", + "see t/logs/error_log for more details\n"; +} 1.2 +11 -2 modperl-2.0/t/filter/in_str_msg.t Index: in_str_msg.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/filter/in_str_msg.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- in_str_msg.t 15 Jan 2003 06:19:25 -0000 1.1 +++ in_str_msg.t 2 Apr 2003 03:01:27 -0000 1.2 @@ -1,7 +1,8 @@ -use Apache::TestRequest; use Apache::Test (); use Apache::TestUtil; +use Apache::TestRequest 'GET'; + my $module = 'TestFilter::in_str_msg'; Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl @@ -11,4 +12,12 @@ my $hostport = Apache::TestRequest::hostport($config); t_debug("connecting to $hostport"); -print GET_BODY("/input_filter.html"); +my $res = GET "/input_filter.html"; +if ($res->is_success) { + print $res->content; +} +else { + die "server side has failed (response code: ", $res->code, "),\n", + "see t/logs/error_log for more details\n"; +} +