[p5sagit/p5-mst-13.2.git] / ext / ExtUtils-MakeMaker / t / FIRST_MAKEFILE.t

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib';
}
chdir 't';

use strict;
use Test::More tests => 7;

use MakeMaker::Test::Setup::BFD;
use MakeMaker::Test::Utils;

my $perl = which_perl();
my $make = make_run();
perl_lib();


ok( setup_recurs(), 'setup' );
END {
    ok( chdir File::Spec->updir );
    ok( teardown_recurs(), 'teardown' );
}

ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
  diag("chdir failed: $!");

my @mpl_out = run(qq{$perl Makefile.PL FIRST_MAKEFILE=jakefile});
cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag @mpl_out;

ok( -e 'jakefile', 'FIRST_MAKEFILE honored' );

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