This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip cwd_enoent test on Cygwin
authorZefram <zefram@fysh.org>
Wed, 17 Jan 2018 21:03:00 +0000 (21:03 +0000)
committerZefram <zefram@fysh.org>
Wed, 17 Jan 2018 21:03:00 +0000 (21:03 +0000)
Some of the getcwd() functions don't produce error responses when they
should on Cygwin, which is [perl #132733], and that causes cwd_enoent.t
to fail.  Pending actual fix of that bug, just skip this test on Cygwin.
This should allow [perl #132648] to be resolved.

dist/PathTools/t/cwd_enoent.t

index 59e3612..a906d90 100644 (file)
@@ -6,6 +6,11 @@ use Errno qw(ENOENT);
 use File::Temp qw(tempdir);
 use Test::More;
 
+if($^O eq "cygwin") {
+    # This test skipping should be removed when the Cygwin bug is fixed.
+    plan skip_all => "getcwd() fails to fail on Cygwin [perl #132733]";
+}
+
 my $tmp = tempdir(CLEANUP => 1);
 unless(mkdir("$tmp/testdir") && chdir("$tmp/testdir") && rmdir("$tmp/testdir")){
     plan skip_all => "can't be in non-existent directory";