1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib/');
}
else {
unshift @INC, 't/lib/';
}
}
chdir 't';
my $Is_VMS = $^O eq 'VMS';
use File::Spec;
use Test::More tests => 4;
my $dir = File::Spec->catdir("some", "dir");
my @cd_args = ($dir, "command1", "command2");
{
package Test::MM_Win32;
use ExtUtils::MM_Win32;
@ISA = qw(ExtUtils::MM_Win32);
my $mm = bless {}, 'Test::MM_Win32';
{
local *make = sub { "nmake" };
my @dirs = (File::Spec->updir) x 2;
my $expected_updir = File::Spec->catdir(@dirs);
::is $mm->cd(@cd_args),
qq{cd $dir
command1
command2
cd $expected_updir};
}
{
local *make = sub { "dmake" };
::is $mm->cd(@cd_args),
qq{cd $dir && command1
cd $dir && command2};
}
}
{
is +ExtUtils::MM_Unix->cd(@cd_args),
qq{cd $dir && command1
cd $dir && command2};
}
SKIP: {
skip("VMS' cd requires vmspath which is only on VMS", 1) unless $Is_VMS;
use ExtUtils::MM_VMS;
is +ExtUtils::MM_VMS->cd(@cd_args),
q{startdir = F$Environment("Default")
Set Default [.some.dir]
command1
command2
Set Default 'startdir'};
}
|
