perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/filter in_str_declined.t
Date Sun, 11 May 2003 23:08:51 GMT
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;
  
  
  

Mime
View raw message