From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 11 Mar 2002 15:11:42 +0000 (+0000)
Subject: number of skipped tests was incorrect
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=feef4889caac92ce6464e457e1d3f16b87a5fa09;p=p5sagit%2Fp5-mst-13.2.git

number of skipped tests was incorrect

p4raw-id: //depot/perl@15175
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 03c165b..9306d2f 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -201,20 +201,20 @@ unlink($tmpfile_link);
 ok(! -e $tmpfile_link,  '   -e on unlinked file');
 
 SKIP: {
-    skip "No character, socket or block special files", 3
+    skip "No character, socket or block special files", 6
       if $Is_MSWin32 || $Is_NetWare || $Is_Dos;
-    skip "/dev isn't available to test against", 3
+    skip "/dev isn't available to test against", 6
       unless -d '/dev' && -r '/dev' && -x '/dev';
 
     my $LS  = $Config{d_readlink} ? "ls -lL" : "ls -l";
     my $CMD = "$LS /dev 2>/dev/null";
     my $DEV = qx($CMD);
 
-    skip "$CMD failed", 3 if $DEV eq '';
+    skip "$CMD failed", 6 if $DEV eq '';
 
     my @DEV = do { my $dev; opendir($dev, "/dev") ? readdir($dev) : () };
 
-    skip "opendir failed: $!", 3 if @DEV == 0;
+    skip "opendir failed: $!", 6 if @DEV == 0;
 
     # /dev/stdout might be either character special or a named pipe,
     # or a symlink, or a socket, depending on which OS and how are