From bd50b8fff8c82ad4ff8e25e14218b5a2eadb2ec5 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 6 Nov 2009 22:13:22 -0600 Subject: [PATCH] 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 --- cpan/Pod-Simple/lib/Pod/Simple.pm | 2 +- cpan/Pod-Simple/t/search20.t | 8 ++++++-- cpan/Pod-Simple/t/search22.t | 13 +++++++++---- cpan/Pod-Simple/t/search25.t | 12 +++++++++--- cpan/Pod-Simple/t/search27.t | 12 +++++++++--- cpan/Pod-Simple/t/search50.t | 5 ++++- 6 files changed, 38 insertions(+), 14 deletions(-) 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/.pm' means can't test find() } -- 2.7.4