blob: 4b8ecc4de34e0da3b0447fbfd6696c9fddcb7016 (
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
|
#!perl
# 2001-01-14 Tels v0.01
our $VERSION = 0.01;
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
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' );
}
|
