diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-10 07:02:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-10 07:02:44 +0000 |
| commit | 12b7537a6767323a775ac8297e56a1b366c3cbb3 (patch) | |
| tree | c8300730dbba348790a70bdc8a09187f159a18e5 /ext | |
| parent | 1c26fec0b7615528852ca2109221523411c67366 (diff) | |
| download | perl-12b7537a6767323a775ac8297e56a1b366c3cbb3.tar.gz | |
With AFS the cwds have little chance of agreeing.
p4raw-id: //depot/perl@19180
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 3dc624c503..2a8df244f9 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -60,12 +60,14 @@ SKIP: { # DCL SHOW DEFAULT has leading spaces $start =~ s/^\s+// if $IsVMS; SKIP: { - skip "'$pwd_cmd' failed, nothing to test against", 4 if $?; + skip("'$pwd_cmd' failed, nothing to test against", 4) if $?; + skip("/afs seen, paths unlikely to match", 4) if $start =~ m|/afs/|; my $cwd = cwd; my $getcwd = getcwd; my $fastcwd = fastcwd; my $fastgetcwd = fastgetcwd; + is($cwd, $start, 'cwd()'); is($getcwd, $start, 'getcwd()'); is($fastcwd, $start, 'fastcwd()'); |