diff options
| author | Tony Cook <tony@develop-help.com> | 2020-11-02 14:28:29 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2020-12-01 15:29:33 +1100 |
| commit | 72aac62720fdd7ad8838984e8ca7cf2dedb7a776 (patch) | |
| tree | 76ed69a2d8d72f1771113f6f3cb985405c703e4a /cpan/Test-Harness | |
| parent | 7e6c9456ae41721f3054e84eb60242e86219542a (diff) | |
| download | perl-72aac62720fdd7ad8838984e8ca7cf2dedb7a776.tar.gz | |
Test-Harness: don't assume symlink succeeds
https://github.com/Perl-Toolchain-Gang/Test-Harness/pull/103
upstream which has been applied but not released.
Diffstat (limited to 'cpan/Test-Harness')
| -rw-r--r-- | cpan/Test-Harness/t/source.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cpan/Test-Harness/t/source.t b/cpan/Test-Harness/t/source.t index 767892c572..77cf442697 100644 --- a/cpan/Test-Harness/t/source.t +++ b/cpan/Test-Harness/t/source.t @@ -242,11 +242,12 @@ SKIP: { my $symlink = File::Spec->catfile( $dir, 'source_link.T' ); my $source = TAP::Parser::Source->new; - eval { symlink( File::Spec->rel2abs($test), $symlink ) }; + my $did_symlink = eval { symlink( File::Spec->rel2abs($test), $symlink ) }; if ( my $e = $@ ) { diag($@); die "aborting test"; } + skip "symlink not successful: $!", 9 unless $did_symlink; $source->raw( \$symlink ); my $meta = $source->assemble_meta; |