This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
320f8afac5c7185b31b5fff3a9b12933c4cb58f4
[perl5.git] / lib / ExtUtils / t / FIRST_MAKEFILE.t
1 BEGIN {
2     if( $ENV{PERL_CORE} ) {
3         chdir 't' if -d 't';
4         @INC = ('../lib', 'lib');
5     }
6     else {
7         unshift @INC, 't/lib';
8     }
9 }
10 chdir 't';
11
12 use strict;
13 use Test::More 'no_plan';
14
15 use MakeMaker::Test::Setup::BFD;
16 use MakeMaker::Test::Utils;
17
18 my $perl = which_perl();
19 my $make = make_run();
20 perl_lib();
21
22
23 ok( setup_recurs(), 'setup' );
24 END {
25     ok( chdir File::Spec->updir );
26     ok( teardown_recurs(), 'teardown' );
27 }
28
29 ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
30   diag("chdir failed: $!");
31
32 my @mpl_out = run(qq{$perl Makefile.PL FIRST_MAKEFILE=jakefile});
33 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag @mpl_out;
34
35 ok( -e 'jakefile', 'FIRST_MAKEFILE honored' );
36
37 ok( grep(/^Writing jakefile for Big::Dummy/, @mpl_out) == 1,
38                                         'Makefile.PL output looks right' );