ExtUtils::MakeMaker 6.55_02

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / MM_BeOS.t

diff --git a/lib/ExtUtils/t/MM_BeOS.t b/lib/ExtUtils/t/MM_BeOS.t
index 870e8d4..bb9583d 100644 (file)
--- a/lib/ExtUtils/t/MM_BeOS.t
+++ b/lib/ExtUtils/t/MM_BeOS.t
@@ -14,8 +14,8 @@ chdir 't';
 use Test::More;
 
 BEGIN {
-       if ($^O =~ /beos/i) {
-               plan tests => 2;
+       if ($^O =~ /beos/i or $^O eq 'haiku') {
+               plan tests => 4;
        } else {
                plan skip_all => 'This is not BeOS';
        }
@@ -40,9 +40,17 @@ use File::Basename;
 
 require_ok( 'ExtUtils::MM_BeOS' );
 
-# perl_archive()
+my $MM = bless { NAME => "Foo" }, 'MM';
+
+# init_linker
 {
-    my $libperl = $Config{libperl} || 'libperl.a';
-    is( MM->perl_archive(), File::Spec->catfile('$(PERL_INC)', $libperl ),
-           'perl_archive() should respect libperl setting' );
+    my $libperl = File::Spec->catfile('$(PERL_INC)', 
+                                      $Config{libperl} || 'libperl.a' );
+    my $export  = '';
+    my $after   = '';
+    $MM->init_linker;
+
+    is( $MM->{PERL_ARCHIVE},        $libperl,   'PERL_ARCHIVE' );
+    is( $MM->{PERL_ARCHIVE_AFTER},  $after,     'PERL_ARCHIVE_AFTER' );
+    is( $MM->{EXPORT_LIST},         $export,    'EXPORT_LIST' );
 }