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

Fixes Perl#22068 Fixes Perl#22067
tonycoz · Mar 12, 2024 · 4a3df8e · 4a3df8e · djzhh · Mar 12, 2024
1 parent 1d2f32c
commit 4a3df8e
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
+      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", 1
+      if $Config{afs} eq "true" && ($Curdir eq '.' || $Curdir =~ /^\Q$Config{afsroot}/);
     ok(open(F, ">", $tmpfile), 'can create temp file');
     close F;
     chmod 0077, $tmpfile;