Skip some Pod::Simple tests on VMS that think case is always preserved.

Already in the upstream queue at:

https://rt.cpan.org/Ticket/Display.html?id=51184

5 files changed, 37 insertions, 13 deletions

diff --git a/cpan/Pod-Simple/t/search20.t b/cpan/Pod-Simple/t/search20.t
index 52c6c36a16..3022b3653b 100644
--- a/cpan/Pod-Simple/t/search20.t
+++ b/cpan/Pod-Simple/t/search20.t
@@ -69,12 +69,16 @@ print $p;
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
diff --git a/cpan/Pod-Simple/t/search22.t b/cpan/Pod-Simple/t/search22.t
index 05157b748c..24a91ed45e 100644
--- a/cpan/Pod-Simple/t/search22.t
+++ b/cpan/Pod-Simple/t/search22.t
@@ -71,13 +71,17 @@ print $p;
 {
 print "# won't show any shadows, since we're just looking at the name2where keys\n";
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 {
 print "# but here we'll see shadowing:\n";
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik";
 
 my %count;
 for(values %$where2name) { ++$count{$_} };
@@ -103,8 +107,9 @@ ok( ($name2where->{'perlthng'}    || 'huh???'), '/[^\^]testlib1/' );
 ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' );
 
 # Some sanity:
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/testlib2/' );
-
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+    ($name2where->{'squaa::Wowo'}  || 'huh???'), 
+    '/testlib2/';
 
 
 
diff --git a/cpan/Pod-Simple/t/search25.t b/cpan/Pod-Simple/t/search25.t
index 77045033b9..610becb7ef 100644
--- a/cpan/Pod-Simple/t/search25.t
+++ b/cpan/Pod-Simple/t/search25.t
@@ -77,12 +77,16 @@ print $p;
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "squaa::Glunk|squaa::Vliff|squaa::Wowo";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+      $names, 
+      "squaa::Glunk|squaa::Vliff|squaa::Wowo";
 }
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo";
 
 my %count;
 for(values %$where2name) { ++$count{$_} };
@@ -102,7 +106,9 @@ ok ! $name2where->{'squaa'};  # because squaa.pm isn't squaa::*
 
 ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' );
 
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/testlib2/' );
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0,
+    ($name2where->{'squaa::Wowo'}  || 'huh???'), 
+    '/testlib2/';
 
 
 print "# OK, bye from ", __FILE__, "\n";
diff --git a/cpan/Pod-Simple/t/search27.t b/cpan/Pod-Simple/t/search27.t
index 22cf32d107..7614e525c4 100644
--- a/cpan/Pod-Simple/t/search27.t
+++ b/cpan/Pod-Simple/t/search27.t
@@ -74,12 +74,16 @@ print $p;
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0,
+     $names, 
+     "squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo";
 }
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo";
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, 
+     $names, 
+     "squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo";
 
 my %count;
 for(values %$where2name) { ++$count{$_} };
@@ -99,7 +103,9 @@ ok   $name2where->{'squaa'};  # because squaa.pm IS squaa*
 
 ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' );
 
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/testlib2/' );
+skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0,
+     ($name2where->{'squaa::Wowo'}  || 'huh???'), 
+     '/testlib2/';
 
 
 print "# OK, bye from ", __FILE__, "\n";
diff --git a/cpan/Pod-Simple/t/search50.t b/cpan/Pod-Simple/t/search50.t
index 55fb8a5e01..195a8f150c 100644
--- a/cpan/Pod-Simple/t/search50.t
+++ b/cpan/Pod-Simple/t/search50.t
@@ -77,7 +77,10 @@ if( $testmod ) {
   print "# Comparing \"$x[0]\" to \"$x[1]\"\n";
   for(@x) { s{[/\\]}{/}g; }
   print "#        => \"$x[0]\" to \"$x[1]\"\n";
-  ok $x[0], $x[1], " find('$testmod') should match survey's name2where{$testmod}";
+  skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0,
+       $x[0], 
+       $x[1], 
+       " find('$testmod') should match survey's name2where{$testmod}";
 } else {
   ok 0;  # no 'thatpath/<name>.pm' means can't test find()
 }