diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-30 14:47:10 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-30 14:47:10 +0000 |
| commit | 14107c4230ff0dd854afb28ea983f6afcb4bfac1 (patch) | |
| tree | 7897e16ec314e99ba47d8d488d5bdb3abace3b4b /t | |
| parent | 5f79b44fe88fd23f9e0a19ecd0acb8d38aa1c7e2 (diff) | |
| download | perl-14107c4230ff0dd854afb28ea983f6afcb4bfac1.tar.gz | |
Should be (^O eq 'MSWin32') not 'Win32'
Fail #12 seems real - chdir is in wrong dir.
p4raw-id: //depot/perlio@9471
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/cwd.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/lib/cwd.t b/t/lib/cwd.t index d2c3944b67..fa4750e23c 100644 --- a/t/lib/cwd.t +++ b/t/lib/cwd.t @@ -26,11 +26,13 @@ print +(!defined(&chdir) && # Must find an external pwd (or equivalent) command. my $pwd_cmd = - ($^O eq "Win32") ? "cd" : (grep { -x && -f } map { "$_/pwd" } + ($^O eq "MSWin32") ? "cd" : (grep { -x && -f } map { "$_/pwd" } split m/$Config{path_sep}/, $ENV{PATH})[0]; if (defined $pwd_cmd) { chomp(my $start = `$pwd_cmd`); + # Win32's cd returns native C:\ style + $start =~ s,\\,/,g if $^O eq 'MSWin32'; if ($?) { for (3..6) { print "ok $_ # Skip: '$pwd_cmd' failed\n"; @@ -68,12 +70,18 @@ print +($fastcwd =~ m|$want$| ? "" : "not "), "ok 9\n"; print +($fastgetcwd =~ m|$want$| ? "" : "not "), "ok 10\n"; # Cwd::chdir should also update $ENV{PWD} +print "#$ENV{PWD}\n"; print +($ENV{PWD} =~ m|$want$| ? "" : "not "), "ok 11\n"; Cwd::chdir ".."; rmdir "dir"; +print "#$ENV{PWD}\n"; Cwd::chdir ".."; rmdir "a"; +print "#$ENV{PWD}\n"; Cwd::chdir ".."; rmdir "to"; +print "#$ENV{PWD}\n"; Cwd::chdir ".."; rmdir "path"; +print "#$ENV{PWD}\n"; Cwd::chdir ".."; rmdir "pteerslt"; +print "#$ENV{PWD}\n"; print +($ENV{PWD} =~ m|\bt$| ? "" : "not "), "ok 12\n"; if ($Config{d_symlink}) { |