| #!/usr/bin/perl |
| |
| BEGIN { |
| unshift @INC, 't/lib'; |
| } |
| chdir 't'; |
| |
| use Test::More; |
| |
| BEGIN { |
| if ($^O =~ /beos/i or $^O eq 'haiku') { |
| plan tests => 4; |
| } 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' ); |
| |
| my $MM = bless { NAME => "Foo" }, 'MM'; |
| |
| # init_linker |
| { |
| 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' ); |
| } |