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

#!/usr/bin/perl -w

# This is a test for all the odd little backwards compatible things
# MakeMaker has to support.  And we do mean backwards.

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

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

require ExtUtils::MakeMaker;

# CPAN.pm wants MM.
can_ok('MM', 'new');

# Pre 5.8 ExtUtils::Embed wants MY.
can_ok('MY', 'catdir');
Commit	Line	Data
45bc4d3a	1	#!/usr/bin/perl -w
	2
	3	# This is a test for all the odd little backwards compatible things
	4	# MakeMaker has to support. And we do mean backwards.
	5
	6	BEGIN {
	7	if( $ENV{PERL_CORE} ) {
	8	chdir 't' if -d 't';
	9	@INC = ('../lib', 'lib');
	10	}
	11	else {
	12	unshift @INC, 't/lib';
	13	}
	14	}
	15
	16	use strict;
	17	use Test::More tests => 2;
	18
	19	require ExtUtils::MakeMaker;
	20
	21	# CPAN.pm wants MM.
	22	can_ok('MM', 'new');
	23
	24	# Pre 5.8 ExtUtils::Embed wants MY.
	25	can_ok('MY', 'catdir');