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