[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / miniperl.t

#!/usr/bin/perl -w

# Test that we can build modules as miniperl.
# This mostly means no XS modules.

use strict;
use lib 't/lib';

use Test::More 'no_plan';

BEGIN {
    ok !$INC{"ExtUtils/MakeMaker.pm"}, "MakeMaker is not yet loaded";
}

# Disable all XS from here on
use MakeMaker::Test::NoXS;

use ExtUtils::MakeMaker;

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


my $perl     = which_perl();
my $makefile = makefile_name();
my $make     = make_run();


# Setup our test environment
{
    chdir 't';

    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: $!");
}


# Run make once
{
    run_ok(qq{$perl Makefile.PL});
    run_ok($make);
}
Commit	Line	Data
c0956255	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	}