mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-03-03 14:52:21 +02:00
7f369006b5
A number of tests have been updated and Fedora 30 has been added to the test suite so the unit tests can run on gcc 9. Stop running unit tests on co6/7 since we appear to have ample unit test coverage.
123 lines
3.8 KiB
Perl
123 lines
3.8 KiB
Perl
####################################################################################################################################
|
|
# 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::BuildTest;
|
|
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" .
|
|
"matrix:\n" .
|
|
" include:\n";
|
|
|
|
# Iterate each OS
|
|
foreach my $strVm (VM_LIST)
|
|
{
|
|
$strConfig .= " - env: PGB_CI=\"--vm=${strVm} test\"\n";
|
|
}
|
|
|
|
$strConfig .=
|
|
" - env: PGB_CI=\"--vm=u18 doc\"\n" .
|
|
" - dist: bionic\n" .
|
|
" env: PGB_CI=\"--vm=none test\"\n" .
|
|
" env: PGB_CI=\"--vm=f30 test\"\n" .
|
|
" - env: PGB_CI=\"--vm=co7 doc\"\n" .
|
|
" - env: PGB_CI=\"--vm=co6 doc\"\n";
|
|
|
|
# Configure install and script
|
|
$strConfig .=
|
|
"\n" .
|
|
"install:\n" .
|
|
" - umask 0022\n" .
|
|
" - cd ~ && pwd && whoami && umask && groups\n" .
|
|
"\n" .
|
|
"script:\n" .
|
|
" - \${TRAVIS_BUILD_DIR?}/test/travis.pl \${PGB_CI?}\n";
|
|
|
|
buildPutDiffers($self->{oStorage}, '.travis.yml', $strConfig);
|
|
|
|
# Return from function and log return values if any
|
|
return logDebugReturn($strOperation);
|
|
}
|
|
|
|
1;
|