From e87b63e2091afdab9302a9cfbb2f275bc20ca75a Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 5 May 2007 23:53:58 +0000 Subject: [PATCH] Archive::Extract test tries to do the logically impossible. p4raw-id: //depot/perl@31158 --- lib/Archive/Extract/t/01_Archive-Extract.t | 8 ++++++-- 1 file 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 43b92db..b3154a2 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] -- 2.7.4