VMS nits in cpan/Test-Harness/t/source.t
authorCraig A. Berry <craigberry@mac.com>
Fri, 31 Dec 2010 01:45:13 +0000 (19:45 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 24 Jan 2013 02:59:57 +0000 (20:59 -0600)
[Reapplying ada6eeb82df as it's still awaiting application
upstream two years later and the things it fixes get broken
again every time a new version of Test::Harness is brought
into blead.]

1.)  Can't get the basename of a directory in native format.

2.)  Symlinks still a bit dodgy -- skip tests for now.

Submitted upstream at:

https://rt.cpan.org/Ticket/Display.html?id=64353

cpan/Test-Harness/t/source.t

index 6b69cc1..cdfd9e5 100644 (file)
@@ -9,10 +9,7 @@ use strict;
 use Test::More tests => 45;
 use File::Spec;
 
-my $dir = File::Spec->catdir(
-    't',
-    'source_tests'
-);
+my $dir = 't/source_tests';
 
 use_ok('TAP::Parser::Source');
 
@@ -237,6 +234,7 @@ sub ct($) {
 # symlink test
 SKIP: {
     my $symlink_exists = eval { symlink( '', '' ); 1 };
+    $symlink_exists = 0 if $^O eq 'VMS'; # exists but not ready for prime time
     skip 'symlink not supported on this platform', 9 unless $symlink_exists;
 
     my $test    = File::Spec->catfile( $dir, 'source.t' );