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

#!/usr/bin/perl -w

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

use strict;
use Test::More tests => 1;
use File::Spec;
use ExtUtils::MM;

my $mm = bless {}, 'MM';

my $default = File::Spec->catdir(qw(this that));
$mm->prefixify('installbin', 'wibble', 'something', $default);

is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
                                            'prefixify w/defaults');
Commit	Line	Data
e0678a30	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't' if -d 't';
	6	@INC = ('../lib', 'lib');
	7	}
	8	else {
	9	unshift @INC, 't/lib';
	10	}
	11	}
	12
	13	use strict;
	14	use Test::More tests => 1;
	15	use File::Spec;
	16	use ExtUtils::MM;
	17
	18	my $mm = bless {}, 'MM';
	19
	20	my $default = File::Spec->catdir(qw(this that));
	21	$mm->prefixify('installbin', 'wibble', 'something', $default);
5c161494	22
e0678a30	23	is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
e0678a30	24	'prefixify w/defaults');