perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter api.pm
Date Wed, 05 Dec 2001 19:57:29 GMT
dougm       01/12/05 11:57:29

  Modified:    t/filter/TestFilter api.pm
  Log:
  s/use Test/use Apache::Test/
  
  Revision  Changes    Path
  1.5       +3 -13     modperl-2.0/t/filter/TestFilter/api.pm
  
  Index: api.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/api.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- api.pm	2001/06/23 17:47:31	1.4
  +++ api.pm	2001/12/05 19:57:29	1.5
  @@ -6,20 +6,10 @@
   use Apache::Filter ();
   use Apache::FilterRec ();
   
  -use Test;
  +use Apache::Test;
   
   my $response_data = "blah blah blah";
   
  -sub init_test_pm {
  -    my $filter = shift;
  -
  -    tie *STDOUT, $filter;
  -
  -    $Test::TESTOUT = \*STDOUT;
  -    $Test::planned = 0;
  -    $Test::ntest = 1;
  -}
  -
   #XXX: else pp_untie complains:
   #untie attempted while %d inner references still exist
   sub Apache::Filter::UNTIE {}
  @@ -29,7 +19,7 @@
   
       $filter->read(my $buffer); #slurp everything;
   
  -    init_test_pm($filter);
  +    tie *STDOUT, $filter;
   
       plan tests => 6;
   
  @@ -51,7 +41,7 @@
   
       untie *STDOUT;
   
  -    0;
  +    Apache::OK;
   }
   
   sub response {
  
  
  

Mime
View raw message