getcwd() doesn't fail on non-existent directories on DragonFly BSD.
authorTomasz Konojacki <me@xenu.pl>
Sun, 22 Apr 2018 21:49:59 +0000 (23:49 +0200)
committerDavid Mitchell <davem@iabyn.com>
Tue, 1 May 2018 07:57:02 +0000 (08:57 +0100)
Until it's fixed upstream, we should skip tests that don't expect
this behaviour.

[RT #133141]

dist/PathTools/t/cwd_enoent.t

index ee99423..b9addde 100644 (file)
@@ -24,6 +24,10 @@ foreach my $type (qw(regular perl)) {
        skip "_perl_abs_path() not expected to work", 4
            if $type eq "perl" &&
                !(($Config{prefix} =~ m/\//) && $^O ne "cygwin");
+
+       skip "getcwd() doesn't fail on non-existent directories on this platform", 4
+           if $type eq 'regular' && $^O eq 'dragonfly';
+
        no warnings "redefine";
        local *Cwd::abs_path = \&Cwd::_perl_abs_path if $type eq "perl";
        local *Cwd::getcwd = \&Cwd::_perl_getcwd if $type eq "perl";