postamble.t revision 1.1
1#!/usr/bin/perl -w 2 3# Wherein we ensure that postamble works ok. 4 5BEGIN { 6 unshift @INC, 't/lib'; 7} 8 9use strict; 10use Test::More tests => 8; 11use MakeMaker::Test::Utils; 12use MakeMaker::Test::Setup::BFD; 13use ExtUtils::MakeMaker; 14use TieOut; 15 16chdir 't'; 17perl_lib; 18$| = 1; 19 20my $Makefile = makefile_name; 21 22ok( setup_recurs(), 'setup' ); 23END { 24 ok( chdir File::Spec->updir ); 25 ok( teardown_recurs(), 'teardown' ); 26} 27 28ok( chdir 'Big-Dummy', q{chdir'd to Big-Dummy} ) || 29 diag("chdir failed: $!"); 30 31{ 32 my $warnings = ''; 33 local $SIG{__WARN__} = sub { 34 $warnings = join '', @_; 35 }; 36 37 my $stdout = tie *STDOUT, 'TieOut' or die; 38 my $mm = WriteMakefile( 39 NAME => 'Big::Dummy', 40 VERSION_FROM => 'lib/Big/Dummy.pm', 41 postamble => { 42 FOO => 1, 43 BAR => "fugawazads" 44 } 45 ); 46 is( $warnings, '', 'postamble argument not warned about' ); 47} 48 49sub MY::postamble { 50 my($self, %extra) = @_; 51 52 is_deeply( \%extra, { FOO => 1, BAR => 'fugawazads' }, 53 'postamble args passed' ); 54 55 return <<OUT; 56# This makes sure the postamble gets written 57OUT 58 59} 60 61 62ok( open(MAKEFILE, $Makefile) ) or diag "Can't open $Makefile: $!"; 63{ local $/; 64 like( <MAKEFILE>, qr/^\# This makes sure the postamble gets written\n/m, 65 'postamble added to the Makefile' ); 66} 67close MAKEFILE; 68