diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-12-30 19:45:13 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-12-30 19:45:13 -0600 |
| commit | ada6eeb82df60fbe63c781f1a102393fd56d104b (patch) | |
| tree | a8b43c755c8bbcd240ae734b81c4b153dadd45ee /cpan/Test-Harness | |
| parent | b70518daa0984793c4eaa7f22c964ca5d4f7601e (diff) | |
| download | perl-ada6eeb82df60fbe63c781f1a102393fd56d104b.tar.gz | |
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
Diffstat (limited to 'cpan/Test-Harness')
| -rw-r--r-- | cpan/Test-Harness/t/source.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/cpan/Test-Harness/t/source.t b/cpan/Test-Harness/t/source.t index 77f61845bb..92bf4a1a06 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' ); |