mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
918c1c6f49
The options accommodate systems where CAs are not automatically found by IO::Socket::SSL, i.e. RHEL7, or to load custom CAs. Suggested by Scott Frazer.
63 lines
2.9 KiB
Perl
63 lines
2.9 KiB
Perl
####################################################################################################################################
|
|
# S3 Test Environment
|
|
####################################################################################################################################
|
|
package pgBackRestTest::Env::S3EnvTest;
|
|
use parent 'pgBackRestTest::Common::RunTest';
|
|
|
|
####################################################################################################################################
|
|
# Perl includes
|
|
####################################################################################################################################
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
use English '-no_match_vars';
|
|
|
|
use pgBackRest::Common::Log;
|
|
use pgBackRest::Common::String;
|
|
use pgBackRest::Storage::S3::Driver;
|
|
|
|
use pgBackRestTest::Common::ExecuteTest;
|
|
use pgBackRestTest::Common::RunTest;
|
|
use pgBackRestTest::Common::VmTest;
|
|
|
|
####################################################################################################################################
|
|
# initS3
|
|
####################################################################################################################################
|
|
sub initS3
|
|
{
|
|
my $self = shift;
|
|
|
|
my ($strBucket, $strEndPoint, $strRegion, $strAccessKeyId, $strSecretAccessKey) =
|
|
('pgbackrest-dev', 's3.amazonaws.com', 'us-east-1', 'accessKey1', 'verySecretKey1');
|
|
|
|
my $strS3ServerPath = $self->testPath() . '/s3server';
|
|
my $strS3ServerDataPath = "${strS3ServerPath}/data";
|
|
my $strS3ServerMetaPath = "${strS3ServerPath}/meta";
|
|
my $strS3ServerLogFile = "${strS3ServerPath}/server.log";
|
|
storageTest()->pathCreate($strS3ServerDataPath, {bCreateParent => true});
|
|
storageTest()->pathCreate($strS3ServerMetaPath, {bCreateParent => true});
|
|
|
|
$self->{strS3Command} = 'export PYTHONWARNINGS="ignore" && aws s3 --no-verify-ssl';
|
|
|
|
# Make sure the cert is visible
|
|
executeTest('sudo chmod o+r,o+x /root /root/scalitys3 && sudo chmod o+r /root/scalitys3/ca.crt');
|
|
|
|
executeTest("echo '127.0.0.1 ${strBucket}.${strEndPoint} ${strEndPoint}' | sudo tee -a /etc/hosts");
|
|
executeTest('sudo sed -i "s/logLevel\"\: \"info\"/logLevel\"\: \"trace\"/" /root/scalitys3/config.json');
|
|
executeTest("sudo npm start --prefix /root/scalitys3 > ${strS3ServerLogFile} 2>&1 &");
|
|
executeTest("tail -f ${strS3ServerLogFile} | grep -m 1 \"server started\"");
|
|
executeTest("$self->{strS3Command} mb s3://pgbackrest-dev");
|
|
|
|
# Test variables
|
|
my $strFile = 'file.txt';
|
|
my $strFileContent = 'TESTDATA';
|
|
|
|
# Initialize the driver
|
|
return new pgBackRest::Storage::S3::Driver(
|
|
$strBucket, $strEndPoint, $strRegion, $strAccessKeyId, $strSecretAccessKey,
|
|
{strCaFile => $self->vm() eq VM_CO7 ? '/root/scalitys3/ca.crt' : undef,
|
|
bVerifySsl => $self->vm() eq VM_U16 ? false : undef, lBufferMax => 1048576});
|
|
}
|
|
|
|
1;
|