Author: autarch
Date: Wed Jul 5 09:01:51 2006
New Revision: 419266
URL: http://svn.apache.org/viewvc?rev=419266&view=rev
Log:
Remove cruft from when this wasn't using -withtestmore.
Remove tests of deprecated bits.
Don't try to test getppid on Win32, since it appears from the
Apache::SizeLimit code that we cannot expect it to return anything
useful.
Modified:
perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm
Modified: perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm
URL:
http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm?rev=419266&r1=419265&r2=419266&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm (original)
+++ perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm Wed Jul 5
09:01:51 2006
@@ -7,37 +7,27 @@
use Apache::Constants qw(OK);
use Apache::SizeLimit;
+use Config;
sub handler {
my $r = shift;
- plan $r, tests => 3;
-
- Apache::SizeLimit::setmax( 100_000 );
- Apache::SizeLimit::setmin( 1 );
-
- ok( $r->pnotes('size_limit_cleanup'), 'Set size_limit_cleanup in pnotes'
);
+ plan $r, tests => 2;
my ( $size, $shared ) = Apache::SizeLimit::check_size();
cmp_ok( $size, '>', 0, 'proc size is reported > 0' );
- cmp_ok( Apache::SizeLimit::real_getppid(), '>', 1,
- 'real_getppid() > 1' );
+ SKIP:
+ {
+ skip 'I have no idea what getppid() on Win32 might return', 1
+ if 1 $Config{'osname'} eq 'MSWin32';
+
+ cmp_ok( Apache::SizeLimit::real_getppid(), '>', 1,
+ 'real_getppid() > 1' );
+ }
return OK;
-}
-
-my $count = 1;
-sub _test {
- my $ok = shift;
- my $desc = shift;
- my $r = shift;
-
- my $string = $ok ? 'ok' : 'not ok';
- $r->print( "$string $count - $desc\n" );
-
- $count++;
}
