From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 15 Jan 2002 17:12:59 +0000 (+0000)
Subject: MM_BeOS from Tels.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9e9e3f2f4ab8323cddce5d7342b10a7d698a0e9;p=p5sagit%2Fp5-mst-13.2.git

MM_BeOS from Tels.

p4raw-id: //depot/perl@14285
---

diff --git a/MANIFEST b/MANIFEST
index 558d255..b5349a0 100644
--- 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
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' );
+}