3 # This is a test of WriteEmptyMakefile.
12 use Test::More tests => 5;
14 use ExtUtils::MakeMaker qw(WriteEmptyMakefile);
17 can_ok __PACKAGE__, 'WriteEmptyMakefile';
19 eval { WriteEmptyMakefile("something"); };
20 like $@, qr/Need an even number of args/;
24 ok( my $stdout = tie *STDOUT, 'TieOut' );
27 END { 1 while unlink 'wibble' }
31 FIRST_MAKEFILE => "wibble",