MM_BeOS from Tels.

p4raw-id: //depot/perl@14285

1 files changed, 46 insertions, 0 deletions

diff --git a/lib/ExtUtils/t/MM_BeOS.t b/lib/ExtUtils/t/MM_BeOS.t
new file mode 100644
index 0000000000..4b8ecc4de3
--- /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' );
+}