summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/t/MM_OS2.t
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2003-03-30 18:42:58 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2003-03-31 09:54:52 +0000
commit479d2113ccb2226821ef75027b9186d1d0e367e9 (patch)
treea9b0815b35ca20eb8b0e60c5a7881b0ed3033e7e /lib/ExtUtils/t/MM_OS2.t
parentf18b2318c1a1ea8f33016f2bf34abc4ac137b8e3 (diff)
downloadperl-479d2113ccb2226821ef75027b9186d1d0e367e9.tar.gz
ExtUtils::MakeMaker 6.03 -> 6.06_05ish
Message-ID: <20030331104257.GB15327@windhund.schwern.org> p4raw-id: //depot/perl@19099
Diffstat (limited to 'lib/ExtUtils/t/MM_OS2.t')
-rw-r--r--lib/ExtUtils/t/MM_OS2.t23
1 files changed, 13 insertions, 10 deletions
diff --git a/lib/ExtUtils/t/MM_OS2.t b/lib/ExtUtils/t/MM_OS2.t
index 53b83f3f85..caf662e5b1 100644
--- a/lib/ExtUtils/t/MM_OS2.t
+++ b/lib/ExtUtils/t/MM_OS2.t
@@ -247,26 +247,29 @@ ok( ExtUtils::MM_OS2->file_name_is_absolute( '\foo' ),
ok( ! ExtUtils::MM_OS2->file_name_is_absolute( 'arduk' ),
'... but not for paths with no leading slash or volume' );
-# perl_archive
-is( ExtUtils::MM_OS2->perl_archive(), '$(PERL_INC)/libperl$(LIB_EXT)',
- 'perl_archive() should return a static string' );
-# perl_archive_after
+$mm->init_linker;
+
+# PERL_ARCHIVE
+is( $mm->{PERL_ARCHIVE}, '$(PERL_INC)/libperl$(LIB_EXT)', 'PERL_ARCHIVE' );
+
+# PERL_ARCHIVE_AFTER
{
my $aout = 0;
local *OS2::is_aout;
*OS2::is_aout = \$aout;
- isnt( ExtUtils::MM_OS2->perl_archive_after(), '',
- 'perl_archive_after() should return string without $is_aout set' );
+ $mm->init_linker;
+ isnt( $mm->{PERL_ARCHIVE_AFTER}, '',
+ 'PERL_ARCHIVE_AFTER should be empty without $is_aout set' );
$aout = 1;
- is( ExtUtils::MM_OS2->perl_archive_after(), '',
+ is( $mm->{PERL_ARCHIVE_AFTER}, '',
'... and blank string if it is set' );
}
-# export_list
-is( ExtUtils::MM_OS2::export_list({ BASEEXT => 'foo' }), 'foo.def',
- 'export_list() should add .def to BASEEXT member' );
+# EXPORT_LIST
+is( $mm->{EXPORT_LIST}, '$(BASEEXT).def',
+ 'EXPORT_LIST should add .def to BASEEXT member' );
END {
use File::Path;