diff options
| author | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-02-01 09:45:17 -0800 |
|---|---|---|
| committer | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-02-01 09:45:17 -0800 |
| commit | a4ad6713e8c03560ef31671c19ff519d97609b90 (patch) | |
| tree | 551b282e67880ab476a75196a82ebfa08ac89d2f | |
| parent | Correct name of build pass script (diff) | |
| download | jitterbug-a4ad6713e8c03560ef31671c19ff519d97609b90.tar.gz | |
Add some debug info to help diagnose bugs
| -rw-r--r-- | lib/jitterbug/Builder.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/jitterbug/Builder.pm b/lib/jitterbug/Builder.pm index 4d439ec..4d54f9b 100644 --- a/lib/jitterbug/Builder.pm +++ b/lib/jitterbug/Builder.pm @@ -134,6 +134,9 @@ sub run_task { ($result) = $lines =~ /Result:\s(\w+)/; my ( $name, ) = basename($version); $name =~ s/\.txt//; + + debug("Result of test suite is $result"); + if ( !$result || ($result && $result !~ /PASS/ )) { # mail author of the commit $result = "FAIL"; @@ -157,6 +160,7 @@ sub run_task { system($failure_cmd); } } elsif ($conf->{'options'}{'email_on_pass'}) { + debug("Emailing PASS report"); $result = "PASS"; my $message = $desc->{'message'}; my $commiter = $desc->{'author'}{'email'}; |