1#!/usr/bin/perl -w 2 3# Test that MakeMaker honors user's PM override. 4 5BEGIN { 6 unshift @INC, 't/lib'; 7} 8 9use strict; 10use warnings; 11use Test::More tests => 6; 12 13use TieOut; 14use MakeMaker::Test::Utils; 15use MakeMaker::Test::Setup::BFD; 16 17use ExtUtils::MakeMaker; 18 19chdir 't'; 20 21perl_lib(); 22 23ok( setup_recurs(), 'setup' ); 24END { 25 ok( chdir File::Spec->updir ); 26 ok( teardown_recurs(), 'teardown' ); 27} 28 29ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) || 30 diag("chdir failed: $!"); 31 32ok( my $stdout = tie *STDOUT, 'TieOut' ); 33 34{ 35 my $mm = WriteMakefile( 36 NAME => 'Big::Dummy', 37 VERSION_FROM => 'lib/Big/Dummy.pm', 38 PM => { 'wibble' => 'woof' } 39 ); 40 41 is_deeply( $mm->{PM}, { wibble => 'woof' } ); 42} 43