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 {