blob: 870e8d47fe78c170ee2c87add3f6cf0e429726df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/bin/perl
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;
# 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' );
}
|
