summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/lib/filepath.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/lib/filepath.t')
-rwxr-xr-xcontrib/perl5/t/lib/filepath.t28
1 files changed, 0 insertions, 28 deletions
diff --git a/contrib/perl5/t/lib/filepath.t b/contrib/perl5/t/lib/filepath.t
deleted file mode 100755
index 42e0ae9..0000000
--- a/contrib/perl5/t/lib/filepath.t
+++ /dev/null
@@ -1,28 +0,0 @@
-#!./perl
-
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
-}
-
-use File::Path;
-use strict;
-
-my $count = 0;
-use warnings;
-
-print "1..4\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";
-
- print "not " unless -d "foo" && -d "foo/bar";
- print "ok ", ++$count, "\n";
-
- rmtree("foo");
- print "not " if -e "foo";
- print "ok ", ++$count, "\n";
-}
OpenPOWER on IntegriCloud