diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-03-11 15:11:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-03-11 15:11:42 +0000 |
| commit | feef4889caac92ce6464e457e1d3f16b87a5fa09 (patch) | |
| tree | 7f19835dc34e5256d3fe902c970b2c31f79a613c /t/op/stat.t | |
| parent | 9e42cd940458e44df25d811d7ba17ca86ab5c8c5 (diff) | |
| download | perl-feef4889caac92ce6464e457e1d3f16b87a5fa09.tar.gz | |
number of skipped tests was incorrect
p4raw-id: //depot/perl@15175
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 03c165ba64..9306d2ffa2 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 |