This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MM_BeOS from Tels.
[perl5.git] / lib / ExtUtils / t / MM_BeOS.t
1 #!perl
2
3 # 2001-01-14 Tels v0.01
4
5 our $VERSION = 0.01;
6
7 BEGIN {
8         chdir 't' if -d 't';
9         @INC = '../lib';
10 }
11
12 use Test::More;
13
14 BEGIN {
15         if ($^O =~ /beos/i) {
16                 plan tests => 2;
17         } else {
18                 plan skip_all => 'This is not BeOS';
19         }
20 }
21
22 use Config;
23 use File::Spec;
24 use File::Basename;
25
26 # tels - Taken from MM_Win32.t - I must not understand why this works, right?
27 # Does this mimic ExtUtils::MakeMaker ok?
28 {
29     @MM::ISA = qw(
30         ExtUtils::MM_Unix 
31         ExtUtils::Liblist::Kid 
32         ExtUtils::MakeMaker
33     );
34     # MM package faked up by messy MI entanglement
35     package MM;
36     sub DESTROY {}
37 }
38
39 require_ok( 'ExtUtils::MM_BeOS' );
40
41 # perl_archive()
42 {
43     my $libperl = $Config{libperl} || 'libperl.a';
44     is( MM->perl_archive(), File::Spec->catfile('$(PERL_INC)', $libperl ),
45             'perl_archive() should respect libperl setting' );
46 }