diff options
| author | Orton, Yves <yves.orton@de.mci.com> | 2003-09-17 16:47:35 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-17 14:09:50 +0000 |
| commit | a6ab0b5c7971198624b2f1ac7ae236adc2773b84 (patch) | |
| tree | 6fd7a558810bef9bac23b701f191d5646482dedc /lib/ExtUtils/t | |
| parent | 35727b84c71fa1997973466e1085cc7718896a75 (diff) | |
| download | perl-a6ab0b5c7971198624b2f1ac7ae236adc2773b84.tar.gz | |
RE: MM in maint@21251 breaks mp2
From: "Orton, Yves" <yves.orton@de.mci.com>
Message-ID: <71B318898201D311845C0008C75DAD1C089611FE@defra1ex2>
Date: Wed, 17 Sep 2003 15:47:35 +0100
p4raw-id: //depot/perl@21263
Diffstat (limited to 'lib/ExtUtils/t')
| -rw-r--r-- | lib/ExtUtils/t/MM_Unix.t | 4 | ||||
| -rw-r--r-- | lib/ExtUtils/t/MM_Win32.t | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t index 6683761995..7de8065eaa 100644 --- a/lib/ExtUtils/t/MM_Unix.t +++ b/lib/ExtUtils/t/MM_Unix.t @@ -18,7 +18,7 @@ BEGIN { plan skip_all => 'Non-Unix platform'; } else { - plan tests => 115; + plan tests => 116; } } @@ -235,7 +235,7 @@ is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator'); ############################################################################### $t->init_linker; -foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER /) +foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER LD /) { ok( exists $t->{$_}, "$_ was defined" ); is( $t->{$_}, '', "$_ is empty on Unix"); diff --git a/lib/ExtUtils/t/MM_Win32.t b/lib/ExtUtils/t/MM_Win32.t index 1431ababd0..6e39f7a533 100644 --- a/lib/ExtUtils/t/MM_Win32.t +++ b/lib/ExtUtils/t/MM_Win32.t @@ -110,12 +110,12 @@ delete $ENV{PATHEXT} unless $had_pathext; } # init_others(): check if all keys are created and set? -# qw( TOUCH CHMOD CP RM_F RM_RF MV NOOP TEST_F LD AR LDLOADLIBS DEV_NUL ) +# qw( TOUCH CHMOD CP RM_F RM_RF MV NOOP TEST_F AR LDLOADLIBS DEV_NUL ) { my $mm_w32 = bless( { BASEEXT => 'Foo' }, 'MM' ); $mm_w32->init_others(); my @keys = qw( TOUCH CHMOD CP RM_F RM_RF MV NOOP - TEST_F LD AR LDLOADLIBS DEV_NULL ); + TEST_F AR LDLOADLIBS DEV_NULL ); for my $key ( @keys ) { ok( $mm_w32->{ $key }, "init_others: $key" ); } @@ -192,6 +192,7 @@ delete $ENV{PATH} unless $had_path; my $after = ''; $MM->init_linker; + ok( $MM->{ LD }, "init_linker sets LD" ); is( $MM->{PERL_ARCHIVE}, $libperl, 'PERL_ARCHIVE' ); is( $MM->{PERL_ARCHIVE_AFTER}, $after, 'PERL_ARCHIVE_AFTER' ); is( $MM->{EXPORT_LIST}, $export, 'EXPORT_LIST' ); |