summaryrefslogtreecommitdiff
path: root/t/io/fs.t
diff options
context:
space:
mode:
Diffstat (limited to 't/io/fs.t')
-rwxr-xr-xt/io/fs.t10
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: {