Missing MakeMaker test.

p4raw-id: //depot/perl@20237

1 files changed, 65 insertions, 0 deletions

diff --git a/lib/ExtUtils/t/postamble.t b/lib/ExtUtils/t/postamble.t
new file mode 100644
index 0000000000..b8c049277f
--- /dev/null
+++ b/lib/ExtUtils/t/postamble.t
@@ -0,0 +1,65 @@
+#!/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' );
+}