diff options
author | Craig A. Berry <craigberry@mac.com> | 2007-05-05 23:53:58 +0000 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2007-05-05 23:53:58 +0000 |
commit | e87b63e2091afdab9302a9cfbb2f275bc20ca75a (patch) | |
tree | 6b07806a179ba5149a6033e602b8a581646ec31e /lib/Archive | |
parent | 0f06b1bbd2d65b2f053b58aeebed39ac8aba7fc6 (diff) | |
download | perl-e87b63e2091afdab9302a9cfbb2f275bc20ca75a.tar.gz |
Archive::Extract test tries to do the logically impossible.
p4raw-id: //depot/perl@31158
Diffstat (limited to 'lib/Archive')
-rw-r--r-- | lib/Archive/Extract/t/01_Archive-Extract.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Archive/Extract/t/01_Archive-Extract.t b/lib/Archive/Extract/t/01_Archive-Extract.t index 43b92dbe7f..b3154a2ec3 100644 --- a/lib/Archive/Extract/t/01_Archive-Extract.t +++ b/lib/Archive/Extract/t/01_Archive-Extract.t @@ -13,6 +13,7 @@ use lib qw[../lib]; use constant IS_WIN32 => $^O eq 'MSWin32' ? 1 : 0; use constant IS_CYGWIN => $^O eq 'cygwin' ? 1 : 0; +use constant IS_VMS => $^O eq 'VMS' ? 1 : 0; use Cwd qw[cwd]; use Test::More qw[no_plan]; @@ -185,9 +186,9 @@ if( $Debug ) { ### XXX whitebox test ### test __get_extract_dir -{ my $meth = '__get_extract_dir'; +SKIP: { my $meth = '__get_extract_dir'; - ### get the right seperator -- File::Spec does clean ups for + ### get the right separator -- File::Spec does clean ups for ### paths, so we need to join ourselves. my $sep = [ split '', File::Spec->catfile( 'a', 'b' ) ]->[1]; @@ -196,6 +197,9 @@ if( $Debug ) { ### to be unpacked in '.' rather than in 'dir'. here we test ### for this. for my $prefix ( '', '.' ) { + skip "Prepending ./ to a valid path doesn't give you another valid path on VMS", 2 + if IS_VMS && length($prefix); + my $dir = basename( $SrcDir ); ### build a list like [dir, dir/file] and [./dir ./dir/file] |