1#!/usr/bin/perl -w 2 3BEGIN { 4 unshift @INC, 't/lib'; 5} 6 7use File::Temp qw[tempdir]; 8my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 ); 9chdir $tmpdir; 10 11use strict; 12use Test::More tests => 7; 13 14use MakeMaker::Test::Setup::BFD; 15use MakeMaker::Test::Utils; 16 17my $perl = which_perl(); 18my $make = make_run(); 19perl_lib(); 20 21 22ok( setup_recurs(), 'setup' ); 23END { 24 ok( chdir File::Spec->updir ); 25 ok( teardown_recurs(), 'teardown' ); 26} 27 28ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) || 29 diag("chdir failed: $!"); 30 31my @mpl_out = run(qq{$perl Makefile.PL FIRST_MAKEFILE=jakefile}); 32cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag @mpl_out; 33 34ok( -e 'jakefile', 'FIRST_MAKEFILE honored' ); 35 36ok( grep(/^Writing jakefile(?:\.)? for Big::Dummy/, @mpl_out) == 1, 37 'Makefile.PL output looks right' ); 38