Change 14285 by jhi@alpha on 2002/01/15 17:12:59
MM_BeOS from Tels.
Affected files ...
.... //depot/perl/MANIFEST#711 edit
.... //depot/perl/lib/ExtUtils/t/MM_BeOS.t#1 add
Differences ...
==== //depot/perl/MANIFEST#711 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Tue Jan 15 10:30:06 2002
+++ perl/MANIFEST Tue Jan 15 10:30:06 2002
@@ -943,6 +943,7 @@
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/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
==== //depot/perl/lib/ExtUtils/t/MM_BeOS.t#1 (text) ====
Index: perl/lib/ExtUtils/t/MM_BeOS.t
--- perl/lib/ExtUtils/t/MM_BeOS.t.~1~ Tue Jan 15 10:30:06 2002
+++ perl/lib/ExtUtils/t/MM_BeOS.t Tue Jan 15 10:30:06 2002
@@ -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' );
+}
End of Patch.
