use Config;
use File::Spec;
-plan tests => 86;
+plan tests => 88;
my $Perl = which_perl();
SKIP: {
skip "mtime and ctime not reliable", 2
- if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_MacOS;
+ if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_MacOS or $Is_Darwin;
ok( $mtime, 'mtime' );
is( $mtime, $ctime, 'mtime == ctime' );
unlink $tmpfile;
}
+SKIP: {
+ skip "No dirfd()", 2 unless $Config{d_dirfd};
+ opendir my $dir, "." or die 'Unable to opendir ".": $!';
+ ok(stat($dir), "stat() on dirhandle works");
+ ok(-d -r _ , "chained -x's on dirhandle");
+}
+
END {
1 while unlink $tmpfile;
}