[perl #64772] TODO test for sync on read only handle

diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
index 379094f..a86ee7e 100644 (file)
--- a/dist/IO/t/io_xs.t
+++ b/dist/IO/t/io_xs.t
@@ -15,7 +15,7 @@ BEGIN {
     }
 }
 
     }
 }
 

-use Test::More tests => 4;
+use Test::More tests => 5;

 use IO::File;
 use IO::Seekable;
 
 use IO::File;
 use IO::Seekable;
 


@@ -39,3 +39,12 @@ $! = 0;
 $x->setpos(undef);
 ok($!, "setpos(undef) makes errno non-zero");
 
 $x->setpos(undef);
 ok($!, "setpos(undef) makes errno non-zero");
 

+SKIP:
+{
+    $^O eq "MSWin32"
+       and skip "directory sync doesn't apply to MSWin32", 1;
+    open my $dh, "<", "."
+       or skip "Cannot open the cwd", 1;
+    local $TODO = "[perl #64772] IO::Handle->sync fails on an O_RDONLY descriptor";
+    ok($dh->sync, "sync to a read only directory handle");
+}