#!/usr/bin/perl -w
use
strict;
blib_load(
'Module::Build'
);
my
$tmp
= MBTest->tmpdir;
use
DistGen;
my
$dist
= DistGen->new(
dir
=>
$tmp
);
$dist
->regen;
$dist
->chdir_in;
#########################
# Test debug output
{
my
$output
;
$output
= stdout_of
sub
{
$dist
->run_build_pl };
$output
= stdout_of
sub
{
$dist
->run_build(
'--debug'
) };
like(
$output
,
'/Starting ACTION_build.*?Starting ACTION_code.*?Finished ACTION_code.*?Finished ACTION_build/ms'
,
"found nested ACTION_* debug statements"
);
}