Fix a2p manpage (from Debian)

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

diff --git a/lib/ExtUtils/t/prefixify.t b/lib/ExtUtils/t/prefixify.t
index 3e22606..6faa943 100644 (file)
--- a/lib/ExtUtils/t/prefixify.t
+++ b/lib/ExtUtils/t/prefixify.t
@@ -11,14 +11,39 @@ BEGIN {
 }
 
 use strict;
-use Test::More tests => 1;
+use Test::More;
+
+if( $^O eq 'VMS' ) {
+    plan skip_all => 'prefixify works differently on VMS';
+}
+else {
+    plan tests => 3;
+}
+use 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');
+                                            'prefixify w/defaults and PREFIX');
+
+SKIP: {
+    skip "Test for DOSish prefixification", 1 unless $Is_Dosish;
+
+    undef *ExtUtils::MM_Unix::Config;
+    $ExtUtils::MM_Unix::Config{wibble} = 'C:\opt\perl\wibble';
+    $mm->prefixify('wibble', 'C:\opt\perl', 'C:\yarrow');
+
+    is( $mm->{WIBBLE}, 'C:\yarrow\wibble',  'prefixify Win32 paths' );
+}