use File::Path;
use Test::More qw|no_plan|;
my $tmp = "/Users/jimk/tmp";
chdir $tmp or die;
my $partial = "alpha/beta/gamma";
mkpath($partial);
ok(-d "$tmp/$partial", "$tmp/$partial created");
rmtree($partial);
ok(! -d "$tmp/$partial", "$tmp/$partial deleted");

##</code><code>##

           mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
           rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

##</code><code>##

           mkpath(['foo/bar/baz', 'blurfl/quux'], 1, 0711);
           rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);