From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 3 Nov 2005 15:07:26 +0000 (+0000)
Subject: Add appropriate skips to t/io/fs.t to fix test failures on Cygwin.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0fdffbddaf257157ac815b3869f2328fc8ab9a0;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@25974
---

diff --git a/t/io/fs.t b/t/io/fs.t
index 58204dd..14b452e 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: {