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>
Fri, 31 Dec 2010 01:45:13 +0000 (19:45 -0600)
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 77f6184..92bf4a1 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');
 
@@ -236,6 +233,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' );