Commit | Line | Data |
e0678a30 |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
b78fd716 |
4 | unshift @INC, 't/lib'; |
e0678a30 |
5 | } |
6 | |
7 | use strict; |
45bc4d3a |
8 | use Test::More; |
9 | |
10 | if( $^O eq 'VMS' ) { |
11 | plan skip_all => 'prefixify works differently on VMS'; |
12 | } |
13 | else { |
cb06ebec |
14 | plan tests => 4; |
45bc4d3a |
15 | } |
7292dc67 |
16 | use ExtUtils::MakeMaker::Config; |
e0678a30 |
17 | use File::Spec; |
18 | use ExtUtils::MM; |
19 | |
a7d1454b |
20 | my $Is_Dosish = $^O =~ /^(dos|MSWin32)$/; |
21 | |
e0678a30 |
22 | my $mm = bless {}, 'MM'; |
23 | |
24 | my $default = File::Spec->catdir(qw(this that)); |
479d2113 |
25 | |
e0678a30 |
26 | $mm->prefixify('installbin', 'wibble', 'something', $default); |
479d2113 |
27 | is( $mm->{INSTALLBIN}, $Config{installbin}, |
28 | 'prefixify w/defaults'); |
5c161494 |
29 | |
479d2113 |
30 | $mm->{ARGS}{PREFIX} = 'foo'; |
31 | $mm->prefixify('installbin', 'wibble', 'something', $default); |
e0678a30 |
32 | is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default), |
479d2113 |
33 | 'prefixify w/defaults and PREFIX'); |
45bc4d3a |
34 | |
cb06ebec |
35 | $mm->prefixify('installbin', '../wibble', 'something', $default); |
36 | is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default), |
37 | 'relative paths + PREFIX'); |
38 | |
a7d1454b |
39 | SKIP: { |
40 | skip "Test for DOSish prefixification", 1 unless $Is_Dosish; |
41 | |
7292dc67 |
42 | $Config{wibble} = 'C:\opt\perl\wibble'; |
45bc4d3a |
43 | $mm->prefixify('wibble', 'C:\opt\perl', 'C:\yarrow'); |
44 | |
45 | is( $mm->{WIBBLE}, 'C:\yarrow\wibble', 'prefixify Win32 paths' ); |
45bc4d3a |
46 | } |