1#!/usr/bin/perl
2
3BEGIN {
4    unshift @INC, 't/lib';
5}
6chdir 't';
7
8use strict;
9use warnings;
10use Test::More;
11
12BEGIN {
13	if ($^O =~ /beos/i or $^O eq 'haiku') {
14		plan tests => 4;
15	} else {
16		plan skip_all => 'This is not BeOS';
17	}
18}
19
20use Config;
21use File::Spec;
22use File::Basename;
23
24# tels - Taken from MM_Win32.t - I must not understand why this works, right?
25# Does this mimic ExtUtils::MakeMaker ok?
26{
27    @MM::ISA = qw(
28        ExtUtils::MM_Unix
29        ExtUtils::Liblist::Kid
30        ExtUtils::MakeMaker
31    );
32    # MM package faked up by messy MI entanglement
33    package MM;
34    sub DESTROY {}
35}
36
37require_ok( 'ExtUtils::MM_BeOS' );
38
39my $MM = bless { NAME => "Foo" }, 'MM';
40
41# init_linker
42{
43    my $libperl = File::Spec->catfile('$(PERL_INC)',
44                                      $Config{libperl} || 'libperl.a' );
45    my $export  = '';
46    my $after   = '';
47    $MM->init_linker;
48
49    is( $MM->{PERL_ARCHIVE},        $libperl,   'PERL_ARCHIVE' );
50    is( $MM->{PERL_ARCHIVE_AFTER},  $after,     'PERL_ARCHIVE_AFTER' );
51    is( $MM->{EXPORT_LIST},         $export,    'EXPORT_LIST' );
52}
53