[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / MM_BeOS.t

#!/usr/bin/perl

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
    else {
        unshift @INC, 't/lib';
    }
}
chdir 't';

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' );
}
Commit	Line	Data
39234879	1	#!/usr/bin/perl
b9e9e3f2	2
b9e9e3f2	3	BEGIN {
39234879	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	}
f6d6199c	8	else {
	9	unshift @INC, 't/lib';
	10	}
b9e9e3f2	11	}
39234879	12	chdir 't';
b9e9e3f2	13
	14	use Test::More;
	15
	16	BEGIN {
	17	if ($^O =~ /beos/i) {
	18	plan tests => 2;
	19	} else {
	20	plan skip_all => 'This is not BeOS';
	21	}
	22	}
	23
	24	use Config;
	25	use File::Spec;
	26	use File::Basename;
	27
	28	# tels - Taken from MM_Win32.t - I must not understand why this works, right?
	29	# Does this mimic ExtUtils::MakeMaker ok?
	30	{
	31	@MM::ISA = qw(
	32	ExtUtils::MM_Unix
	33	ExtUtils::Liblist::Kid
	34	ExtUtils::MakeMaker
	35	);
	36	# MM package faked up by messy MI entanglement
	37	package MM;
	38	sub DESTROY {}
	39	}
	40
	41	require_ok( 'ExtUtils::MM_BeOS' );
	42
	43	# perl_archive()
	44	{
	45	my $libperl = $Config{libperl} \|\| 'libperl.a';
	46	is( MM->perl_archive(), File::Spec->catfile('$(PERL_INC)', $libperl ),
	47	'perl_archive() should respect libperl setting' );
	48	}