use
strict;
use
warnings;
use
Test::More;
# ABSTRACT: Basic test
my
$ini
= simple_ini( [
'GatherDir'
], [
'Test::Compile::PerFile'
], );
my
$good_sample
=
<<'EOF';
package Good;
# This is a good file
1
EOF
my
$tzil
= Builder->from_config(
{
dist_root
=>
'invalid'
},
{
add_files
=> {
path(
'source'
,
'dist.ini'
) =>
$ini
,
path(
'source'
,
'lib'
,
'Good.pm'
) =>
$good_sample
,
},
}
);
$tzil
->chrome->logger->set_debug(1);
$tzil
->build;
ok( path(
$tzil
->tempdir,
'build'
,
't'
,
'00-compile'
,
'lib_Good_pm.t'
)->
exists
,
"Generated file t/00-compile/lib_Good_pm.t"
);
done_testing;