4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
14 use Test::More tests => 1;
18 my $mm = bless {}, 'MM';
20 my $default = File::Spec->catdir(qw(this that));
21 $mm->prefixify('installbin', 'wibble', 'something', $default);
23 is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
24 'prefixify w/defaults');