diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-08-10 16:28:34 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-08-10 16:28:34 +0000 |
| commit | 8f767a7ad369a4fa8e5bce4de826fa7d91f2cb6a (patch) | |
| tree | b2c6e0d5c5cbc043e4aa18dd301b1b81c6e8b051 /lib/Pod | |
| parent | 987a03fc5bbe9f29ec2ae5a4dbe63bd583860752 (diff) | |
| download | perl-8f767a7ad369a4fa8e5bce4de826fa7d91f2cb6a.tar.gz | |
Skip a couple of case sensitive tests in Pod::Simple on VMS.
p4raw-id: //depot/perl@31701
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Simple/t/search20.t | 8 | ||||
| -rw-r--r-- | lib/Pod/Simple/t/search22.t | 8 |
2 files changed, 12 insertions, 4 deletions
diff --git a/lib/Pod/Simple/t/search20.t b/lib/Pod/Simple/t/search20.t index 52c6c36a16..3022b3653b 100644 --- a/lib/Pod/Simple/t/search20.t +++ b/lib/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/lib/Pod/Simple/t/search22.t b/lib/Pod/Simple/t/search22.t index 05157b748c..6e6d662a1b 100644 --- a/lib/Pod/Simple/t/search22.t +++ b/lib/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{$_} }; |