You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/05/12 00:59:22 UTC
cvs commit: modperl-2.0/t/filter in_bbs_msg.t in_str_msg.t
stas 2003/05/11 15:59:21
Modified: t/filter in_bbs_msg.t in_str_msg.t
Log:
- get rid of the http://hostname:port in the GET request, as some lwp's
fail to remove it from the GET line
- replace manually coded exception handling with GET_BODY_ASSERT macro
Revision Changes Path
1.4 +2 -9 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.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- in_bbs_msg.t 18 Apr 2003 06:18:56 -0000 1.3
+++ in_bbs_msg.t 11 May 2003 22:59:21 -0000 1.4
@@ -1,7 +1,7 @@
use Apache::Test ();
use Apache::TestUtil;
-use Apache::TestRequest 'GET';
+use Apache::TestRequest 'GET_BODY_ASSERT';
my $module = 'TestFilter::in_bbs_msg';
@@ -12,11 +12,4 @@
my $hostport = Apache::TestRequest::hostport($config);
t_debug("connecting to $hostport");
-my $res = GET "http://$hostport/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";
-}
+print GET_BODY_ASSERT "/input_filter.html";
1.3 +2 -10 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.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- in_str_msg.t 2 Apr 2003 03:01:27 -0000 1.2
+++ in_str_msg.t 11 May 2003 22:59:21 -0000 1.3
@@ -1,7 +1,7 @@
use Apache::Test ();
use Apache::TestUtil;
-use Apache::TestRequest 'GET';
+use Apache::TestRequest 'GET_BODY_ASSERT';
my $module = 'TestFilter::in_str_msg';
@@ -12,12 +12,4 @@
my $hostport = Apache::TestRequest::hostport($config);
t_debug("connecting to $hostport");
-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";
-}
-
+print GET_BODY_ASSERT "/input_filter.html";