MM_BeOS from Tels.

p4raw-id: //depot/perl@14285

diff --git a/MANIFEST b/MANIFEST
index 558d255..b5349a0 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -943,6 +943,7 @@ lib/ExtUtils/Manifest.pm    Utilities to write MANIFEST files
 lib/ExtUtils/MANIFEST.SKIP     The default MANIFEST.SKIP
 lib/ExtUtils/Mkbootstrap.pm    Writes a bootstrap file (see MakeMaker)
 lib/ExtUtils/Mksymlists.pm     Writes a linker options file for extensions
+lib/ExtUtils/MM_BeOS.pm                MakeMaker methods for BeOS
 lib/ExtUtils/MM_Cygwin.pm      MakeMaker methods for Cygwin
 lib/ExtUtils/MM_NW5.pm         MakeMaker methods for NetWare
 lib/ExtUtils/MM_OS2.pm         MakeMaker methods for OS/2
@@ -956,6 +957,7 @@ lib/ExtUtils/t/ExtUtils.t   See if extutils work
 lib/ExtUtils/t/Installed.t     See if ExtUtils::Installed works
 lib/ExtUtils/t/Manifest.t      See if ExtUtils::Manifest works
 lib/ExtUtils/t/Mkbootstrap.t   See if ExtUtils::Mkbootstrap works
+lib/ExtUtils/t/MM_BeOS.t       See if ExtUtils::MM_BeOS works
 lib/ExtUtils/t/MM_Cygwin.t     See if ExtUtils::MM_Cygwin works
 lib/ExtUtils/t/MM_OS2.t                See if ExtUtils::MM_OS2 works
 lib/ExtUtils/t/MM_Unix.t       See if ExtUtils::MM_UNIX works

diff --git a/lib/ExtUtils/t/MM_BeOS.t b/lib/ExtUtils/t/MM_BeOS.t
new file mode 100644 (file)
index 0000000..4b8ecc4
--- /dev/null
+++ b/lib/ExtUtils/t/MM_BeOS.t
@@ -0,0 +1,46 @@
+#!perl
+
+# 2001-01-14 Tels v0.01
+
+our $VERSION = 0.01;
+
+BEGIN {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+}
+
+use Test::More;
+
+BEGIN {
+       if ($^O =~ /beos/i) {
+               plan tests => 2;
+       } else {
+               plan skip_all => 'This is not BeOS';
+       }
+}
+
+use Config;
+use File::Spec;
+use File::Basename;
+
+# tels - Taken from MM_Win32.t - I must not understand why this works, right?
+# Does this mimic ExtUtils::MakeMaker ok?
+{
+    @MM::ISA = qw(
+        ExtUtils::MM_Unix 
+        ExtUtils::Liblist::Kid 
+        ExtUtils::MakeMaker
+    );
+    # MM package faked up by messy MI entanglement
+    package MM;
+    sub DESTROY {}
+}
+
+require_ok( 'ExtUtils::MM_BeOS' );
+
+# perl_archive()
+{
+    my $libperl = $Config{libperl} || 'libperl.a';
+    is( MM->perl_archive(), File::Spec->catfile('$(PERL_INC)', $libperl ),
+           'perl_archive() should respect libperl setting' );
+}