#!/usr/bin/perl -w
# Wherein we ensure that postamble works ok.
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't' if -d 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use Test::More tests => 5;
use MakeMaker::Test::Utils;
use ExtUtils::MakeMaker;
use TieOut;
chdir 't';
perl_lib;
$| = 1;
my $Makefile = makefile_name;
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' );
}