Moduule::Build test tweaks for VMS.

More complete fix available upstream at:

http://rt.cpan.org/Public/Bug/Display.html?id=55288

diff --git a/cpan/Module-Build/t/compat.t b/cpan/Module-Build/t/compat.t
index 0a820a9..7e5a515 100644 (file)
--- a/cpan/Module-Build/t/compat.t
+++ b/cpan/Module-Build/t/compat.t
@@ -242,6 +242,9 @@ ok $mb, "Module::Build->new_from_context";
     skip "Needs ExtUtils::Install 1.32 or later", 2 * @cases
       if ExtUtils::Install->VERSION < 1.32;
 
+    skip "Needs upstream patch at http://rt.cpan.org/Public/Bug/Display.html?id=55288", 2 * @cases
+      if $^O eq 'VMS';
+
     for my $c (@cases) {
       my @make_args = @{$c->{args}};
       if ($is_vms_mms) { # VMS MMK/MMS macros use different syntax.

diff --git a/cpan/Module-Build/t/properties/share_dir.t b/cpan/Module-Build/t/properties/share_dir.t
index 8cf961d..1d81a0a 100644 (file)
--- a/cpan/Module-Build/t/properties/share_dir.t
+++ b/cpan/Module-Build/t/properties/share_dir.t
@@ -179,6 +179,11 @@ ok( -d 'blib/lib/auto/share', "blib/lib/auto/share exists" );
 
 my $share_list = Module::Build->rscan_dir('blib/lib/auto/share', sub {-f});
 
+SKIP:
+{
+
+skip 'filename case not necessarily preserved', 1 if $^O eq 'VMS';
+
 is_deeply(
   [ sort @$share_list ], [
     'blib/lib/auto/share/dist/Simple-Share/foo.txt',
@@ -187,6 +192,8 @@ is_deeply(
   "share_dir files copied to blib"
 );
 
+}
+
 #--------------------------------------------------------------------------#
 # test installing
 #--------------------------------------------------------------------------#
@@ -202,6 +209,11 @@ $share_list = Module::Build->rscan_dir(
   "$temp_install/lib/perl5/auto/share", sub {-f}
 );
 
+SKIP:
+{
+
+skip 'filename case not necessarily preserved', 1 if $^O eq 'VMS';
+
 is_deeply(
   [ sort @$share_list ], [
     "$temp_install/lib/perl5/auto/share/dist/Simple-Share/foo.txt",
@@ -210,6 +222,8 @@ is_deeply(
   "share_dir files correctly installed"
 );
 
+}
+
 #--------------------------------------------------------------------------#
 # test with File::ShareDir
 #--------------------------------------------------------------------------#