From ada6eeb82df60fbe63c781f1a102393fd56d104b Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Thu, 30 Dec 2010 19:45:13 -0600 Subject: [PATCH] VMS nits in cpan/Test-Harness/t/source.t 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 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/cpan/Test-Harness/t/source.t b/cpan/Test-Harness/t/source.t index 77f6184..92bf4a1 100644 --- a/cpan/Test-Harness/t/source.t +++ b/cpan/Test-Harness/t/source.t @@ -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' ); -- 2.7.4