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