diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-03-06 18:54:30 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-03-06 18:54:30 -0600 |
| commit | 3ec89e6daf60f20821792ef59df86c7b3121a232 (patch) | |
| tree | 22db5a2bd545ec23c611e9e7629877dd85ed5a99 /cpan/Module-Build | |
| parent | aa3f85c5f369736a7e50055b726cf2ca11336ce9 (diff) | |
| download | perl-3ec89e6daf60f20821792ef59df86c7b3121a232.tar.gz | |
Moduule::Build test tweaks for VMS.
More complete fix available upstream at:
http://rt.cpan.org/Public/Bug/Display.html?id=55288
Diffstat (limited to 'cpan/Module-Build')
| -rw-r--r-- | cpan/Module-Build/t/compat.t | 3 | ||||
| -rw-r--r-- | cpan/Module-Build/t/properties/share_dir.t | 14 |
2 files changed, 17 insertions, 0 deletions
diff --git a/cpan/Module-Build/t/compat.t b/cpan/Module-Build/t/compat.t index 0a820a936d..7e5a515eaa 100644 --- a/cpan/Module-Build/t/compat.t +++ b/cpan/Module-Build/t/compat.t @@ -242,6 +242,9 @@ ok $mb, "Module::Build->new_from_context"; skip "Needs ExtUtils::Install 1.32 or later", 2 * @cases if ExtUtils::Install->VERSION < 1.32; + skip "Needs upstream patch at http://rt.cpan.org/Public/Bug/Display.html?id=55288", 2 * @cases + if $^O eq 'VMS'; + for my $c (@cases) { my @make_args = @{$c->{args}}; if ($is_vms_mms) { # VMS MMK/MMS macros use different syntax. diff --git a/cpan/Module-Build/t/properties/share_dir.t b/cpan/Module-Build/t/properties/share_dir.t index 8cf961dbc8..1d81a0aa45 100644 --- a/cpan/Module-Build/t/properties/share_dir.t +++ b/cpan/Module-Build/t/properties/share_dir.t @@ -179,6 +179,11 @@ ok( -d 'blib/lib/auto/share', "blib/lib/auto/share exists" ); my $share_list = Module::Build->rscan_dir('blib/lib/auto/share', sub {-f}); +SKIP: +{ + +skip 'filename case not necessarily preserved', 1 if $^O eq 'VMS'; + is_deeply( [ sort @$share_list ], [ 'blib/lib/auto/share/dist/Simple-Share/foo.txt', @@ -187,6 +192,8 @@ is_deeply( "share_dir files copied to blib" ); +} + #--------------------------------------------------------------------------# # test installing #--------------------------------------------------------------------------# @@ -202,6 +209,11 @@ $share_list = Module::Build->rscan_dir( "$temp_install/lib/perl5/auto/share", sub {-f} ); +SKIP: +{ + +skip 'filename case not necessarily preserved', 1 if $^O eq 'VMS'; + is_deeply( [ sort @$share_list ], [ "$temp_install/lib/perl5/auto/share/dist/Simple-Share/foo.txt", @@ -210,6 +222,8 @@ is_deeply( "share_dir files correctly installed" ); +} + #--------------------------------------------------------------------------# # test with File::ShareDir #--------------------------------------------------------------------------# |