t/lib/filepath.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!./perl

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
}

use File::Path;
use strict;

my $count = 0;
$^W = 1;

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";
}