perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From auta...@apache.org
Subject svn commit: r419266 - /perl/Apache-SizeLimit/trunk/t/response/TestApache/basic.pm
Date Wed, 05 Jul 2006 16:01:51 GMT
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++;
 }
 
 



Mime
View raw message