4 if( $ENV{PERL_CORE} ) {
20 plan skip_all => 'This is not BeOS';
28 # tels - Taken from MM_Win32.t - I must not understand why this works, right?
29 # Does this mimic ExtUtils::MakeMaker ok?
33 ExtUtils::Liblist::Kid
36 # MM package faked up by messy MI entanglement
41 require_ok( 'ExtUtils::MM_BeOS' );
43 my $MM = bless { NAME => "Foo" }, 'MM';
47 my $libperl = File::Spec->catfile('$(PERL_INC)',
48 $Config{libperl} || 'libperl.a' );
53 is( $MM->{PERL_ARCHIVE}, $libperl, 'PERL_ARCHIVE' );
54 is( $MM->{PERL_ARCHIVE_AFTER}, $after, 'PERL_ARCHIVE_AFTER' );
55 is( $MM->{EXPORT_LIST}, $export, 'EXPORT_LIST' );