1 files changed, 46 insertions, 0 deletions
diff --git a/ext/ExtUtils-MakeMaker/t/prefixify.t b/ext/ExtUtils-MakeMaker/t/prefixify.t
new file mode 100644
index 0000000000..b9e253a5f4
--- /dev/null
+++ b/ext/ExtUtils-MakeMaker/t/prefixify.t
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+
+BEGIN {
+    unshift @INC, 't/lib';
+}
+
+use strict;
+use Test::More;
+
+if( $^O eq 'VMS' ) {
+    plan skip_all => 'prefixify works differently on VMS';
+}
+else {
+    plan tests => 4;
+}
+use ExtUtils::MakeMaker::Config;
+use File::Spec;
+use ExtUtils::MM;
+
+my $Is_Dosish = $^O =~ /^(dos|MSWin32)$/;
+
+my $mm = bless {}, 'MM';
+
+my $default = File::Spec->catdir(qw(this that));
+
+$mm->prefixify('installbin', 'wibble', 'something', $default);
+is( $mm->{INSTALLBIN}, $Config{installbin},
+                                            'prefixify w/defaults');
+
+$mm->{ARGS}{PREFIX} = 'foo';
+$mm->prefixify('installbin', 'wibble', 'something', $default);
+is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
+                                            'prefixify w/defaults and PREFIX');
+
+$mm->prefixify('installbin', '../wibble', 'something', $default);
+is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
+                                            'relative paths + PREFIX');
+
+SKIP: {
+    skip "Test for DOSish prefixification", 1 unless $Is_Dosish;
+
+    $Config{wibble} = 'C:\opt\perl\wibble';
+    $mm->prefixify('wibble', 'C:\opt\perl', 'C:\yarrow');
+
+    is( $mm->{WIBBLE}, 'C:\yarrow\wibble',  'prefixify Win32 paths' );
+}