From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 7 Nov 2009 04:13:22 +0000 (-0600)
Subject: Skip some Pod::Simple tests on VMS that think case is always preserved.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd50b8fff8c82ad4ff8e25e14218b5a2eadb2ec5;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/cpan/Pod-Simple/lib/Pod/Simple.pm b/cpan/Pod-Simple/lib/Pod/Simple.pm
index a122bf7..566686e 100644
--- a/cpan/Pod-Simple/lib/Pod/Simple.pm
+++ b/cpan/Pod-Simple/lib/Pod/Simple.pm
@@ -18,7 +18,7 @@ use vars qw(
 );
 
 @ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.09';
+$VERSION = '3.09_01';
 
 @Known_formatting_codes = qw(I B C L E F S X Z); 
 %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
diff --git a/cpan/Pod-Simple/t/search20.t b/cpan/Pod-Simple/t/search20.t
index 52c6c36..3022b36 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 05157b7..24a91ed 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 7704503..610becb 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 22cf32d..7614e52 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 55fb8a5..195a8f1 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()
 }