| #!/usr/bin/perl -w |
| |
| use strict; |
| use lib 't/lib'; |
| use MBTest tests => 1; |
| |
| 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" |
| ); |
| } |
| |