Add appropriate skips to t/io/fs.t to fix test failures on Cygwin.

p4raw-id: //depot/perl@25974

1 files changed, 8 insertions, 2 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 58204ddb39..14b452e3fb 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -173,10 +173,16 @@ SKIP: {
     ok(open(my $fh, "<", "a"), "open a");
     is(chmod(0, $fh), 1, "fchmod");
     $mode = (stat "a")[2];
-    is($mode & 0777, 0, "perm reset");
+    SKIP: {
+        skip "no mode checks", 1 if $skip_mode_checks;
+        is($mode & 0777, 0, "perm reset");
+    }
     is(chmod($newmode, "a"), 1, "fchmod");
     $mode = (stat $fh)[2];
-    is($mode & 0777, $newmode, "perm restored");
+    SKIP: { 
+        skip "no mode checks", 1 if $skip_mode_checks;
+        is($mode & 0777, $newmode, "perm restored");
+    }
 }
 
 SKIP: {