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