1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't' if -d 't';
1N/A @INC = ('../lib', 'lib');
1N/A }
1N/A else {
1N/A unshift @INC, 't/lib';
1N/A }
1N/A}
1N/A
1N/Ause strict;
1N/Ause Test::More;
1N/A
1N/Aif( $^O eq 'VMS' ) {
1N/A plan skip_all => 'prefixify works differently on VMS';
1N/A}
1N/Aelse {
1N/A plan tests => 3;
1N/A}
1N/Ause Config;
1N/Ause File::Spec;
1N/Ause ExtUtils::MM;
1N/A
1N/Amy $mm = bless {}, 'MM';
1N/A
1N/Amy $default = File::Spec->catdir(qw(this that));
1N/A
1N/A$mm->prefixify('installbin', 'wibble', 'something', $default);
1N/Ais( $mm->{INSTALLBIN}, $Config{installbin},
1N/A 'prefixify w/defaults');
1N/A
1N/A$mm->{ARGS}{PREFIX} = 'foo';
1N/A$mm->prefixify('installbin', 'wibble', 'something', $default);
1N/Ais( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
1N/A 'prefixify w/defaults and PREFIX');
1N/A
1N/A{
1N/A undef *ExtUtils::MM_Unix::Config;
1N/A $ExtUtils::MM_Unix::Config{wibble} = 'C:\opt\perl\wibble';
1N/A $mm->prefixify('wibble', 'C:\opt\perl', 'C:\yarrow');
1N/A
1N/A is( $mm->{WIBBLE}, 'C:\yarrow\wibble', 'prefixify Win32 paths' );
1N/A { package ExtUtils::MM_Unix; Config->import }
1N/A}