Merge pull request #45 from jkeenan/cleanup-t-path-root

rt.cpan.org # 120645: Clean up directories created during running of t/Path_root.t.

t/Path_root.t

@@ -9,7 +9,7 @@ use File::Spec::Functions;
 
 my $prereq = prereq();
 plan skip_all  => $prereq if defined $prereq;
-plan tests     => 9;
+plan tests     => 11;
 
 my $pwent = max_u();
 my $grent = max_g();
@@ -82,6 +82,15 @@ is($dir_gid, $max_gid, "... owned by group $max_gid");
   );
 }
 
+{
+    # cleanup
+    my $x;
+    my $opts = { error => \$x };
+    remove_tree($tmp_base, $opts);
+    ok(! -d $tmp_base, "directory '$tmp_base' removed, as expected");
+    is(scalar(@{$x}), 0, "no error messages using remove_tree() with \$opts");
+}
+
 sub max_u {
   # find the highest uid ('nobody' or similar)
   my $max_uid   = 0;