diff options
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' ); |