Author: jkeenan Date: Sat Jul 19 16:25:30 2008 New Revision: 29617 Modified: trunk/lib/Parrot/Harness/Smoke.pm
Log: Apply patch submitted by Michael Peters in http://rt.perl.org/rt3/Ticket/Display.html?id=57090. Upon completion of 'make smolder_test', inform submitter of Smolder report number. Modified: trunk/lib/Parrot/Harness/Smoke.pm ============================================================================== --- trunk/lib/Parrot/Harness/Smoke.pm (original) +++ trunk/lib/Parrot/Harness/Smoke.pm Sat Jul 19 16:25:30 2008 @@ -75,10 +75,13 @@ ); if ($response->code == 302) { - print "Test report successfully sent to Smolder at\n" - . $SMOLDER_CONFIG{server} + my ($report_id) = $response->content =~ /Reported #(\d+) added/i; + my $report_url = "$SMOLDER_CONFIG{server}/app/public_projects/report_details/$report_id"; + my $project_url = $SMOLDER_CONFIG{server} . '/app/public_projects/smoke_reports/' - . $SMOLDER_CONFIG{project_id} . "\n"; + . $SMOLDER_CONFIG{project_id}; + print "Test report successfully sent to Smolder at\n$report_url" + . "\nYou can see other recent reports at\n$project_url.\n\n"; } else { die "Could not upload report to Smolder at $SMOLDER_CONFIG{server}"
