James Keenan (via RT) wrote:
I'm beginning to enjoy 'make smolder_test'. Here is a wishlist item
for its ongoing development.
[snip]
I would prefer make smolder_test instead (or additionally) printed
out something like this:
http://smolder.plusthree.com/app/public_projects/report_details/2310
Take this patch for spin and see if it's more to your liking.
--
Michael Peters
Plus Three, LP
Index: lib/Parrot/Harness/Smoke.pm
===================================================================
--- lib/Parrot/Harness/Smoke.pm (revision 29611)
+++ lib/Parrot/Harness/Smoke.pm (working copy)
@@ -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}"
