my
$ini
= simple_ini( [
'GatherDir'
], [
'Test::Compile::PerFile'
], [
'MakeMaker'
], );
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);
my
$merged
= capture_merged {
$tzil
->test;
};
like(
$merged
,
qr/Result: PASS/
,
'Running tests gives pass'
);
note explain
$merged
;
note explain
$tzil
->log_messages;
note explain
$tzil
->distmeta;
done_testing;