use
strict;
use
warnings;
use
Test::More;
use
Path::Tiny;
my
$source
= find_dev(
'./'
)->child(
'corpus'
)->child(
'fake_dist_05'
);
my
$tempdir
= Path::Tiny->tempdir;
rcopy(
"$source"
,
"$tempdir"
);
BAIL_OUT(
"test setup failed to copy to tempdir"
)
if
not -e -f
$tempdir
->child(
"dist.ini"
);
my
$cwd
= cwd();
chdir
"$tempdir"
;
is(
system
(
"dzil"
,
"build"
), 0,
"dzil building a no-fallback dist a second time is ok"
);
chdir
$cwd
;
done_testing;