Update File::Path

(this is the same change as commit 8a37cc0e712cfd90de4a433c1b9be391b72daf86, but as applied)

1 files changed, 16 insertions, 8 deletions

diff --git a/t/lib/filepath.t b/t/lib/filepath.t
index c014f741d6..c3bf4a4479 100755
--- a/t/lib/filepath.t
+++ b/t/lib/filepath.t
@@ -5,16 +5,24 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..2\n";
-
 use File::Path;
+use strict;
+
+my $count = 0;
+$^W = 1;
 
-mkpath("foo/bar");
+print "1..4\n";
 
-print "not " unless -d "foo" && -d "foo/bar";
-print "ok 1\n";
+# first check for stupid permissions second for full, so we clean up
+# behind ourselves
+for my $perm (0111,0777) {
+    mkpath("foo/bar");
+    chmod $perm, "foo", "foo/bar";
 
-rmtree("foo");
+    print "not " unless -d "foo" && -d "foo/bar";
+    print "ok ", ++$count, "\n";
 
-print "not " if -e "foo";
-print "ok 2\n";
+    rmtree("foo");
+    print "not " if -e "foo";
+    print "ok ", ++$count, "\n";
+}