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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/perl -w
# Wherein we ensure that postamble works ok.
BEGIN {
unshift @INC, 't/lib';
}
use strict;
use Test::More tests => 8;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
use ExtUtils::MakeMaker;
use TieOut;
use File::Temp qw[tempdir];
my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
chdir $tmpdir;
perl_lib;
$| = 1;
my $Makefile = makefile_name;
ok( setup_recurs(), 'setup' );
END {
ok( chdir File::Spec->updir );
ok( teardown_recurs(), 'teardown' );
}
ok( chdir 'Big-Dummy', q{chdir'd to Big-Dummy} ) ||
diag("chdir failed: $!");
{
my $warnings = '';
local $SIG{__WARN__} = sub {
$warnings = join '', @_;
};
my $stdout = tie *STDOUT, 'TieOut' or die;
my $mm = WriteMakefile(
NAME => 'Big::Dummy',
VERSION_FROM => 'lib/Big/Dummy.pm',
postamble => {
FOO => 1,
BAR => "fugawazads"
}
);
is( $warnings, '', 'postamble argument not warned about' );
}
sub MY::postamble {
my($self, %extra) = @_;
is_deeply( \%extra, { FOO => 1, BAR => 'fugawazads' },
'postamble args passed' );
return <<OUT;
# This makes sure the postamble gets written
OUT
}
ok( open(MAKEFILE, $Makefile) ) or diag "Can't open $Makefile: $!";
{ local $/;
like( <MAKEFILE>, qr/^\# This makes sure the postamble gets written\n/m,
'postamble added to the Makefile' );
}
close MAKEFILE;
|
