summaryrefslogtreecommitdiff
path: root/ext/ExtUtils-MakeMaker/t/pm.t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/ExtUtils-MakeMaker/t/pm.t')
-rw-r--r--ext/ExtUtils-MakeMaker/t/pm.t41
1 files changed, 41 insertions, 0 deletions
diff --git a/ext/ExtUtils-MakeMaker/t/pm.t b/ext/ExtUtils-MakeMaker/t/pm.t
new file mode 100644
index 0000000000..42f028fe5d
--- /dev/null
+++ b/ext/ExtUtils-MakeMaker/t/pm.t
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+# Test that MakeMaker honors user's PM override.
+
+BEGIN {
+ unshift @INC, 't/lib';
+}
+
+use strict;
+use Test::More tests => 6;
+
+use TieOut;
+use MakeMaker::Test::Utils;
+use MakeMaker::Test::Setup::BFD;
+
+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' } );
+}