xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/prefixify.t (revision 0:68f95e015346) 
1#!/usr/bin/perl -w
2
3BEGIN {
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
13use strict;
14use Test::More;
15
16if( $^O eq 'VMS' ) {
17    plan skip_all => 'prefixify works differently on VMS';
18}
19else {
20    plan tests => 3;
21}
22use Config;
23use File::Spec;
24use ExtUtils::MM;
25
26my $mm = bless {}, 'MM';
27
28my $default = File::Spec->catdir(qw(this that));
29
30$mm->prefixify('installbin', 'wibble', 'something', $default);
31is( $mm->{INSTALLBIN}, $Config{installbin},
32                                            'prefixify w/defaults');
33
34$mm->{ARGS}{PREFIX} = 'foo';
35$mm->prefixify('installbin', 'wibble', 'something', $default);
36is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
37                                            'prefixify w/defaults and PREFIX');
38
39{
40    undef *ExtUtils::MM_Unix::Config;
41    $ExtUtils::MM_Unix::Config{wibble} = 'C:\opt\perl\wibble';
42    $mm->prefixify('wibble', 'C:\opt\perl', 'C:\yarrow');
43
44    is( $mm->{WIBBLE}, 'C:\yarrow\wibble',  'prefixify Win32 paths' );
45    { package ExtUtils::MM_Unix;  Config->import }
46}
47