BEGIN {
$VERSION
=
'1.12'
;
}
sub
make_path {
my
$dir
= rel2abs( catdir( curdir(),
@_
) );
File::Path::mkpath(
$dir
)
unless
-d
$dir
;
Test::More::ok( -d
$dir
,
'Created '
.
$dir
);
return
$dir
;
}
sub
remake_path {
my
$dir
= rel2abs( catdir( curdir(),
@_
) );
File::Remove::remove( \1,
$dir
)
if
-d
$dir
;
File::Path::mkpath(
$dir
);
Test::More::ok( -d
$dir
,
'Created '
.
$dir
);
return
$dir
;
}
sub
paths {
my
$class
=
shift
;
my
$subpath
=
shift
||
''
;
my
$basedir
= rel2abs( catdir(
't'
,
"tmp$subpath"
) );
my
$output_dir
= remake_path( catdir(
$basedir
,
'output'
) );
my
$image_dir
= remake_path( catdir(
$basedir
,
'image'
) );
my
$download_dir
= make_path( catdir(
$basedir
,
'download'
) );
my
$build_dir
= remake_path( catdir(
$basedir
,
'build'
) );
return
(
output_dir
=>
$output_dir
,
image_dir
=>
$image_dir
,
download_dir
=>
$download_dir
,
build_dir
=>
$build_dir
,
);
}
sub
cpan {
if
(
$ENV
{TEST_PERLDIST_CPAN} ) {
return
URI->new(
$ENV
{TEST_PERLDIST_CPAN});
}
my
$path
= rel2abs( catdir(
't'
,
'data'
,
'cpan'
) );
Test::More::ok( -d
$path
,
'Found CPAN directory'
);
Test::More::ok( -d catdir(
$path
,
'authors'
,
'id'
),
'Found id subdirectory'
);
return
URI::file->new(
$path
.
'\\'
);
}
sub
new1 {
my
$class
=
shift
;
return
t::lib::Test1->new(
cpan
=>
$class
->cpan,
$class
->paths(
@_
),
);
}
sub
new2 {
return
t::lib::Test2->new(
shift
->paths(
@_
) );
}
sub
new3 {
return
t::lib::Test3->new(
shift
->paths(
@_
) );
}
sub
new4 {
return
t::lib::Test4->new(
shift
->paths(
@_
) );
}
sub
new5 {
return
t::lib::Test5->new(
shift
->paths(
@_
) );
}
1;