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 pg...@apache.org on 2006/08/26 08:56:26 UTC
svn commit: r437102 -
/perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm
Author: pgollucci
Date: Fri Aug 25 23:56:25 2006
New Revision: 437102
URL: http://svn.apache.org/viewvc?rev=437102&view=rev
Log:
remove these 2 tests for now
Modified:
perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm
Modified: perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm?rev=437102&r1=437101&r2=437102&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm (original)
+++ perl/Apache-SizeLimit/trunk/t/response/TestApache2/deprecated.pm Fri Aug 25 23:56:25 2006
@@ -12,11 +12,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 5;
-
- my $handlers = $r->get_handlers('PerlCleanupHandler');
- is( scalar @$handlers, 0,
- 'there is no PerlCleanupHandler before add_cleanup_handler()' );
+ plan $r, tests => 3;
Apache2::SizeLimit::setmax( 100_000 );
is( $Apache2::SizeLimit::MAX_PROCESS_SIZE, 100_000,
@@ -29,11 +25,6 @@
Apache2::SizeLimit::setmax_unshared( 1 );
is( $Apache2::SizeLimit::MIN_SHARE_SIZE, 1,
'setmax_unshared changes $MAX_UNSHARED_SIZE' );
-
- $handlers = $r->get_handlers('PerlCleanupHandler');
- is( scalar @$handlers, 1,
- 'there is one PerlCleanupHandler after calling deprecated functions' );
-
return Apache2::Const::OK;
}