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 01:08:51 UTC
cvs commit: modperl-2.0/t/filter in_str_declined.t
stas 2003/05/11 16:08:51
Modified: t/apache add_config.t
t/filter in_str_declined.t
Log:
replace manually coded exception handling with _BODY_ASSERT macro
Revision Changes Path
1.2 +2 -9 modperl-2.0/t/apache/add_config.t
Index: add_config.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/add_config.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- add_config.t 25 Mar 2003 04:49:05 -0000 1.1
+++ add_config.t 11 May 2003 23:08:51 -0000 1.2
@@ -1,12 +1,5 @@
# the handler is configured in modperl_extra.pl via
# Apache->server->add_config
-use Apache::TestRequest 'GET';
+use Apache::TestRequest 'GET_BODY_ASSERT';
-my $res = GET "/apache/add_config";
-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 "/apache/add_config";
1.3 +2 -10 modperl-2.0/t/filter/in_str_declined.t
Index: in_str_declined.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/in_str_declined.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- in_str_declined.t 18 Apr 2003 06:18:56 -0000 1.2
+++ in_str_declined.t 11 May 2003 23:08:51 -0000 1.3
@@ -1,19 +1,11 @@
use strict;
use warnings FATAL => 'all';
-use Apache::TestRequest;
+use Apache::TestRequest 'POST_BODY_ASSERT';;
my $location = '/TestFilter__in_str_declined';
my $chunk = "1234567890";
my $data = $chunk x 2000;
-my $res = POST $location, content => $data;
-
-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 POST_BODY_ASSERT $location, content => $data;