From dff4d760f68c88c3cffa8af063a154c6b3f9e37f Mon Sep 17 00:00:00 2001 From: Andrew Moore Date: Fri, 15 Aug 2008 08:41:28 -0500 Subject: [PATCH] Bug 2524: Adding script to submit test reports to smolder server This patch adds a target in the t/Makefile and a script in t/smolder_smoke_signal to submit the results of test runs to a smolder server. It will allow users to submit their own test results to a central location by running "make submit" from the t/ directory. Smolder is a web-based application that aggregates and presents the output of tests. We have an instance running at: http://arwen.metavore.com:8000/app/public_projects/smoke_reports/1 More information about using smolder for Koha is available at: http://wiki.koha.org/doku.php?id=en:development:smoke_reports I intend to have the test suite run each night automatically and the results sent to the smolder server. This will help us keep track of the current state of the the code and possibly catch bugs introduced by changes. I encourge others to submit their own test results if they want, especially if they are on an unusual platform or are with a non-standard configuration. Signed-off-by: Galen Charlton --- t/Makefile | 22 ++++ t/smolder_smoke_signal | 279 +++++++++++++++++++++++++++++++++++++++++ 2 files changed, 301 insertions(+) create mode 100755 t/smolder_smoke_signal diff --git a/t/Makefile b/t/Makefile index b135359db2..a4ff5ec0e7 100644 --- a/t/Makefile +++ b/t/Makefile @@ -7,6 +7,7 @@ MKDIR = /bin/mkdir CP = cp SED = /bin/sed CHMOD = chmod +RM = /bin/rm # some of these are pretty questionable. PERL = /usr/bin/perl @@ -32,6 +33,11 @@ SCRIPTS = koha-zebra-ctl.sh koha-pazpar2-ctl.sh koha-zebraqueue-ctl.sh zebraqueu SRC_SCRIPT_DIR = ../misc/bin TEST_SCRIPT_DIR = run/bin +SMOLDER_SERVER = 72.232.235.42:8000 +SMOLDER_REPORT_FILENAME = kohatests.txt +SMOLDER_REPORT_TARBALL = kohatests.tar.gz +SMOLDER_PROJECT_NAME = Koha +SMOLDER_SMOKE_SIGNAL = ./smolder_smoke_signal all :: $(NOECHO) $(ECHO) RUNNING THIS MAKEFILE MAY CAUSE LOSS OF DATA @@ -87,3 +93,19 @@ test_run_dirs :: $(MKPATH) run/var/log/zebradb $(MKPATH) run/bin +submit_report :: $(SMOLDER_REPORT_TARBALL) + $(SMOLDER_SMOKE_SIGNAL) --server $(SMOLDER_SERVER) --file $(SMOLDER_REPORT_TARBALL) --project $(SMOLDER_PROJECT_NAME) --anonymous +# $(RM) $(SMOLDER_REPORT_TARBALL) + +submit :: submit_report + +$(SMOLDER_REPORT_TARBALL) :: $(SMOLDER_REPORT_FILENAME) + tar zcvf $(SMOLDER_REPORT_TARBALL) kohatests.txt + $(RM) $(SMOLDER_REPORT_FILENAME) + +$(SMOLDER_REPORT_FILENAME) :: report + +report :: config_file $(ZEBRA_CONF_FILES) $(SCRIPTS) + KOHA_CONF=$(TEST_CONF_FILE) PERL5LIB=$(PERL5LIB) TEST_CLASS=$(TEST_CLASS) RUN_EXPENSIVE_TESTS=$(RUN_EXPENSIVE_TESTS) \ + $(PROVE) $(PROVE_FLAGS) $(TEST_FILES) > $(SMOLDER_REPORT_FILENAME) + diff --git a/t/smolder_smoke_signal b/t/smolder_smoke_signal new file mode 100755 index 0000000000..881312caa0 --- /dev/null +++ b/t/smolder_smoke_signal @@ -0,0 +1,279 @@ +#!/usr/bin/perl + +# This file was copied from the smolder distribution and modified. +# the copyright and license from the original distribution are +# included below. +# +# Copyright (c) 2007, Michael Peters +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# +# * Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# +# * Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# * Neither the name of the Smolder nor the names of its +# contributors may be used to endorse or promote products derived from +# this software without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED +# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use File::Spec::Functions qw(catdir catfile splitdir); +use File::Basename; + +BEGIN { + eval { require WWW::Mechanize }; + if( $@ ) { + warn "\nCannot load WWW::Mechanize. " . + "\nPlease install it before using smolder_smoke_signal.\n"; + exit(1); + } +} + +=pod + +=head1 NAME + +smolder_smoke_signal + +=head1 SYNOPSIS + + ./bin/smolder_smoke_signal --server smolder.foo.com \ + --username myself --password s3cr3t --file test_report.xml \ + --project MyProject + +=head1 DESCRIPTION + +Script used to upload a Smoke test report to a running smolder server. +This is extremely useful for scripted/automatic test runs but also +helpful when using a CLI makes things faster. + +=head1 OPTIONS + +=head2 REQUIRED + +=over + +=item server + +This is the hostname (and port if not 80) of the running Smolder server. + +=item project + +The name of the Smolder project to use for the upload. + +=item file + +The name of the file to upload. Please see F +for more details about the format that Smolder expects this file to +take. + +=back + +=head2 OPTIONAL + +=over + +=item username + +The name of the Smolder user to use for the upload. + +=item password + +The password for the Smolder user given by C. + +=item anonymous + +This option takes no arguments and indicates that the report should be +submitted anonymously to a public project. Either the anonymous option +is required or C and C are required. + +=item architecture + +The architecture for the given smoke test run. If none is given +it will use the default architecture for the project. + +=item platform + +The platform for the given smoke test run. If none is given +it will use the default platform for the project. + +=item tags + +A comma separated list of tags that are given for this smoke report run. + + ./bin/smolder_smoke_signal --server smolder.foo.com \ + --username myself --password s3cr3t --file test_report.xml \ + --project MyProject --tags "Foo, My Bar" + +=item comments + +Any comments that you want to associate with the smoke test run. + +=item verbose + +Print verbose output of our actions to STDOUT. + +=cut + +# default options +our ( $server, $project, $user, $pw, $anonymous, $file, $arch, $platform, $tags, $comments, $verbose ); +my ( $help, $man ); + +GetOptions( + 'server=s' => \$server, + 'project=s' => \$project, + 'username=s' => \$user, + 'password=s' => \$pw, + 'anonymous' => \$anonymous, + 'file=s' => \$file, + 'architecture=s' => \$arch, + 'platform=s' => \$platform, + 'tags=s' => \$tags, + 'comments=s' => \$comments, + 'verbose!' => \$verbose, + 'help' => \$help, + 'man' => \$man, + ) + || pod2usage(); + +if ($help) { + pod2usage( + -exitval => 0, + -verbose => 1, + ); +} elsif ($man) { + pod2usage( + -exitval => 0, + -verbose => 2, + ); +} + +# make sure all the required fields are there +_missing_required('server') unless $server; +_missing_required('project') unless $project; +_missing_required('username') unless $user or $anonymous; +_missing_required('password') unless $pw or $anonymous; +_missing_required('file') unless $file; + +# make sure our file is there and is of the right type +if ( -r $file ) { + unless( $file =~ /\.tar(\.gz)?$/ ) { + warn "File '$file' is not of the correct type!\n"; + exit(1); + } +} else { + warn "File '$file' does not exist, or is not readable!\n"; + exit(1); +} + +# try and reach the smolder server +print "Trying to reach Smolder server at $server.\n" if ($verbose); +my $mech = WWW::Mechanize->new(); +my $base_url = "http://$server/app"; +$mech->get($base_url); +unless ( $mech->status eq '200' ) { + warn "Could not reach $server successfully. Received status " . $mech->status . "\n"; + exit(1); +} + +my $content; # holds the content of the current page from $mech +if ( $user ) { +# now login + print "Trying to login with username '$user'.\n" if ($verbose); + $mech->get( $base_url . '/public_auth/login' ); + my $form = $mech->form_name('login'); + if ( $mech->status ne '200' || !$form ) { + warn "Could not reach Smolder login form. Are you sure $server is a Smolder server?\n"; + exit(1); + } + $mech->set_fields( + username => $user, + password => $pw, + ); + $mech->submit(); + $content = $mech->content; + if ( $mech->status ne '200' || $content !~ /Welcome \Q$user\E/ ) { + warn "Could not login with username '$user' and password '$pw'!\n"; + exit(1); + } +} + +# now go to this project's page +printf( "Retrieving project listing for %s\n", $user ? "user '$user'" : 'anonymous' ) if ($verbose); +$mech->get( $base_url . _url_base() ); +$content = $mech->content; +$content =~ />\Q$project\E/; +my $project_id = $1; +if ( $mech->status ne '200' || !$project_id ) { + warn + "Could not get your project listing, or you are not a member of the '$project' project!\n"; + exit(1); +} + +# now go to the add-smoke-report page for this project +print "Adding smoke report to project '$project' (id: #$project_id).\n" if ($verbose); +$mech->get( $base_url . _url_base() . "/add_report/$project_id" ); +$content = $mech->content; +if ( $mech->status ne '200' || $content !~ /New Smoke Report/ ) { + warn "Could not reach the Add Smoke Report form!\n"; + exit(1); +} +$mech->form_name('add_report'); +my %fields = (report_file => $file); +$fields{platform} = $platform if ($platform); +$fields{architecture} = $arch if ($arch); +$fields{tags} = $tags if ($tags); +$fields{comments} = $comments if ($comments); +$mech->set_fields(%fields); +$mech->submit(); + +$content = $mech->content; +if ( $mech->status ne '200' || $content !~ /Recent Smoke Reports/ ) { + warn "Could not upload smoke report with the given information!\n"; + exit(1); +} +$content =~ /#(\d+) Added/; +my $report_id = $1; + +print "\nReport successfully uploaded as #$report_id.\n"; + +########################################################## +# helper methods +########################################################## +sub _missing_required { + my $field = shift; + warn "Missing required field '$field'!\n"; + pod2usage(); +} + +# returns the piece of the URL that points to the appropriate part of +# the URL structure based on whether this is an anonymous submission +sub _url_base { + if ( $anonymous ) { + return '/public_projects'; + } else { + return '/developer_projects'; + } +} -- 2.39.5