12345678910 use Test::Simple 'no_plan';use File::Path 'rmtree';rmtree './t/tmp';opendir(DIR,'./t') or die;map { unlink "./t/$_" } grep { /\.tif$|\.txt$/ } readdir DIR;closedir DIR;ok(1,'cleaned up');
use
Test::Simple
'no_plan'
;
File::Path
'rmtree'
rmtree
'./t/tmp'
opendir
(DIR,
'./t'
) or
die
map
{
unlink
"./t/$_"
}
grep
{ /\.tif$|\.txt$/ }
readdir
DIR;
closedir
ok(1,
'cleaned up'
);