diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-08-19 06:29:44 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-19 13:36:03 +0000 |
| commit | d89514c25b731ec9e14e39a4e64f5a8251603f17 (patch) | |
| tree | fd987f5c0992be817ff5b351a3ab84c35afd0102 /lib/ExtUtils | |
| parent | 58d7332594fdc120dc575dc757995db2d62a65ed (diff) | |
| download | perl-d89514c25b731ec9e14e39a4e64f5a8251603f17.tar.gz | |
Replace #20772 with
Subject: Re: [PATCH: perl@20760] VMS specific fix for lib/ExtUtils/t/Manifest.t
Message-ID: <OFE22C35CE.D5CB1A7F-ON85256D87.004E3BCA-85256D87.004F9EF2@factset.com>
Date: Tue, 19 Aug 2003 10:29:44 -0400
p4raw-id: //depot/perl@20776
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/t/Manifest.t | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/ExtUtils/t/Manifest.t b/lib/ExtUtils/t/Manifest.t index 24c849b8bb..8f069ac163 100644 --- a/lib/ExtUtils/t/Manifest.t +++ b/lib/ExtUtils/t/Manifest.t @@ -189,20 +189,16 @@ $files = maniread; is( $files->{wibble}, '', 'maniadd() with undef comment' ); is( $files->{yarrow}, 'hock',' with comment' ); is( $files->{foobar}, '', ' preserved old entries' ); - +maniadd({ foo => 'bar' }); add_file('MANIFEST' => 'Makefile.PL'); -maniadd({ 'META.yml' => 'Module meta-data (added by MakeMaker)' }); + $files = maniread; # VMS downcases the MANIFEST. We normalize it here to match. %$files = map { (lc $_ => $files->{$_}) } keys %$files; my %expect = ( 'makefile.pl' => '', - 'meta.yml' => 'Module meta-data (added by MakeMaker)' - ); + 'foo' => 'bar' ); is_deeply( $files, \%expect, 'maniadd() vs MANIFEST without trailing newline'); -add_file('MANIFEST' => 'Makefile.PL'); -maniadd({ foo => 'bar' }); - SKIP: { chmod( 0400, 'MANIFEST' ); skip "Can't make MANIFEST read-only", 2 if -w 'MANIFEST'; |