diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-03-06 07:51:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-06 21:24:45 +0000 |
| commit | 9980ade4b1ecfbcfff00b2f605a3d4029b09eabf (patch) | |
| tree | 1505528e4b11163dca205545b3721374a589025a | |
| parent | b9f13614400d2300b9be70f1589bc5e1a203e67b (diff) | |
| download | perl-9980ade4b1ecfbcfff00b2f605a3d4029b09eabf.tar.gz | |
test tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <404A2BDB.8030401@mac.com>
p4raw-id: //depot/perl@22452
| -rw-r--r-- | ext/Cwd/t/cwd.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 7256456e98..fbd8133cd9 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -91,7 +91,7 @@ SKIP: { my $Top_Test_Dir = '_ptrslt_'; my $Test_Dir = File::Spec->catdir($Top_Test_Dir, qw/_path_ _to_ _a_ _dir_/); -my $want = quotemeta File::Spec->catdir('t', $Test_Dir); +my $want = quotemeta File::Spec->rel2abs($Test_Dir); mkpath([$Test_Dir], 0, 0777); Cwd::chdir $Test_Dir; @@ -99,11 +99,11 @@ Cwd::chdir $Test_Dir; foreach my $func (qw(cwd getcwd fastcwd fastgetcwd)) { my $result = eval "$func()"; is $@, ''; - like( File::Spec->canonpath($result), qr|$want$|, "$func()" ); + like( File::Spec->canonpath($result), qr|$want$|i, "$func()" ); } # Cwd::chdir should also update $ENV{PWD} -like(File::Spec->canonpath($ENV{PWD}), qr|$want$|, 'Cwd::chdir() updates $ENV{PWD}'); +like(File::Spec->canonpath($ENV{PWD}), qr|$want$|i, 'Cwd::chdir() updates $ENV{PWD}'); my $updir = File::Spec->updir; Cwd::chdir $updir; print "#$ENV{PWD}\n"; |