Changeset 3218 for trunk

Timestamp:

Apr 25, 2007, 3:35:39 AM (18 years ago)

Author:

bird

Message:

skip failing fmode tests on OS/2.

File:

• trunk/essentials/dev-lang/perl/t/io/fs.t (modified) (1 diff)

trunk/essentials/dev-lang/perl/t/io/fs.t

@@ -173 +173 @@
 SKIP: {
     skip "no fchmod", 5 unless ($Config{d_fchmod} || "") eq "define";
+    skip "doesn't work on OS/2", 5 if $^O eq 'os2';
     ok(open(my $fh, "<", "a"), "open a");
     is(chmod(0, $fh), 1, "fchmod");