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' );