t/op/require_errors.t, t/op/stat.t: skip permissions test on AFS

Fixes #22068 Fixes #22067
Perl · Mar 18, 2024 · 657bbb9 · 657bbb9
1 parent d1971b5
commit 657bbb9
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/t/op/require_errors.t b/t/op/require_errors.t
@@ -177,10 +177,15 @@ SKIP: {
  push @INC, '../lib';
  require Cwd;
  require File::Spec::Functions;
+ require Config;
  if ($^O eq 'cygwin') {
  require Win32;
  }
 
+ my $cwd = Cwd::getcwd();
+ skip "AFS", 2 # github 22068
+ if $Config::Config{afs} eq "true" && $cwd && $cwd =~ /^\Q$Config::Config{afsroot}/;
+
  # Going to try to switch away from root. Might not work.
  # (stolen from t/op/stat.t)
  my $olduid = $>;
@@ -196,9 +201,9 @@ SKIP: {
 
  SKIP: {
  skip "Can't make the path absolute", 1
- if !defined(Cwd::getcwd());
+ if !defined $cwd;
 
- my $file = File::Spec::Functions::catfile(Cwd::getcwd(), $mod_file);
+ my $file = File::Spec::Functions::catfile($cwd, $mod_file);
  eval {
  require($file);
  };

diff --git a/t/op/stat.t b/t/op/stat.t
@@ -548,7 +548,10 @@ SKIP: {
 }
 
 # [perl #4253]
+SKIP:
 {
+ skip "AFS", 3 # github 22067
+ if $Config{afs} eq "true" && ($Curdir eq '.' || $Curdir =~ /^\Q$Config{afsroot}/);
  ok(open(F, ">", $tmpfile), 'can create temp file');
  close F;
  chmod 0077, $tmpfile;