cvs commit: modperl-2.0/t/filter/TestFilter api.pm buckets.pm
dougm 2002/09/10 17:50:31
Modified:.Changes
t/apache scanhdrs.t
t/filter/TestFilter api.pm buckets.pm
Log:
Submitted by: Philippe M. Chiasson [EMAIL PROTECTED]
Reviewed by: dougm
tweaks to support Test.pm 1.21
Revision ChangesPath
1.44 +2 -0 modperl-2.0/Changes
Index: Changes
===
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- Changes 5 Sep 2002 01:50:45 - 1.43
+++ Changes 11 Sep 2002 00:50:31 - 1.44
@@ -10,6 +10,8 @@
=item 1.99_06-dev
+tweaks to support Test.pm 1.21 [Philippe M. Chiasson [EMAIL PROTECTED]]
+
add $r-add_config method to add dynamic configuration at request time
add Apache::DIR_MAGIC_TYPE constant
1.3 +1 -1 modperl-2.0/t/apache/scanhdrs.t
Index: scanhdrs.t
===
RCS file: /home/cvs/modperl-2.0/t/apache/scanhdrs.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- scanhdrs.t20 Dec 2001 03:54:40 - 1.2
+++ scanhdrs.t11 Sep 2002 00:50:31 - 1.3
@@ -11,7 +11,7 @@
my $res = GET $location;
-ok $res-content eq 1..1\nok 1\n;
+ok $res-content =~ /^ok 1$/m;
ok $res-header('Content-Type') eq 'text/test-output';
1.7 +1 -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.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- api.pm11 Apr 2002 11:08:43 - 1.6
+++ api.pm11 Sep 2002 00:50:31 - 1.7
@@ -17,6 +17,7 @@
#XXX: else pp_untie complains:
#untie attempted while %d inner references still exist
sub Apache::Filter::UNTIE {}
+sub Apache::Filter::PRINTF {}
sub handler {
my $filter = shift;
1.7 +3 -0 modperl-2.0/t/filter/TestFilter/buckets.pm
Index: buckets.pm
===
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/buckets.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- buckets.pm11 Apr 2002 11:08:43 - 1.6
+++ buckets.pm11 Sep 2002 00:50:31 - 1.7
@@ -13,6 +13,9 @@
use Apache::Const -compile = 'OK';
+#XXX: Not implemented yet, required by Test.pm
+sub Apache::TestToString::PRINTF {}
+
sub handler {
my($filter, $bb) = @_;
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 ChangesPath
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.pm2001/06/23 17:47:31 1.4
+++ api.pm2001/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 {
cvs commit: modperl-2.0/t/filter/TestFilter api.pm
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 ChangesPath
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.pm2001/04/20 01:57:26 1.3
+++ api.pm2001/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;
}
