cvs commit: modperl-2.0/t/filter/TestFilter api.pm

[dougm]

dougm       01/06/23 10:47:32

  Modified:    t/filter/TestFilter api.pm
  Log:
  TestFilter::api needs to untie *STDOUT; else tests run after it fail
  
  Revision  Changes    Path
  1.4       +6 -0      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.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- api.pm    2001/04/20 01:57:26     1.3
  +++ api.pm    2001/06/23 17:47:31     1.4
  @@ -20,6 +20,10 @@
       $Test::ntest = 1;
   }
   
  +#XXX: else pp_untie complains:
  +#untie attempted while %d inner references still exist
  +sub Apache::Filter::UNTIE {}
  +
   sub handler {
       my $filter = shift;
   
  @@ -44,6 +48,8 @@
       ok $r->isa('Apache::RequestRec');
   
       ok $r->uri eq '/' . __PACKAGE__;
  +
  +    untie *STDOUT;
   
       0;
   }