use
constant
_eg
=> cwd()->child(
'examples/self-build'
)->stringify;
my
$tzil
= Builder->from_config( {
dist_root
=> _eg } );
$tzil
->chrome->logger->set_debug(1);
$tzil
->build;
pass(
"Built ok"
);
my
$plugin
;
ok(
$plugin
=
$tzil
->plugin_named(
"=Example::Self::Build"
),
"bootstrapped plugin loaded in dzil"
)
or
do
{
diag
"All plugins:"
;
for
my
$plugin
( @{
$tzil
->plugins } ) {
diag
"- $plugin => "
.
$plugin
->plugin_name;
}
};
$plugin
and (
is(
$plugin
->property,
"foo"
,
"bootstrapped plugins have working attributes"
)
or
do
{
diag
"All attributes"
;
diag explain {
map
{
$_
=>
''
.
$plugin
->{
$_
} }
keys
%{
$plugin
}
};
}
);
if
(
$ENV
{AUTOMATED_TESTING} ||
$ENV
{TRAVIS} ) {
diag
$_
for
@{
$tzil
->log_messages };
}
done_testing;