The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Simple 'no_plan';
use strict;
use lib './lib';
use Cwd;
use vars qw($_part $cwd);
$cwd = cwd();

use File::Path;

system('rm -f ./t/*.tmp');

File::Path::rmtree('./t/trash');
File::Path::rmtree('./t/fileshere');

File::Path::rmtree('./t/backup');
ok 1;














sub ok_part {
   printf STDERR "\n\n===================\nPART %s %s\n==================\n\n",
      $_part++, "@_";
}