Update Module::Build to 0.35
[perl.git] / lib / Module / Build / t / debug.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
5 use MBTest tests => 3;
6
7 require_ok('Module::Build');
8 ensure_blib('Module::Build');
9
10 my $tmp = MBTest->tmpdir;
11
12 use DistGen;
13 my $dist = DistGen->new( dir => $tmp );
14 $dist->regen;
15 END{ $dist->remove }
16
17 $dist->chdir_in;
18
19 #########################
20
21 # Test debug output
22 {
23   my $output;
24   $output = stdout_of sub { $dist->run_build_pl };
25   $output = stdout_of sub { $dist->run_build('--debug') };
26   like($output, '/Starting ACTION_build.*?Starting ACTION_code.*?Finished ACTION_code.*?Finished ACTION_build/ms',
27     "found nested ACTION_* debug statements"
28   );
29 }
30
31 #########################
32
33 # cleanup