--- /dev/null
+$answer{'ADMIN_EMAIL'} = 'admin@mozilla.bugs';
+$answer{'ADMIN_OK'} = 'Y';
+$answer{'ADMIN_PASSWORD'} = 'password';
+$answer{'ADMIN_REALNAME'} = 'QA Admin';
+$answer{'NO_PAUSE'} = 1;
+$answer{'bugzilla_version'} = '1';
+$answer{'create_htaccess'} = '';
+$answer{'cvsbin'} = '/usr/bin/cvs';
+$answer{'diffpath'} = '/usr/bin';
+$answer{'interdiffbin'} = '/usr/bin/interdiff';
+$answer{'urlbase'} = 'http://<<HOSTNAME>>:8000/bmo/';
#
version: 2
+
+test_docker: &test_docker
+ - image: mozillabteam/bmo-slim:20170803.1
+ user: app
+ environment:
+ PORT: 8000
+ BMO_db_user: bugs
+ BMO_db_host: 127.0.0.1
+ BMO_db_pass: bugs
+ BMO_db_name: bugs
+ BMO_memcached_servers: localhost:11211
+ BMO_memcached_namespace: "bugzilla:"
+ BZ_QA_CONF_FILE: /app/.circleci/selenium_test.conf
+ BZ_QA_ANSWERS_FILE: /app/.circleci/checksetup_answers.txt
+ - image: mozillabteam/bmo-mysql:5.6
+ environment:
+ MYSQL_DATABASE: bugs
+ MYSQL_USER: bugs
+ MYSQL_PASSWORD: bugs
+ MYSQL_ALLOW_EMPTY_PASSWORD: 1
+ - image: selenium/standalone-firefox:2.53.1
+ - image: memcached:latest
+
+default_setup: &default_setup
+ run:
+ command: |
+ mv /opt/bmo/local /app/local
+ perl -MSys::Hostname -i -pE 's/<<HOSTNAME>>/hostname()/ges' $BZ_QA_CONF_FILE
+ perl -MSys::Hostname -i -pE 's/<<HOSTNAME>>/hostname()/ges' $BZ_QA_ANSWERS_FILE
+ perl checksetup.pl --no-database --default-localconfig
+ mkdir artifacts
+
+run_qa_httpd: &run_qa_httpd
+ run:
+ command: |
+ /app/scripts/entrypoint.pl qa_httpd &> artifacts/httpd.log
+ background: true
+
jobs:
build:
working_directory: /app
docker:
- image: docker:17.06.1-ce
- environment:
- BMO_IMAGE_NAME: mozillabteam/bmo
steps:
- setup_remote_docker
- run:
command: apk update && apk add git openssh-client
- checkout
- run: |
- docker build -t $BMO_IMAGE_NAME:$CIRCLE_BRANCH .
+ docker build -t $DOCKERHUB_REPO:latest .
if [[ -n "$DOCKER_USER" && -n "$DOCKER_PASS" ]]; then
docker login -u "$DOCKER_USER" -p "$DOCKER_PASS"
- docker push $BMO_IMAGE_NAME:$CIRCLE_BRANCH
+ docker push $DOCKERHUB_REPO:latest
fi
+
+ test_sanity:
+ parallelism: 4
+ working_directory: /app
+ docker:
+ - image: mozillabteam/bmo-slim:20170803.1
+ user: app
+ steps:
+ - checkout
+ - *default_setup
+ - run:
+ name: run sanity tests
+ command: |
+ prove -qf $(circleci tests glob 't/*.t' | circleci tests split) | tee artifacts/$CIRCLE_JOB.txt
+ - store_artifacts:
+ path: /app/artifacts
+
+ test_webservices:
+ parallelism: 1
+ working_directory: /app
+ docker: *test_docker
+ steps:
+ - checkout
+ - *default_setup
+ - run: /app/scripts/entrypoint.pl load_test_data
+ - *run_qa_httpd
+ - run: /app/scripts/entrypoint.pl test_heartbeat
+ - run:
+ command: |
+ /app/scripts/entrypoint.pl test_webservices | tee artifacts/$CIRCLE_JOB.txt
+ - store_artifacts:
+ path: /app/artifacts
+
+ test_selenium:
+ parallelism: 1
+ working_directory: /app
+ docker: *test_docker
+ steps:
+ - checkout
+ - *default_setup
+ - run: /app/scripts/entrypoint.pl load_test_data
+ - *run_qa_httpd
+ - run:
+ command: |
+ /app/scripts/entrypoint.pl test_selenium | tee artifacts/$CIRCLE_JOB.txt
+ - store_artifacts:
+ path: /app/artifacts
+
+workflows:
+ version: 2
+ tests:
+ jobs:
+ - test_sanity
+ - test_webservices
+ - test_selenium
+ - build:
+ requires:
+ - test_sanity
+ - test_webservices
+ - test_selenium
--- /dev/null
+#!/usr/bin/env perl
+use 5.10.1;
+use strict;
+use warnings;
+
+my ($repo, $user, $pass) = check_env(qw(DOCKERHUB_REPO DOCKER_USER DOCKER_PASS));
+run("docker", "login", "-u", $user, "-p", $pass);
+
+my @docker_tags = ($ENV{CIRCLE_SHA1});
+
+if ($ENV{CIRCLE_TAG}) {
+ push @docker_tags, $ENV{CIRCLE_TAG};
+}
+elsif ($ENV{CIRCLE_BRANCH}) {
+ if ($ENV{CIRCLE_BRANCH} eq 'master') {
+ push @docker_tags, 'latest';
+ }
+ else {
+ push @docker_tags, $ENV{CIRCLE_BRANCH};
+ }
+}
+
+say "Pushing tags...";
+say " $_" for @docker_tags;
+foreach my $tag (@docker_tags) {
+ run("docker", "tag", "bmo", "$repo:$tag");
+ run("docker", "push", "$repo:$tag");
+}
+
+sub run {
+ my (@cmd) = @_;
+ my $rv = system(@cmd);
+ exit 1 if $rv != 0;
+}
+
+sub check_env {
+ my (@missing, @found);
+ foreach my $name (@_) {
+ push @missing, $name unless $ENV{$name};
+ push @found, $ENV{$name};
+ }
+
+ if (@missing) {
+ warn "Missing environmental variables: ", join(", ", @missing), "\n";
+ exit;
+ }
+ return @found;
+}
+
+
+
+
--- /dev/null
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+
+# To make this configuration file useful to you, you have to:
+# - set the path and URL to your Bugzilla installation.
+# - replace @mozilla.test by something more relevant to you,
+# also what comes before @mozilla.test if you want/need to.
+# - set passwords for each user accounts.
+
+{ 'browser' => '*firefox',
+ 'experimental_browser_launcher' => '*chrome',
+ 'host' => 'localhost',
+ 'port' => 4444,
+ 'browser_url' => 'http://<<HOSTNAME>>:8000',
+ 'attachment_file' => 'https://raw.githubusercontent.com/mozilla-bteam/bmo/master/qa/config/patch.diff',
+ 'bugzilla_installation' => 'bmo',
+ 'bugzilla_path' => '/app',
+ 'test_bug_1' => 1,
+ 'test_bug_2' => 2,
+ 'admin_user_login' => 'admin@mozilla.test',
+ 'admin_user_passwd' => 'password',
+ 'admin_user_username' => 'QA Admin',
+ 'admin_user_nick' => 'admin',
+ 'permanent_user' => 'permanent_user@mozilla.test',
+ 'permanent_user_login' => 'permanent_user@mozilla.test',
+ 'permanent_user_passwd' => 'password',
+ 'unprivileged_user_login' => 'no-privs@mozilla.test',
+ 'unprivileged_user_passwd' => 'password',
+ 'unprivileged_user_username' => 'no-privs',
+ 'unprivileged_user_nick' => 'no-privs',
+ 'unprivileged_user_login_truncated' => 'no-privs@mo',
+ 'QA_Selenium_TEST_user_login' => 'QA-Selenium-TEST@mozilla.test',
+ 'QA_Selenium_TEST_user_passwd' => 'password',
+ 'editbugs_user_login' => 'editbugs@mozilla.test',
+ 'editbugs_user_passwd' => 'password',
+ 'canconfirm_user_login' => 'canconfirm@mozilla.test',
+ 'canconfirm_user_passwd' => 'password',
+ 'tweakparams_user_login' => 'tweakparams@mozilla.test',
+ 'tweakparams_user_login_truncated' => 'tweakparams@mo',
+ 'tweakparams_user_passwd' => 'password',
+ 'disabled_user_login' => 'disabled@mozilla.test',
+ 'disabled_user_passwd' => 'password',
+ 'common_email' => '@mozilla.test',
+ 'test_extensions' => 1,
+};
.vagrant
+.git
MYMETA.*
+*.tar
Makefile
blib
local
+data
+localconfig
pm_to_blib
template_cache
-vagrant_support
\#*\#
*/\#*\#
*/*/\#*\#
contents => HT_DEFAULT_DENY },
'xt/.htaccess' => { perms => WS_SERVE,
contents => HT_DEFAULT_DENY },
+ '.circleci/.htaccess' => { perms => WS_SERVE,
+ contents => HT_DEFAULT_DENY },
+ 'httpd/.htaccess' => { perms => WS_SERVE,
+ contents => HT_DEFAULT_DENY },
"$datadir/.htaccess" => { perms => WS_SERVE,
contents => HT_DEFAULT_DENY },
"$error_reports/.htaccess" => { perms => WS_SERVE,
-FROM mozillabteam/bmo-base:slim
+FROM mozillabteam/bmo-slim:latest
MAINTAINER Dylan William Hardison <dylan@mozilla.com>
-RUN wget -q https://s3.amazonaws.com/moz-devservices-bmocartons/bmo/vendor.tar.gz && \
- tar -C /opt -zxf /vendor.tar.gz bmo/local/ bmo/LIBS.txt bmo/cpanfile bmo/cpanfile.snapshot && \
- rm /vendor.tar.gz && \
- mkdir /opt/bmo/httpd && \
- ln -s /usr/lib64/httpd/modules /opt/bmo/httpd/modules && \
- mkdir /opt/bmo/httpd/conf && \
- cp {/etc/httpd/conf,/opt/bmo/httpd}/magic && \
- awk '{print $1}' > LIBS.txt \
- | perl -nE 'chomp; unless (-f $_) { $missing++; say $_ } END { exit 1 if $missing }' && \
- useradd -u 10001 -U app -m
+ENV BUNDLE=https://s3.amazonaws.com/moz-devservices-bmocartons/bmo/vendor.tar.gz
+ENV PORT=8000
-COPY . /app
WORKDIR /app
-RUN ln -sv /opt/bmo/local /app/local && \
+COPY . .
+
+RUN mv /opt/bmo/local /app && \
chown -R app:app /app && \
- cp /app/docker_files/httpd.conf /opt/bmo/httpd/ && \
- mkdir /opt/bmo/bin && \
- cp /app/docker_files/init.pl /opt/bmo/bin/init.pl
+ perl -c /app/scripts/entrypoint.pl
USER app
-RUN perl checksetup.pl --no-database --default-localconfig && \
- prove t && \
- rm -rf /app/data && mkdir /app/data
-ENV PORT=8000
+RUN perl checksetup.pl --no-database --default-localconfig && \
+ rm -rf /app/data /app/localconfig && \
+ mkdir /app/data
EXPOSE $PORT
-ENTRYPOINT ["/opt/bmo/bin/init.pl"]
+ENTRYPOINT ["/app/scripts/entrypoint.pl"]
CMD ["httpd"]
+++ /dev/null
-#!/usr/bin/perl
-use strict;
-use warnings;
-use lib qw(/app /opt/bmo/local/lib/perl5);
-use Getopt::Long qw(:config gnu_getopt);
-use Data::Dumper;
-use Bugzilla::Install::Localconfig ();
-use Bugzilla::Install::Util qw(install_string);
-
-my %localconfig = (webservergroup => 'app');
-
-my %override = (
- 'inbound_proxies' => 1,
- 'shadowdb' => 1,
- 'shadowdbhost' => 1,
- 'shadowdbport' => 1,
- 'shadowdbsock' => 1
-);
-
-# clean env.
-foreach my $key (keys %ENV) {
- if ($key =~ /^BMO_(.+)$/) {
- my $name = $1;
- if ($override{$name}) {
- $localconfig{param_override}{$name} = delete $ENV{$key};
- }
- else {
- $localconfig{$name} = delete $ENV{$key};
- }
- }
-}
-
-write_localconfig(\%localconfig);
-sleep(10);
-system('perl', 'checksetup.pl', '--no-templates', '--no-permissions');
-
-my $cmd = shift @ARGV or die "usage: init.pl CMD";
-my $method = "run_$cmd";
-__PACKAGE__->$method();
-
-sub run_httpd {
- exec("/usr/sbin/httpd", "-DFOREGROUND", "-f", "/opt/bmo/httpd/httpd.conf");
-}
-
-sub run_shell {
- exec("/bin/bash", "-l");
-}
-
-sub write_localconfig {
- my ($localconfig) = @_;
- no warnings 'once';
-
- foreach my $var (Bugzilla::Install::Localconfig::LOCALCONFIG_VARS) {
- my $name = $var->{name};
- my $value = $localconfig->{$name};
- if (!defined $value) {
- $var->{default} = &{$var->{default}} if ref($var->{default}) eq 'CODE';
- $localconfig->{$name} = $var->{default};
- }
- }
-
- my $filename = "/app/localconfig";
-
- # Ensure output is sorted and deterministic
- local $Data::Dumper::Sortkeys = 1;
-
- # Re-write localconfig
- open my $fh, ">:utf8", $filename or die "$filename: $!";
- foreach my $var (Bugzilla::Install::Localconfig::LOCALCONFIG_VARS) {
- my $name = $var->{name};
- my $desc = install_string("localconfig_$name", { root => Bugzilla::Install::Localconfig::ROOT_USER });
- chomp($desc);
- # Make the description into a comment.
- $desc =~ s/^/# /mg;
- print $fh $desc, "\n",
- Data::Dumper->Dump([$localconfig->{$name}],
- ["*$name"]), "\n";
- }
- close $fh;
-}
ServerTokens Prod
-ServerRoot "/opt/bmo/httpd"
+ServerRoot "/etc/httpd"
PidFile /tmp/httpd.pid
Timeout 60
KeepAlive Off
TypesConfig /etc/mime.types
DefaultType text/plain
<IfModule mod_mime_magic.c>
- MIMEMagicFile magic
+ MIMEMagicFile conf/magic
</IfModule>
HostnameLookups Off
ErrorLog /dev/stderr
PerlRequire /app/mod_perl.pl
DirectoryIndex index.cgi
DocumentRoot "/app"
+<IfDefine HTTPD_IN_SUBDIR>
+Alias "/bmo" "/app"
+</IfDefine>
<Directory "/app">
Options -Indexes -FollowSymLinks
AllowOverride None
use strict;
use warnings;
+use File::Basename;
+use File::Spec;
+BEGIN {
+ require lib;
+ my $dir = File::Spec->rel2abs(
+ File::Spec->catdir(dirname(__FILE__), "..", "..")
+ );
+ lib->import($dir, File::Spec->catdir($dir, "lib"), File::Spec->catdir($dir, qw(local lib perl5)));
+}
+
use Cwd;
use File::Copy::Recursive qw(dircopy);
BEGIN {
print "reading the config file...\n";
- my $conf_file = "selenium_test.conf";
+ my $conf_file = $ENV{BZ_QA_CONF_FILE} // "selenium_test.conf";
if (@ARGV) {
$conf_file = shift @ARGV;
}
'host' => 'localhost',
'port' => 4444,
'browser_url' => 'http://localhost',
- 'attachment_file' => '/var/www/html/bmo/qa/config/patch.diff',
+ 'attachment_file' => 'https://raw.githubusercontent.com/mozilla-bteam/bmo/master/qa/config/patch.diff',
'bugzilla_installation' => 'bmo',
'bugzilla_path' => '/var/www/html/bmo',
'test_bug_1' => 1,
use Data::Dumper;
use Test::More;
use Test::WWW::Selenium;
+use MIME::Base64 qw(decode_base64);
+use Sys::Hostname qw(hostname);
+use Socket qw(inet_ntoa);
use WWW::Selenium::Util qw(server_is_running);
+use URI;
# Fixes wide character warnings
BEGIN {
add_product
open_advanced_search_page
set_parameters
+ screenshot_page
get_selenium
get_rpc_clients
# How long we wait for pages to load.
use constant WAIT_TIME => 60000;
-use constant CONF_FILE => "../config/selenium_test.conf";
+use constant CONF_FILE => $ENV{BZ_QA_CONF_FILE} // "../config/selenium_test.conf";
use constant CHROME_MODE => 1;
use constant NDASH => chr(0x2013);
my $conf_file = CONF_FILE;
my $config = do($conf_file)
or die "can't read configuration '$conf_file': $!$@";
+ my $uri = URI->new($config->{browser_url});
+ if (my $ip_packed = gethostbyname($uri->host)) {
+ my $ip = inet_ntoa($ip_packed);
+ $uri->host($ip);
+ $config->{browser_ip_url} = "$uri";
+ }
+ else {
+ die "unable to find ip for $config->{browser_url}\n";
+ }
+ return $config;
}
sub get_selenium {
sub go_to_home {
my ($sel, $config) = @_;
$sel->open_ok("/$config->{bugzilla_installation}/", undef, "Go to the home page");
+ $sel->set_speed(500);
$sel->title_is("Bugzilla Main Page");
}
+sub screenshot_page {
+ my ($sel, $filename) = @_;
+ open my $fh, '>:raw', $filename or die "unable to write $filename: $!";
+ binmode $fh;
+ print $fh decode_base64($sel->capture_entire_page_screenshot_to_string());
+ close $fh;
+}
+
# Go to the home/login page and log in.
sub log_in {
my ($sel, $config, $user) = @_;
$sel->click_ok("link=Add an attachment");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "patch, v1");
$sel->check_ok("ispatch");
$sel->is_text_present_ok("SeleniumAttachmentFlag1Test");
$sel->click_ok("//a[contains(text(),'Create\n Another Attachment to Bug $bug1_id')]");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "patch, v2");
$sel->check_ok("ispatch");
# Mark the previous attachment as obsolete.
$sel->click_ok("//a[contains(text(),'Create\n Another Attachment to Bug $bug1_id')]");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "patch, v3");
$sel->click_ok("list");
$sel->select_ok("contenttypeselection", "label=plain text (text/plain)");
$sel->click_ok("link=Add an attachment");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "patch, v4");
$sel->value_is("ispatch", "on");
$sel->type_ok("short_desc", "The selenium flag should be kept on product change");
$sel->type_ok("comment", "pom");
$sel->click_ok('//input[@value="Add an attachment"]');
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "small patch");
$sel->value_is("ispatch", "on");
ok(!$sel->is_element_present("flag_type-$aflagtype1_id"), "Flag type $aflagtype1_id not available in TestProduct");
$sel->type_ok("comment", "and some attachments too, like this one.");
$sel->check_ok("comment_is_private");
$sel->click_ok('//input[@value="Add an attachment"]');
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "private attachment, v1");
$sel->check_ok("ispatch");
$sel->click_ok("commit");
$sel->click_ok("link=Add an attachment");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "public attachment, v2");
$sel->check_ok("ispatch");
# The existing attachment name must be displayed, to mark it as obsolete.
$sel->click_ok("link=Add an attachment");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
$sel->title_is("Create New Attachment for Bug #$bug1_id");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->check_ok("ispatch");
# The user doesn't have editbugs privs.
$sel->is_text_present_ok("[no attachments can be made obsolete]");
my $bug_summary = "Security checks";
$sel->type_ok("short_desc", $bug_summary);
$sel->type_ok("comment", "This bug will be used to test security fixes.");
-$sel->type_ok("data", $config->{attachment_file});
+$sel->attach_file("data", $config->{attachment_file});
$sel->type_ok("description", "simple patch, v1");
my $bug1_id = create_bug($sel, $bug_summary);
# Alternate host for attachments; no cookie should be accessible.
set_parameters($sel, { "Attachments" => {"attachment_base" => {type => "text",
- value => "http://127.0.0.1/$urlbase/"}} });
+ value => "$config->{browser_ip_url}/$urlbase/"}} });
go_to_bug($sel, $bug1_id);
$sel->click_ok("link=simple patch, v1");
$sel->wait_for_page_to_load_ok(WAIT_TIME);
--- /dev/null
+#!/usr/bin/perl
+use 5.10.1;
+use strict;
+use warnings;
+use lib qw(/app /app/local/lib/perl5);
+use Bugzilla::Install::Localconfig ();
+use Bugzilla::Install::Util qw(install_string);
+use DBI;
+use Data::Dumper;
+use English qw($EUID);
+use File::Copy::Recursive qw(dircopy);
+use Getopt::Long qw(:config gnu_getopt);
+use LWP::Simple qw(get);
+use User::pwent;
+
+my $cmd = shift @ARGV;
+my $func = __PACKAGE__->can("cmd_$cmd") // sub { run($cmd, @ARGV) };
+
+fix_path();
+check_user();
+check_env() unless $cmd eq 'shell';
+write_localconfig( localconfig_from_env() );
+$func->(@ARGV);
+
+sub cmd_httpd {
+ check_data_dir();
+ wait_for_db();
+ run( '/usr/sbin/httpd', '-DFOREGROUND',
+ '-f', '/app/httpd/httpd.conf', @_ );
+}
+
+sub cmd_qa_httpd {
+ copy_qa_extension();
+ cmd_httpd('-DHTTPD_IN_SUBDIR', @_);
+}
+
+sub cmd_load_test_data {
+ wait_for_db();
+
+ die "BZ_QA_ANSWERS_FILE is not set" unless $ENV{BZ_QA_ANSWERS_FILE};
+ run( 'perl', 'checksetup.pl', '--no-template', $ENV{BZ_QA_ANSWERS_FILE} );
+ run( 'perl', 'scripts/generate_bmo_data.pl',
+ '--user-pref', 'ui_experiments=off' );
+ chdir '/app/qa/config';
+ say 'chdir(/app/qa/config)';
+ run( 'perl', 'generate_test_data.pl' );
+}
+
+sub cmd_test_heartbeat {
+ my $conf = require $ENV{BZ_QA_CONF_FILE};
+ wait_for_httpd($conf->{browser_url});
+ my $heartbeat = get("$conf->{browser_url}/__heartbeat__");
+ if ($heartbeat && $heartbeat =~ /Bugzilla OK/) {
+ exit 0;
+ }
+ else {
+ exit 1;
+ }
+}
+
+sub cmd_test_webservices {
+ my $conf = require $ENV{BZ_QA_CONF_FILE};
+
+ check_data_dir();
+ wait_for_db();
+ wait_for_httpd($conf->{browser_url});
+ copy_qa_extension();
+
+ chdir('/app/qa/t');
+ run( 'prove', '-qf', '-I/app', '-I/app/local/lib/perl5', glob('webservice_*.t') );
+}
+
+sub cmd_test_selenium {
+ my $conf = require $ENV{BZ_QA_CONF_FILE};
+
+ check_data_dir();
+ wait_for_db();
+ wait_for_httpd($conf->{browser_url});
+ copy_qa_extension();
+
+ chdir('/app/qa/t');
+ run( 'prove', '-qf', '-Ilib', '-I/app', '-I/app/local/lib/perl5', glob('test_*.t') );
+}
+
+
+sub cmd_shell { run( 'bash', '-l' ); }
+
+sub cmd_version { run( 'cat', '/app/version.json' ); }
+
+sub copy_qa_extension {
+ say "copying the QA extension...";
+ dircopy('/app/qa/extensions/QA', '/app/extensions/QA');
+}
+
+sub wait_for_db {
+ die "/app/localconfig is missing\n" unless -f "/app/localconfig";
+
+ my $c = Bugzilla::Install::Localconfig::read_localconfig();
+ for my $var (qw(db_name db_host db_user db_pass)) {
+ die "$var is not set!" unless $c->{$var};
+ }
+
+ my $dsn = "dbi:mysql:database=$c->{db_name};host=$c->{db_host}";
+ my $dbh;
+ foreach (1..12) {
+ say "checking database..." if $_ > 1;
+ $dbh = DBI->connect(
+ $dsn,
+ $c->{db_user},
+ $c->{db_pass},
+ { RaiseError => 0, PrintError => 0 }
+ );
+ last if $dbh;
+ say "database $dsn not available, waiting...";
+ sleep(10);
+ }
+ die "unable to connect to $dsn as $c->{db_user}\n" unless $dbh;
+}
+
+sub wait_for_httpd {
+ my ($url) = @_;
+ my $ok = 0;
+ foreach (1..12) {
+ say 'checking if httpd is up...' if $_ > 1;
+ my $resp = get("$url/__lbheartbeat__");
+ if ($resp && $resp =~ /^httpd OK$/) {
+ $ok = 1;
+ last;
+ }
+ say "httpd doesn't seem to be up at $url. waiting...";
+ sleep(10);
+ }
+ die "unable to connect to httpd at $url\n" unless $ok;
+}
+
+sub localconfig_from_env {
+ my %localconfig = ( webservergroup => 'app' );
+
+ my %override = (
+ 'inbound_proxies' => 1,
+ 'shadowdb' => 1,
+ 'shadowdbhost' => 1,
+ 'shadowdbport' => 1,
+ 'shadowdbsock' => 1
+ );
+
+ foreach my $key ( keys %ENV ) {
+ if ( $key =~ /^BMO_(.+)$/ ) {
+ my $name = $1;
+ if ( $override{$name} ) {
+ $localconfig{param_override}{$name} = delete $ENV{$key};
+ }
+ else {
+ $localconfig{$name} = delete $ENV{$key};
+ }
+ }
+ }
+
+ return \%localconfig;
+}
+
+sub write_localconfig {
+ my ($localconfig) = @_;
+ no warnings 'once';
+
+ my $filename = "/app/localconfig";
+
+ foreach my $var (Bugzilla::Install::Localconfig::LOCALCONFIG_VARS) {
+ my $name = $var->{name};
+ my $value = $localconfig->{$name};
+ if (!defined $value) {
+ $var->{default} = &{$var->{default}} if ref($var->{default}) eq 'CODE';
+ $localconfig->{$name} = $var->{default};
+ }
+ }
+
+ unlink($filename);
+
+ # Ensure output is sorted and deterministic
+ local $Data::Dumper::Sortkeys = 1;
+
+ # Re-write localconfig
+ open my $fh, ">:utf8", $filename or die "$filename: $!";
+ foreach my $var (Bugzilla::Install::Localconfig::LOCALCONFIG_VARS) {
+ my $name = $var->{name};
+ my $desc = install_string("localconfig_$name", { root => Bugzilla::Install::Localconfig::ROOT_USER });
+ chomp($desc);
+ # Make the description into a comment.
+ $desc =~ s/^/# /mg;
+ print $fh $desc, "\n",
+ Data::Dumper->Dump([$localconfig->{$name}],
+ ["*$name"]), "\n";
+ }
+ close $fh;
+}
+
+sub check_user {
+ die "Effective UID must be 10001!" unless $EUID == 10001;
+ my $user = getpwuid($EUID)->name;
+ die "Name of EUID must be app, not $user" unless $user eq 'app';
+}
+
+sub check_data_dir {
+ die "/app/data must be writable by user 'app' (id: $EUID)" unless -w "/app/data";
+ die "/app/data/params must exist" unless -f "/app/data/params";
+}
+
+sub check_env {
+ my @require_env = qw(
+ BMO_db_host
+ BMO_db_name
+ BMO_db_user
+ BMO_db_pass
+ BMO_memcached_namespace
+ BMO_memcached_servers
+ );
+ my @missing_env = grep { not exists $ENV{$_} } @require_env;
+ if (@missing_env) {
+ die "Missing required environmental variables: ", join(", ", @missing_env), "\n";
+ }
+}
+
+sub fix_path {
+ $ENV{PATH} = "/app/local/bin:$ENV{PATH}";
+}
+
+sub run {
+ my (@cmd) = @_;
+ say "+ @cmd";
+ my $rv = system(@cmd);
+ if ($rv != 0) {
+ exit 1;
+ }
+}
projects / thirdparty / bugzilla.git / commitdiff
