From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 5 May 2007 23:53:58 +0000 (+0000)
Subject: Archive::Extract test tries to do the logically impossible.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e87b63e2091afdab9302a9cfbb2f275bc20ca75a;p=p5sagit%2Fp5-mst-13.2.git

Archive::Extract test tries to do the logically impossible.

p4raw-id: //depot/perl@31158
---

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]