This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove needless skip tests from lib/File/stat.t
authorNicholas Clark <nick@ccl4.org>
Wed, 13 Jun 2012 13:53:27 +0000 (15:53 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 21 Jun 2012 06:58:59 +0000 (08:58 +0200)
The stat builtin is always implemented, so no need for an eval {} test to
check for this. The presence or absence of <sys/stat.h> at the C level isn't
going to affect the outcome of this test.

Both have been in the test script since it was added (as t/lib/filestat.t)
by commit f7a45afb043dafc5 in May 2001. I suspect that both were copied
from one of the Net::* test scripts which was being used as the template.

lib/File/stat.t

index b5157b8..c3ecc09 100644 (file)
@@ -27,14 +27,6 @@ BEGIN {
         $file = readlink $file;
         die "Can't readlink(../lib/File/stat.t): $!" if ! defined $file;
     }
-
-    our $hasst;
-    eval { my @n = stat $file };
-    $hasst = 1 unless $@ && $@ =~ /unimplemented/;
-    unless ($hasst) { plan skip_all => "no stat"; exit 0 }
-    use Config;
-    $hasst = 0 unless $Config{'i_sysstat'} eq 'define';
-    unless ($hasst) { plan skip_all => "no sys/stat.h"; exit 0 }
 }
 
 # Originally this was done in the BEGIN block, but perl is still