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

#!./perl

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

print "1..2\n";

use File::Path;

mkpath("foo/bar");

print "not " unless -d "foo" && -d "foo/bar";
print "ok 1\n";

rmtree("foo");

print "not " if -e "foo";
print "ok 2\n";
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	print "1..2\n";
	9
	10	use File::Path;
	11
	12	mkpath("foo/bar");
	13
	14	print "not " unless -d "foo" && -d "foo/bar";
	15	print "ok 1\n";
	16
	17	rmtree("foo");
	18
	19	print "not " if -e "foo";
	20	print "ok 2\n";