diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-15 17:12:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-15 17:12:59 +0000 |
| commit | b9e9e3f2f4ab8323cddce5d7342b10a7d698a0e9 (patch) | |
| tree | 3987297a0379fb06ddeae9df0e3e6784fe7356c6 | |
| parent | 7d824d8e6f7cacfafe95d58fa9ab3d99bd41e854 (diff) | |
| download | perl-b9e9e3f2f4ab8323cddce5d7342b10a7d698a0e9.tar.gz | |
MM_BeOS from Tels.
p4raw-id: //depot/perl@14285
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/t/MM_BeOS.t | 46 |
2 files changed, 48 insertions, 0 deletions
@@ -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 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' ); +} |