diff options
author | Tomasz Konojacki <me@xenu.pl> | 2018-04-22 23:49:59 +0200 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2018-05-01 08:57:02 +0100 |
commit | 02bf4969b4ef09662846e14c3d8199fee18ebe35 (patch) | |
tree | 5f00b93b8025130899d1a8eeb0bf864662c107ac /dist/PathTools | |
parent | cf2c29559deccb70b57f952ba796613c5cc10bac (diff) | |
download | perl-02bf4969b4ef09662846e14c3d8199fee18ebe35.tar.gz |
getcwd() doesn't fail on non-existent directories on DragonFly BSD.
Until it's fixed upstream, we should skip tests that don't expect
this behaviour.
[RT #133141]
Diffstat (limited to 'dist/PathTools')
-rw-r--r-- | dist/PathTools/t/cwd_enoent.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/dist/PathTools/t/cwd_enoent.t b/dist/PathTools/t/cwd_enoent.t index ee99423cbb..b9adddeab7 100644 --- a/dist/PathTools/t/cwd_enoent.t +++ b/dist/PathTools/t/cwd_enoent.t @@ -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"; |