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.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 652d198..dcf1e73 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1081,6 +1081,11 @@ use File::Glob qw(:case);
                 t/lib/if.pm
                 ),
         ],
+        'CUSTOMIZED'   => [
+             # https://github.com/Perl-Toolchain-Gang/Test-Harness/pull/103
+             # applied but not released
+             't/source.t'
+        ],
     },
 
     'Test::Simple' => {

diff --git a/cpan/Test-Harness/t/source.t b/cpan/Test-Harness/t/source.t
index 767892c..77cf442 100644 (file)
--- 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;

diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 08acf8a..3bde674 100644 (file)
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -22,6 +22,7 @@ Net::Ping dist/Net-Ping/t/450_service.t f6578680f2872d7fc9f24dd75388d55654761875
 Net::Ping dist/Net-Ping/t/500_ping_icmp.t 3eeb60181c01b85f876bd6658644548fdf2e24d4
 Net::Ping dist/Net-Ping/t/501_ping_icmpv6.t 54373de5858f8fb7e078e4998a4b3b8dbca91783
 Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 582be34c077c9ff44d99914724a0cc2140bcd48c
+Test::Harness cpan/Test-Harness/t/source.t aaa3939591114c0c52ecd44159218336d1f762b9
 Win32API::File cpan/Win32API-File/File.pm 8fd212857f821cb26648878b96e57f13bf21b99e
 Win32API::File cpan/Win32API-File/File.xs beb870fed4490d2faa547b4a8576b8d64d1d27c5
 experimental cpan/experimental/t/basic.t cb9da8dd05b854375809872a05dd32637508d5da