diff options
| author | Blair Zajac <blair@orcaware.com> | 2001-09-21 08:13:04 -0700 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-22 03:41:08 +0000 |
| commit | 89eee1ed72235a40548c0e433602e92957338617 (patch) | |
| tree | fcc9e22d98aa1c8e3af893fda7b0d825512bb355 /t/op/chdir.t | |
| parent | 5d96a5e070ce49e6f3f6ee787d81f3b944ebff4f (diff) | |
| download | perl-89eee1ed72235a40548c0e433602e92957338617.tar.gz | |
t/op/chdir.t won't pass on VMS
Message-Id: <3BABBB70.55FD41DC@orcaware.com>
p4raw-id: //depot/perl@12123
Diffstat (limited to 't/op/chdir.t')
| -rw-r--r-- | t/op/chdir.t | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index 118895da2b..735d51f76e 100644 --- a/t/op/chdir.t +++ b/t/op/chdir.t @@ -11,7 +11,7 @@ BEGIN { use Cwd qw(abs_path cwd); use File::Spec::Functions qw(:DEFAULT splitdir); -use Test::More tests => 24; +use Test::More tests => 25; my $cwd = abs_path; @@ -35,24 +35,25 @@ foreach my $key (@magic_envs) { delete @ENV{@magic_envs}; local $ENV{$key} = catdir $cwd, 'op'; + # Make sure $ENV{'SYS$LOGIN'} is only honored on VMS. if( $key eq 'SYS$LOGIN' && $^O ne 'VMS' ) { - # Make sure $ENV{'SYS$LOGIN'} is only honored on VMS. - ok( !chdir(), "chdir() w/\$ENV{$key} set" ); - is( abs_path, $cwd, ' abs_path() agrees' ); + ok( !chdir(), "chdir() on $^O ignores only \$ENV{$key} set" ); + is( abs_path, $cwd, ' abs_path() did not change' ); + ok( 1, " no need to chdir back on $^O" ); } else { - ok( chdir(), "chdir() w/\$ENV{$key} set" ); + ok( chdir(), "chdir() w/ only \$ENV{$key} set" ); is( abs_path, $ENV{$key}, ' abs_path() agrees' ); chdir($cwd); is( abs_path, $cwd, ' and back again' ); } # Bug had chdir(undef) being the same as chdir() - ok( !chdir(undef), "chdir(undef) w/\$ENV{$key} set" ); + ok( !chdir(undef), "chdir(undef) w/ only \$ENV{$key} set" ); is( abs_path, $cwd, ' abs_path() agrees' ); # Ditto chdir(''). - ok( !chdir(''), "chdir('') w/\$ENV{$key} set" ); + ok( !chdir(''), "chdir('') w/ only \$ENV{$key} set" ); is( abs_path, $cwd, ' abs_path() agrees' ); } |