You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/12/05 20:57:29 UTC
cvs commit: modperl-2.0/t/filter/TestFilter api.pm
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 {