More tests

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index 4ebe55b..dbddaef 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -50,9 +50,10 @@ open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
 
 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
 
-#VMS Fix-me: nlink should work on VMS if applicable link support configured.
+#nlink should if link support configured in Perl.
 SKIP: {
-    skip "No link count", 1 if $Is_VMS;
+    skip "No link count - Hard link support not built in.", 1
+       unless $Config{d_link};
 
     is($nlink, 1, 'nlink on regular file');
 }
@@ -480,7 +481,7 @@ ok(unlink($f), 'unlink tmp file');
 }
 
 SKIP: {
-    skip "No dirfd()", 9 unless $Config{d_dirfd};
+    skip "No dirfd()", 9 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
     ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  $!";
     ok(stat(DIR), "stat() on dirhandle works"); 
     ok(-d -r _ , "chained -x's on dirhandle"); 
@@ -510,7 +511,7 @@ SKIP: {
     #PVIO's hold dirhandle information, so let's test them too.
 
     SKIP: {
-        skip "No dirfd()", 9 unless $Config{d_dirfd};
+        skip "No dirfd()", 9 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
         ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  $!";
         ok(stat(*DIR{IO}), "stat() on *DIR{IO} works");
        ok(-d _ , "The special file handle _ is set correctly");