diff options
Diffstat (limited to 't/debug.t')
-rw-r--r-- | t/debug.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/debug.t b/t/debug.t new file mode 100644 index 0000000..e0b8f60 --- /dev/null +++ b/t/debug.t @@ -0,0 +1,27 @@ +#!/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" + ); +} + |