[perl5.git] / t / lib / filepath.t

#!./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";
}
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
93430cb4	5	unshift @INC, '../lib';
1a3850a5 GA	6	}
1a3850a5 GA	7
1a3850a5	8	use File::Path;
037c8c09 CS	9	use strict;
	10
	11	my $count = 0;
	12	$^W = 1;
1a3850a5	13
037c8c09	14	print "1..4\n";
1a3850a5	15
037c8c09 CS	16	# first check for stupid permissions second for full, so we clean up
	17	# behind ourselves
	18	for my $perm (0111,0777) {
	19	mkpath("foo/bar");
	20	chmod $perm, "foo", "foo/bar";
1a3850a5	21
037c8c09 CS	22	print "not " unless -d "foo" && -d "foo/bar";
037c8c09 CS	23	print "ok ", ++$count, "\n";
1a3850a5	24
037c8c09 CS	25	rmtree("foo");
	26	print "not " if -e "foo";
	27	print "ok ", ++$count, "\n";
	28	}