#!/usr/bin/perl -w
# Test that MakeMaker honors user's PM override.
BEGIN {
unshift
@INC
,
't/lib'
;
}
use
strict;
use
warnings;
use
TieOut;
use
ExtUtils::MakeMaker;
chdir
't'
;
perl_lib();
ok( setup_recurs(),
'setup'
);
END {
ok(
chdir
File::Spec->updir );
ok( teardown_recurs(),
'teardown'
);
}
ok(
chdir
'Big-Dummy'
,
"chdir'd to Big-Dummy"
) ||
diag(
"chdir failed: $!"
);
ok(
my
$stdout
=
tie
*STDOUT
,
'TieOut'
);
{
my
$mm
= WriteMakefile(
NAME
=>
'Big::Dummy'
,
VERSION_FROM
=>
'lib/Big/Dummy.pm'
,
PM
=> {
'wibble'
=>
'woof'
}
);
is_deeply(
$mm
->{PM}, {
wibble
=>
'woof'
} );
}