Detypo.

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

#!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' );
}