1
0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2024-12-14 10:13:05 +02:00
pgbackrest/test/lib/pgBackRestTest/Common/CiTest.pm

137 lines
4.7 KiB
Perl
Raw Normal View History

####################################################################################################################################
# CiTest.pm - Create Travis configuration file for continuous integration testing
####################################################################################################################################
package pgBackRestTest::Common::CiTest;
####################################################################################################################################
# Perl includes
####################################################################################################################################
use strict;
use warnings FATAL => qw(all);
use Carp qw(confess);
use English '-no_match_vars';
use Cwd qw(abs_path);
use Exporter qw(import);
our @EXPORT = qw();
use File::Basename qw(dirname);
use POSIX qw(ceil);
use Time::HiRes qw(gettimeofday);
use pgBackRest::DbVersion;
use pgBackRest::Common::Exception;
use pgBackRest::Common::Log;
use pgBackRest::Common::String;
use pgBackRest::Version;
use pgBackRestTest::Common::ContainerTest;
use pgBackRestTest::Common::DefineTest;
use pgBackRestTest::Common::ExecuteTest;
use pgBackRestTest::Common::ListTest;
use pgBackRestTest::Common::VmTest;
####################################################################################################################################
# new
####################################################################################################################################
sub new
{
my $class = shift; # Class name
# Create the class hash
my $self = {};
bless $self, $class;
# Assign function parameters, defaults, and log debug info
(
my $strOperation,
$self->{oStorage},
) =
logDebugParam
(
__PACKAGE__ . '->new', \@_,
{name => 'oStorage'},
);
# Return from function and log return values if any
return logDebugReturn
(
$strOperation,
{name => 'self', value => $self, trace => true}
);
}
####################################################################################################################################
# process
####################################################################################################################################
sub process
{
my $self = shift;
# Assign function parameters, defaults, and log debug info
(my $strOperation) = logDebugParam (__PACKAGE__ . '->process', \@_,);
# Configure environment
my $strConfig =
"branches:\n" .
" only:\n" .
" - integration\n" .
" - /-ci\$/\n" .
"\n" .
"dist: trusty\n" .
"sudo: required\n" .
"\n" .
"language: c\n" .
"\n" .
"services:\n" .
" - docker\n" .
"\n" .
"env:\n";
# Iterate each OS
foreach my $strVm (VM_LIST)
{
2017-06-25 00:04:02 +02:00
$strConfig .= " - PGB_CI=\"--vm=${strVm} test\"\n";
}
2017-06-25 00:04:02 +02:00
$strConfig .= " - PGB_CI=\"doc\"\n";
# Configure install and script
$strConfig .=
"\n" .
"before_install:\n" .
" - sudo apt-get -qq update && sudo apt-get install libxml-checker-perl libdbd-pg-perl libperl-critic-perl" .
" libtemplate-perl libpod-coverage-perl libtest-differences-perl libhtml-parser-perl lintian debhelper txt2man" .
" devscripts libjson-perl libio-socket-ssl-perl libxml-libxml-perl libyaml-libyaml-perl python-pip lcov\n" .
" - |\n" .
2017-06-12 16:52:32 +02:00
" # Install & Configure AWS CLI\n" .
" pip install --upgrade --user awscli\n" .
" aws configure set region us-east-1\n" .
" aws configure set aws_access_key_id accessKey1\n" .
" aws configure set aws_secret_access_key verySecretKey1\n" .
" aws help --version\n" .
" aws configure list\n" .
" - |\n" .
" # Install Devel::Cover\n" .
" sudo dpkg -i \${TRAVIS_BUILD_DIR?}/test/package/u14-" . packageDevelCover(VM_ARCH_AMD64) . "\n" .
' ' . LIB_COVER_EXE . " -v\n" .
"\n" .
"install:\n" .
" - |\n" .
" # User Configuration\n" .
" sudo adduser --ingroup=\${USER?} --disabled-password --gecos \"\" " . BACKREST_USER . "\n" .
" umask 0022\n" .
" cd ~ && pwd && whoami && umask && groups\n" .
" mv \${TRAVIS_BUILD_DIR?} " . BACKREST_EXE . "\n" .
" rm -rf \${TRAVIS_BUILD_DIR?}\n" .
"\n" .
"script:\n" .
2017-06-25 00:04:02 +02:00
" - " . BACKREST_EXE . "/test/travis.pl \${PGB_CI?}\n";
$self->{oStorage}->put('.travis.yml', $strConfig);
# Return from function and log return values if any
return logDebugReturn($strOperation);
}
1;