Debug with maximum verbosity to STDOUT when running tests.

This commit is contained in:
Adam Spiers 2011-11-17 18:46:32 +00:00
parent 497f272c12
commit c26236d93c
2 changed files with 5 additions and 2 deletions

View file

@ -263,7 +263,10 @@ sub process_options {
#============================================================================= #=============================================================================
sub debug { sub debug {
my ($level, $msg) = @_; my ($level, $msg) = @_;
if ($Option{'verbose'} >= $level) { if ($Option{'testmode'}) {
print "# $msg\n" if $ENV{TEST_VERBOSE};
}
elsif ($Option{'verbose'} >= $level) {
warn "$msg\n"; warn "$msg\n";
} }
} }

View file

@ -21,7 +21,7 @@ sub reset_state {
@::Conflicts = (); @::Conflicts = ();
%::Link_Task_For = (); %::Link_Task_For = ();
%::Dir_Task_For = (); %::Dir_Task_For = ();
%::Option = (); %::Option = ( testmode => 1 );
return; return;
} }