lib/ExtUtils/t/miniperl.t

   1 #!/usr/bin/perl -w
   2
   3 # Test that we can build modules as miniperl.
   4 # This mostly means no XS modules.
   5
   6 use strict;
   7 use lib 't/lib';
   8
   9 use Test::More 'no_plan';
  10
  11 BEGIN {
  12     ok !$INC{"ExtUtils/MakeMaker.pm"}, "MakeMaker is not yet loaded";
  13 }
  14
  15 # Disable all XS from here on
  16 use MakeMaker::Test::NoXS;
  17
  18 use ExtUtils::MakeMaker;
  19
  20 use MakeMaker::Test::Utils;
  21 use MakeMaker::Test::Setup::BFD;
  22
  23
  24 my $perl     = which_perl();
  25 my $makefile = makefile_name();
  26 my $make     = make_run();
  27
  28
  29 # Setup our test environment
  30 {
  31     chdir 't';
  32
  33     perl_lib;
  34
  35     ok( setup_recurs(), 'setup' );
  36     END {
  37         ok( chdir File::Spec->updir );
  38         ok( teardown_recurs(), 'teardown' );
  39     }
  40
  41     ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
  42       diag("chdir failed: $!");
  43 }
  44
  45
  46 # Run make once
  47 {
  48     run_ok(qq{$perl Makefile.PL});
  49     run_ok($make);
  50 }