On 9/9/11 11:57 AM, Will Coleda wrote:
So, if we were to have a smolder-like server that accepted TAP reports
in a manner virtually identical to the current smolder server, what
sorts of features would the orgs need/want?
* people submitting reports
This is pretty solid, except for needing an easy way to re-transmit
the last report. (Mostly client side work here, though.)
For this, please evaluate the kid51/resubmit_smolder branch. See diff
attached.
Thank you very much.
kid51
diff --git a/config/gen/makefiles/root.in b/config/gen/makefiles/root.in
index 494edaf..393b9c5 100644
--- a/config/gen/makefiles/root.in
+++ b/config/gen/makefiles/root.in
@@ -802,6 +802,7 @@ help :
@echo " smolder_test: Run the test suite and send report to the smolder server"
@echo " smolder_coretest: Run the minimal 'core functionality' suite and send report to the smolder server."
@echo " smoke: Alias for smolder_test."
+ @echo " resubmit_smolder: Resubmit a smoke test if transmission failed."
@echo ""
@echo "Benchmarks:"
@echo " mopsbench: Million operations"
@@ -2153,6 +2154,9 @@ smolder_coretest : corevm pbctestfiles
smoke : smolder_test
+resubmit_smolder :
+ $(PERL) $(DEV_TOOLS_DIR)/resubmit_smolder.pl
+
# "core tests" -- test basic functionality but not ancillaries
coretest : corevm pbctestfiles
$(PERL) t/harness $(EXTRA_TEST_ARGS) --core-tests
diff --git a/tools/dev/resubmit_smolder.pl b/tools/dev/resubmit_smolder.pl
new file mode 100755
index 0000000..7226956
--- /dev/null
+++ b/tools/dev/resubmit_smolder.pl
@@ -0,0 +1,40 @@
+#! perl
+# Copyright (C) 2011, Parrot Foundation.
+
+use strict;
+use warnings;
+use lib qw| lib |;
+
+use Parrot::Harness::Smoke qw(
+ collect_test_environment_data
+ send_archive_to_smolder
+);
+
+my $tarball = 'parrot_test_run.tar.gz';
+die "Could not locate $tarball" unless (-f $tarball);
+
+send_archive_to_smolder(collect_test_environment_data());
+
+=head1 NAME
+
+tools/dev/resubmit_smolder.pl
+
+=head1 SYNOPSIS
+
+ perl tools/dev/resubmit_smolder.pl
+
+=head1 DESCRIPTION
+
+This program is a simple wrapper around the Parrot::Harness::Smoke functions
+needed to resubmit a smoke test tarball to our Smolder server if the initial
+transmission of that tarball failed.
+
+The command should be run from the top-level of your checkout of Parrot. It
+will fail if no file named F<parrot_test_run.tar.gz> exists in that directory.
+
+=head1 AUTHOR
+
+James E Keenan (kid51)
+
+=cut
+
_______________________________________________
http://lists.parrot.org/mailman/listinfo/parrot-dev
