Change 31701 by [EMAIL PROTECTED] on 2007/08/10 16:28:34
Skip a couple of case sensitive tests in Pod::Simple on VMS.
Affected files ...
... //depot/perl/lib/Pod/Simple/t/search20.t#3 edit
... //depot/perl/lib/Pod/Simple/t/search22.t#3 edit
Differences ...
==== //depot/perl/lib/Pod/Simple/t/search20.t#3 (text) ====
Index: perl/lib/Pod/Simple/t/search20.t
--- perl/lib/Pod/Simple/t/search20.t#2~30707~ 2007-03-22 18:47:41.000000000
-0700
+++ perl/lib/Pod/Simple/t/search20.t 2007-08-10 09:28:34.000000000 -0700
@@ -69,12 +69,16 @@
{
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$/');
==== //depot/perl/lib/Pod/Simple/t/search22.t#3 (text) ====
Index: perl/lib/Pod/Simple/t/search22.t
--- perl/lib/Pod/Simple/t/search22.t#2~30707~ 2007-03-22 18:47:41.000000000
-0700
+++ perl/lib/Pod/Simple/t/search22.t 2007-08-10 09:28:34.000000000 -0700
@@ -71,13 +71,17 @@
{
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{$_} };
End of Patch.
