More standard library test scripts
[perl.git] / t / lib / filepath.t
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";