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/ModPerl-Registry/t basic.t
Date Fri, 05 Apr 2002 18:44:39 GMT
stas        02/04/05 10:44:39

  Modified:    ModPerl-Registry/t basic.t
  Log:
  - s/http_raw_get/GET_BODY/, the former doesn't exist anymore
  
  Revision  Changes    Path
  1.4       +5 -6      modperl-2.0/ModPerl-Registry/t/basic.t
  
  Index: basic.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/basic.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- basic.t	19 Oct 2001 07:32:31 -0000	1.3
  +++ basic.t	5 Apr 2002 18:44:39 -0000	1.4
  @@ -3,7 +3,8 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  -use Apache::TestRequest;
  +use Apache::TestRequest qw(GET_BODY HEAD);
  +
   
   my %modules = 
       (registry    => 'ModPerl::Registry',
  @@ -16,15 +17,13 @@
   
   plan tests => @aliases * 3;
   
  -my $cfg = Apache::Test::config();
  -
   # very basic compilation/response test
   for my $alias (@aliases) {
       my $url = "/$alias/basic.pl";
   
       ok t_cmp(
                "ok",
  -             $cfg->http_raw_get($url),
  +             GET_BODY($url),
                "$modules{$alias} basic cgi test",
               );
   }
  @@ -46,7 +45,7 @@
   
       ok t_cmp(
                "foo=bar",
  -             $cfg->http_raw_get($url),
  +             GET_BODY($url),
                "$modules{$alias} mod_cgi-like environment pre-set",
               );
   }
  @@ -59,7 +58,7 @@
   
   #    ok t_cmp(
   #             "it works",
  -#             $cfg->http_raw_get($url),
  +#             GET_BODY($url),
   #             "$modules{$alias} mod_cgi-like environment pre-set",
   #            );
   #}
  
  
  

Mime
View raw message