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;
{
@MM::ISA = qw(
ExtUtils::MM_Unix
ExtUtils::Liblist::Kid
ExtUtils::MakeMaker
);
package MM;
sub DESTROY {}
}
require_ok( 'ExtUtils::MM_BeOS' );
{
my $libperl = File::Spec->catfile('$(PERL_INC)',
$Config{libperl} || 'libperl.a' );
my $export = '';
my $after = '';
$MM->init_linker;
is( $MM->{PERL_ARCHIVE}, $libperl, 'PERL_ARCHIVE' );
is( $MM->{PERL_ARCHIVE_AFTER}, $after, 'PERL_ARCHIVE_AFTER' );
is( $MM->{EXPORT_LIST}, $export, 'EXPORT_LIST' );
}